Question

按键精灵读怎么循环读文本里的数字，怎么样给路径里的TXT文件换成变量，可以进行多选？如代码...没财富了.

UserVar ditu=DropList{无量山（1级）:0|敦煌（1级）:1|镜湖（1级）:2|嵩山（1级）:3|太湖（1级）:4|西湖（2级）:5|洱海（3级）:6|雁南（4级）:7|龙泉（5级）:8|苍山（6级）:9|雁北（7级）:10|清源（7级）:11}=0 地图
VBS Dim fso,ts,test
VBS Const ForReading = 1
VBS Set fso = CreateObject("Scripting.FileSystemObject")
VBS Set ts = fso.OpenTextFile("c:\无量山.txt", ForReading)
VBS zbx=ts.ReadLine
VBS zby=ts.ReadLine
我是想无限循环读一个文本里的坐标，可是我每次都是读到最后的一行，就一直在最后一行上读了，不知道倒回第一行进行无限循环...

Answer 1

的数值赋值给一个变量，再用for循环将整个脚本作为循环体。

大概可以像下面这样写：

VBSCall CT=InputBox("请输入循环次数：")
for CT
//原来的脚本
endfor

追问

我是想无限循环读一个文本里的坐标，可是我每次都是读到最后的一行，就一直在最后一行上读了，不知道怎么样倒回第一行进行无限循环...