- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-8-30 18:33
| 只看该作者
在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz
读写文本的例子。可做为小精灵的读取自定义参数。
sub 写文本,这里做为主程序来使用,大家需要用到的话可以把它最为一个子程序来调用。
//sub 写文本
px_1="xxx=(2) 2是参数用来作为XX功能"
VBS set file=CreateObject("Scripting.FileSystemObject")
VBS const forwriting=2
VBS const forreading=1
//假如配置文本存在,则自动创建文本并写入,假如存在,则自动读取括号内的参数
If file.FileExists("d:\配置文本.txt")=0
VBS set file=CreateObject("Scripting.FileSystemObject")
//创建文本的位置
VBS set myfile=file.createtextfile("d:\配置文本.txt")
//写入文本的位置
VBS set myfile=file.opentextfile("d:\配置文本.txt",forwriting)
//写文本的内容
VBS myfile.writeline(px_1)
VBS myfile.Close
Gosub 读文本
Else
Gosub 读文本
EndIf
//sub 写文本
Sub 读文本
VBS set file=CreateObject("Scripting.FileSystemObject")
VBS Set myfile=file.OpenTextFile("d:\配置文本.txt",ForReading)
//读第一行
//px1
VBS nw=myfile.ReadLine
//取字符串,读取()内的参数
use_len=instr(nw,"(")
use_len_1=instr(nw,")")
use_0=mid(nw,use_len+1,use_len_1-use_len-1)
//读取出来的值赋给脚本中需要使用到的变量
px_1=use_0
//px_1=cint(px_1) 读出来的是字符,需要用到数字的话请把变量转为整型
VBS myfile.Close
Sub 读文本 |
|