2. 数据文件以txt组织
不多说,直接附上代码。
Const ForReading=1 TFilePath= Environment("TestDir")&"\data.txt" Set Fso3 = CreateObject("Scripting.FileSystemObject") Set DataFile= Fso3.OpenTextFile(TFilePath,ForReading,False) DataFile.SkipLine Do while DataFile.AtEndOfLine<>true ReadString = DataFile.ReadLine DataStr=split(ReadString,",") Dialog("Login").WinEdit("Agent Name:").Set DataStr(0) Dialog("Login").WinEdit("Password:").SetSecure DataStr(1) loop DataFile.close Set Fso3=Nothing |