脚本专栏 
首页 > 脚本专栏 > 浏览文章

用vbs实现随机读取文件的一行内容的脚本

(编辑:jimmy 日期: 2024/12/23 浏览:3 次 )

复制代码 代码如下:
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编程教程 (第2篇)
下一篇:VBS基础编程教程 (第1篇)