Question

按键精灵如何实现读取文本后随机输出一行内容

dim MyArray
//下面这句是向从目标文件("D:\帝国题库.txt")读出文本内容到变量(Text)
Text = Plugin.File.ReadFileEx("D:\帝国题库.txt")
MyArray = Split(Text, "|")
//下面这句是得到文本内容
i=0
SayString MyArray(i+1)
KeyPress "Enter", 1
SayString MyArray(i+2)
KeyPress "Enter", 1
SayString MyArray(i+3)
KeyPress "Enter", 1
注意：上面的是我自己写的，只能逐行读取，我现在要求能够随机读取文本的每一行文字，当然 一次只读一行就OK。
如何实现随机实在不会。
一定要是按键精灵采用的语言

Answer 1

Randomize
Text = Plugin.File.ReadFileEx("D:\帝国题库.txt")
MyArray = Split(Text, "|")
//MessageBox MyArray(Int((UBound(MyArray) * Rnd) + 0))
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
KeyPress "Enter", 1

追问

如果我文本里就只有一行文字，要求把这行文字拆散后从新组成一行，应该怎么弄？

追答

要求挺多的，MID函数运用即可，参考http://zhidao.baidu.com/question/401629075.html

追问

Randomize
Text = Plugin.File.ReadFileEx("D:\帝国题库.txt")
MyArray = Split(Text, "|")
//MessageBox MyArray(Int((UBound(MyArray) * Rnd) + 0))
SayString MyArray(Int((UBound(MyArray) * Rnd) + 0))
KeyPress "Enter", 1
这个我测试了，有空行现象出现，能不能限制行数，比如我文本有30行文字，只在这30行文字随机读取一行？

追答

UBound函数就是指你全部行数，出现空行，也就是你文本中有空行（比如回车了）。建议查看下你文本是否出现回车键。如果你文本非要回车，你再加个判断空白不就行了。