用vbs分割與合并文本文件的代碼
更新時(shí)間：2010年11月28日 20:46:16 作者：
我們?cè)谟醚咐谆騠lashget時(shí)間長了后，下載過的文件地址都保存在已下載分類中，我們可以把這些珍貴的地址列表都導(dǎo)出，保存到一個(gè)txt文件中。
然而想到其他地方再次下載時(shí)發(fā)現(xiàn)一次性導(dǎo)入幾萬個(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文件，里面保存了幾萬個(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是以行為單位來分割文件，怎么以字節(jié)為單位來分割文件呢？，歡迎大家和我討論！
相關(guān)文章
VBScript 監(jiān)控并結(jié)束指定進(jìn)程的代碼
有時(shí)候我們需要監(jiān)控一些進(jìn)程，防止一些進(jìn)程的開啟，發(fā)現(xiàn)指定進(jìn)程運(yùn)行就關(guān)閉它，那么就可以參考下面的代碼2013-09-09
更新為自動(dòng)判斷時(shí)間格式，WIN7 XP測試通過，WIN8待測試，主要是通過獲取百度的相關(guān)信息然后跟系統(tǒng)時(shí)間進(jìn)行比較2013-01-01
Springboot Thymeleaf數(shù)據(jù)迭代實(shí)現(xiàn)過程
這篇文章主要介紹了Springboot Thymeleaf數(shù)據(jù)迭代實(shí)現(xiàn)過程,文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友可以參考下2007-12-12
Google關(guān)鍵詞“WMI CPU使用率”，得到的全是《python使用WMI監(jiān)視系統(tǒng)－CPU使用率》，不用看，肯定又是采集的2011-10-10
vbs實(shí)現(xiàn)右鍵菜單中添加CMD HERE
cmdhere安裝，使你在任何目錄下直接進(jìn)入改目錄的CMD狀態(tài),需要的朋友可以參考下2008-05-05
VBS教程：函數(shù)-IsArray 函數(shù)...2006-11-11
VBS教程：VBscript屬性-HelpContext 屬性
VBS教程：VBscript屬性-HelpContext 屬性...2006-11-11
用vbscript實(shí)現(xiàn)的向指定的文件寫字符串，第三個(gè)參數(shù)指定是否刪除原來的內(nèi)容，喜歡的朋友可以測試系2013-01-01
VBS教程：方法-ReadAll 方法...2006-11-11
'code by lcx ,很好,很強(qiáng)大,很黃很暴力,很傻很天真,很zd很cnn '這個(gè)程序是算不同數(shù)字與字母的所有排列組合,當(dāng)然可以做為字典生成器來用.如需不同組合,只需改本程序a和b的變量即可以.2008-05-05