用vbs实现随机读取文件的一行内容的脚本
摘要:复制代码代码如下:randomizesetfso=createobject("scripting.filesystemobject")set...
复制代码 代码如下:
randomize
setfso=createobject("scripting.filesystemobject")
seta=createobject("scripting.dictionary")
setfile=fso.opentextfile("a.txt")
dowhilefile.atendofstream<>true
m=m+1
a.addm,file.readline
loop
file.close
h=int(rnd*m)
msgbox"第"&h&"行:"&a(h),4096,"随机内容"
【用vbs实现随机读取文件的一行内容的脚本】相关文章:
上一篇:
用vbs遍历文件并随机显示的脚本
下一篇:
用vbs实现读取文本文件的方法