按键精灵读取TXT中的一组数字,每个数字后面都有回车!
比如TXT文本里是:7213.897598985.22107448.3450244.54142.523701076.7557673.9766716.18345268.71...
比如TXT文本里是:
7213.89
7598985.22
107448.34
50244.54
142.52
3701076.75
57673.97
66716.18
345268.71
然后每个数字完成后敲一下回车,然后继续数字,然后回车,这样的循环。求高手帮助! 展开
7213.89
7598985.22
107448.34
50244.54
142.52
3701076.75
57673.97
66716.18
345268.71
然后每个数字完成后敲一下回车,然后继续数字,然后回车,这样的循环。求高手帮助! 展开
1个回答
展开全部
Text = Plugin.File.ReadFileEx("C:\Config.txt")
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//MessageBox MyArray(i)
KeyPress "Enter", 1
i=i+1
Next
End If
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//MessageBox MyArray(i)
KeyPress "Enter", 1
i=i+1
Next
End If
追问
我刚试验了下,不行啊,启动以后只敲回车,没有数字了。。。("C:\Config.txt")是不是把这个改成我存档的路径吗!?但是我改了也不行,还个如何在中间加入时间,不让输入的那么快,怎么加?谢了
追答
我写的只是例子,你应用就应该结合你实际修改,看来你还没了解语句,至于怎么改要你自己测试才行。
Text = Plugin.File.ReadFileEx("C:\Config.txt")//路径要你自己修改
dim MyArray//变量为了让语句第二次运用不出错
MyArray = Split(Text, "|")//把TXT文档内容分开
If UBound(MyArray)>=0 Then//判断文档是否有语句,当然你可以不加判断
i=0//因为分开后的结果按0开始排列
For UBound(MyArray)//循环这个文档段落的次数UBound函数运用
SayString MyArray(i)//加入输入语句
MessageBox MyArray(i)//这里只有提供给你测试的结果,你可以改为输入
Delay 1000//延时一秒
KeyPress "Enter", 1//按回车键
i=i+1//叠加段落继续运行
Next//循环结束
End If //判断结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询