[贴士] 读取文本参数设置内容

SzAngel

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--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)