怎么用vbs实现随机读取文件的一行内容

这篇文章主要介绍怎么用vbs实现随机读取文件的一行内容,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!

代码如下:

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,"随机内容"

以上是“怎么用vbs实现随机读取文件的一行内容”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注行业资讯频道!