用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教程：函數(shù)-Eval 函數(shù)...2006-11-11
用VBS修改IIS Metabase的代碼...2007-06-06
通過(guò)vbs修改以點(diǎn)結(jié)尾的文件的屬性為隱藏
這篇文章主要介紹了通過(guò)vbs修改以點(diǎn)結(jié)尾的文件的屬性為隱藏,需要的朋友可以參考下2016-12-12
思路不錯(cuò)，大家可以測(cè)試下，在vbscript調(diào)用另外一個(gè)vbscript2008-11-11
VBS教程：VBScript 語(yǔ)句-Rem 語(yǔ)句
VBS教程：VBScript 語(yǔ)句-Rem 語(yǔ)句...2006-11-11
VBS教程：方法-SkipLine 方法...2006-11-11
Windows管理腳本學(xué)習(xí)...2006-09-09
vbs 錯(cuò)誤捕獲器，用于捕獲內(nèi)部錯(cuò)誤并進(jìn)行手工處理
vbs中的錯(cuò)誤捕獲器，用于捕獲內(nèi)部錯(cuò)誤并進(jìn)行手工處理2009-08-08
dictionnary，是一個(gè)集合對(duì)象。一般情況霞，我把這個(gè)特殊的集合想象為數(shù)組，可以使用其中內(nèi)建的函數(shù)完成存儲(chǔ)和操縱數(shù)據(jù)等基本任務(wù)，無(wú)須擔(dān)心數(shù)據(jù)是在哪些行列2006-11-11
15分鐘學(xué)會(huì)vbscript中的正則表達(dá)式
這篇文章主要介紹了15分鐘學(xué)會(huì)vbscript中的正則表達(dá)式,需要的朋友可以參考下2018-06-06