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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！