用vbs分割與合并文本文件的代碼
更新時(shí)間：2010年11月28日 20:46:16 作者：
我們?cè)谟醚咐谆騠lashget時(shí)間長(zhǎng)了后，下載過(guò)的文件地址都保存在已下載分類中，我們可以把這些珍貴的地址列表都導(dǎo)出，保存到一個(gè)txt文件中。
然而想到其他地方再次下載時(shí)發(fā)現(xiàn)一次性導(dǎo)入幾萬(wàn)個(gè)地址非常緩慢，所以有必要把它分割了：(在這個(gè)txt文件中，一個(gè)地址占一行)
url_split.vbs文件內(nèi)容：
復(fù)制代碼 代碼如下:
Set fs =CreateObject("scripting.filesystemobject")
Set gs =CreateObject("scripting.filesystemobject")
Set f=fs.opentextfile("url.txt",1,true) 'url.txt是要分割的txt文件，里面保存了幾萬(wàn)個(gè)地址
n=0
do while f.atendofstream<>true
n=n+1
data=""
Set g=gs.opentextfile(CStr(n)+".lst",2, true) '分割后的文件保存為：1.lst 2.lst 3.lst……
if f.atendofstream<>true then
for a=1 to 1000 '分割后，一個(gè)文件保存1000地址
data=f.readline
g.writeline data
next
end if
loop
f.close
g.close
呵呵，這個(gè)vbs是以行為單位來(lái)分割文件，怎么以字節(jié)為單位來(lái)分割文件呢？，歡迎大家和我討論！
相關(guān)文章
VBS教程：VBscript屬性-HelpContext 屬性
VBS教程：VBscript屬性-HelpContext 屬性...2006-11-11
用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接
用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接...2007-04-04
VBS正則表達(dá)式對(duì)象的MultiLine屬性
昨天在《VBS創(chuàng)建正則表達(dá)式對(duì)象的兩種方法》中提到了 VBScript 正則表達(dá)式對(duì)象的 MultiLine 屬性，在 shirne 的提醒下，我才想起參考手冊(cè)中是出現(xiàn)過(guò) MultiLine 屬性的2012-01-01
VBS教程：VBScript 語(yǔ)句-Set 語(yǔ)句
VBS教程：VBScript 語(yǔ)句-Set 語(yǔ)句...2006-11-11
VBS教程：方法-SkipLine 方法...2006-11-11
使用 iisftpdr.vbs 創(chuàng)建 FTP 虛擬目錄的方法
這篇文章主要介紹了使用 iisftpdr.vbs 創(chuàng)建 FTP 虛擬目錄的方法,需要的朋友可以參考下2014-07-07
VBS教程：屬性-SubFolders 屬性...2006-11-11
利用計(jì)劃任務(wù)和VBS腳本實(shí)現(xiàn)自動(dòng)WEB共享文件夾里的文件
其實(shí)沒有題目寫得那么復(fù)雜，就是用計(jì)劃任務(wù)每隔一段時(shí)間調(diào)用VBS腳本，刷新生成一個(gè)文件列表文件用于WEB服務(wù)調(diào)用。2008-12-12
自己寫的一個(gè)定時(shí)關(guān)機(jī)或重啟的vbs腳本
'以下代碼是定時(shí)關(guān)機(jī)或重啟的腳本，在windows 2000下通過(guò)2008-06-06
這篇文章主要介紹了asp+fso創(chuàng)建指定文件并返回 TextStream 對(duì)象，該對(duì)象可用于讀或?qū)憚?chuàng)建的文件，為了方便使用腳本之家特為大家分享了一個(gè)函數(shù)，方便大家學(xué)習(xí)與理解2006-11-11