按键精灵 TXT 随机读取 行数 并输出
Text=Plugin.File.ReadFileEx("c:\123.txt")'读TXTsp=split(text,"|")'分行Ford=0Toubound(sp)...
Text = Plugin.File.ReadFileEx("c:\123.txt")'读TXT
sp = split(text, "|")'分行
For d = 0 To ubound(sp)-1'输出
SayString sp(d)
Delay 300
Next
以上是读取TXT文本,并全部输出的,能帮我改下随机读取任意一行,并输出成2段
比如
随机读取:谢谢你|777
输出:谢谢你
按键:tab
输出:777
TXT文本格式:
AAA|111
BBB|222
CCC|333
DDD|444
……
比如我在网页填写注册信息,随机读取了第2行(BBB|222),自动输出,姓名{BBB},年龄{222} 展开
sp = split(text, "|")'分行
For d = 0 To ubound(sp)-1'输出
SayString sp(d)
Delay 300
Next
以上是读取TXT文本,并全部输出的,能帮我改下随机读取任意一行,并输出成2段
比如
随机读取:谢谢你|777
输出:谢谢你
按键:tab
输出:777
TXT文本格式:
AAA|111
BBB|222
CCC|333
DDD|444
……
比如我在网页填写注册信息,随机读取了第2行(BBB|222),自动输出,姓名{BBB},年龄{222} 展开
推荐于2016-03-30
展开全部
具体不知道你记事本的文本编排是怎么样的分行你自己再调整一下
Text = Plugin.File.ReadFileEx("c:\123.txt") //读TXT
sp = split(text, "|") //分行保存到数组
Rem wait //标记wait
key = WaitKey //等待按键
If key = 9 Then //当按键等于tab
Randomize //初始化随机数生成
random = Int(ubound(sp) + 1) * Rnd //生成数组中0到最大下标之间的随机数
SayString sp(random) //输出随机行文本
delay 200
Else
Goto wait //按键不为tab 跳到wait标记
delay 200
End If
Text = Plugin.File.ReadFileEx("c:\123.txt") //读TXT
sp = split(text, "|") //分行保存到数组
Rem wait //标记wait
key = WaitKey //等待按键
If key = 9 Then //当按键等于tab
Randomize //初始化随机数生成
random = Int(ubound(sp) + 1) * Rnd //生成数组中0到最大下标之间的随机数
SayString sp(random) //输出随机行文本
delay 200
Else
Goto wait //按键不为tab 跳到wait标记
delay 200
End If
追问
不能用呀,朋友
格式是这样:
AAA|111
BBB|222
CCC|333
DDD|444
……
比如我在网页填写注册信息,随机读取了第2行(BBB|222),自动输出,姓名{BBB},年龄{222}
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询