按键精灵读取逐行读取TXT文档,一次读取一行
我有一个文档,想这样提出里面的数据,比方说张三李四王五第一次脚本运行提出张三,然后等脚本运行完之后第二次循环的时候输入李四,结束之后再次循环输入王五,以此类推。...
我有一个文档,想这样提出里面的数据,比方说
张三
李四
王五
第一次脚本运行提出张三,然后等脚本运行完之后第二次循环的时候输入李四,结束之后再次循环输入王五,以此类推。 展开
张三
李四
王五
第一次脚本运行提出张三,然后等脚本运行完之后第二次循环的时候输入李四,结束之后再次循环输入王五,以此类推。 展开
展开全部
Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
SayString Cstr(MyArray(i))
Delay 1000
Msgbox "成功输入第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
Delay 1000
i=i+1
Next
End If
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
SayString Cstr(MyArray(i))
Delay 1000
Msgbox "成功输入第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
Delay 1000
i=i+1
Next
End If
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询