按键精灵 输入随机数文本

Question

填表用的，3段本文“文本1”“文本2”“文本3”随机输入，按一次输入一次，需要重复的。

Answer 1

Randomize

dim text(2)

Text(0) = Plugin.File.ReadFileEx("C:\文本1.txt")

Text(1) = Plugin.File.ReadFileEx("C:\文本2.txt")

Text(2) = Plugin.File.ReadFileEx("C:\文本3.txt")

MessageBox (Split(Text(Int(3 * Rnd)), "|")(0))

追问

Dim a(3)
a(0)="文本1"
a(1)="文本2"
a(2)="文本3"
Randomize
SayString a(Int(3 * Rnd))
这样就行了。

Answer 2

UserVar a="0" "这里是文本1"
UserVar b="1" "这里是文本2"
UserVar c="2" "这里是文本3"
Rem start
WaitKey
Randomize
//得到1~3的随机数一个

x = Int((3 * Rnd) + 1)
If x = 1 Then
SayString a
End If
If x = 2 Then
SayString b
End If
If x = 3 Then
SayString c
End If
Goto start

Answer 3

嗯，这个用循环

Answer 4

先问一下 是用txt文件读取行数分割还是界面的控件?

追问

就是用脚本完成输出，要重复输入许多次，随机出现，要输入的文本比较长的，就用“文本123代替一下”，最好是用随机数。

追答

先在脚本将你要输入的文本赋值给了文本1、文本2、文本3
然後waitkey 如果key=XX jiiu随机产生1-3内的其中一个号码
如果获得1 就saystring 文本1
获得2就saystring 文本二
如此类推

测试完成过后请在waitkey与输出文本三前后加上循环结构

追问

那个随机产生1-3内的其中一个数的语句怎么写？

追答

你看看你的按键精灵里面命令库>我的命令库有没有这么一条随机数命令