- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-8-30 18:32
| 只看该作者
在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz
VBS dim fso,file,filename,text
VBS Const ForReading=1
//文件保存的路径
VBS filename="d:\参数设置.txt"
VBS Set fso=CreateObject("Scripting.FileSystemObject")
VBS Set file=fso.OpenTextFile(filename,ForReading)
For 2
VBS text=file.ReadLine
If text="[HP]"
//读取[HP]下文件
VBS hp=cint(file.ReadLine)
ElseIf text="[MP]"
//读取[MP]下文件
VBS mp=cint(file.ReadLine)
EndIf
Delay 100
EndFor
//关闭文件
VBS file.close
//以后只要调用 hp 跟 mp 得数即可
VBSCall MessageBox(hp)
VBSCall MessageBox(mp) |
|