用vbs實(shí)現(xiàn)隨機(jī)讀取文件的一行內(nèi)容的腳本
更新時(shí)間:2007年10月23日 21:33:17 作者:
復(fù)制代碼 代碼如下:
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,"隨機(jī)內(nèi)容"
相關(guān)文章
VBS教程:VBscript語(yǔ)句-Class 語(yǔ)句
VBS教程:VBscript語(yǔ)句-Class 語(yǔ)句...2006-11-11
iisweb.vbs iis網(wǎng)站管理腳本使用介紹
可以使用命令行腳本 iisweb.vbs(存儲(chǔ)在 systemroot\System32 中)在運(yùn)行帶有 IIS 6.0 的 Windows Server 2003 家族成員的本地或遠(yuǎn)程計(jì)算機(jī)上創(chuàng)建網(wǎng)站配置。該命令不創(chuàng)建或破壞內(nèi)容,而只是設(shè)置目錄結(jié)構(gòu)和某些 IIS 配置文件2014-07-07
用vbs腳本實(shí)現(xiàn)運(yùn)行DOS批處理不再出現(xiàn)黑屏cmd窗口
這篇文章主要介紹了用vbs腳本實(shí)現(xiàn)運(yùn)行DOS批處理不再出現(xiàn)黑屏cmd窗口,需要的朋友可以參考下2007-02-02
使用 iisext.vbs 添加應(yīng)用程序依存關(guān)系的實(shí)現(xiàn)方法
這篇文章主要介紹了使用 iisext.vbs 添加應(yīng)用程序依存關(guān)系的實(shí)現(xiàn)方法,需要的朋友可以參考下2014-07-07
VBS教程:正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式
VBS教程:正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式...2006-11-11

