实现代码如下:

randomize 
set fso=createobject("scripting.filesystemobject") 
set a=createobject("scripting.dictionary") 
set file=fso.opentextfile("a.txt") 
do while file.atendofstream<>true 
m=m+1 
a.add m,file.readline 
loop 
file.close 
h=int(rnd*m) 
msgbox "第" & h & "行:  " & a(h) ,4096,"随机内容"

以上就是【用VBScript实现随机读取文件的一行内容的脚本】的全部内容了,欢迎留言评论进行交流!

赞(0) 踩(0)
发表我的评论

最新评论

  1. 暂无评论