//—————随机读取文本函数封装—
Function 随机输出文本(path) Dim C,内容,行数 Randomize 行数 = file.linesnumber(path) C = Int((行数-1+1)*Rnd()+1) 内容=File.ReadLine(path,C) Delay 2000 InputText 内容 ms "写....." End Function
//—————随机读取文本函数封装—
Function 随机输出文本(path) Dim C,内容,行数 Randomize 行数 = file.linesnumber(path) C = Int((行数-1+1)*Rnd()+1) 内容=File.ReadLine(path,C) Delay 2000 InputText 内容 ms "写....." End Function