将f:123.txt里的内容读到字符串里,然后使用len函数得出字符串长度,用随机数和mid函数即可得到字符串
例如
open "f:123.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
tt=tt+TextLine
Loop
Clost #1
alen=len(tt)
Randomize Timer
Text1.Text = mid(tt,int(rnd * alen)+1,1)