這篇文章主要為大家展示了“怎么用vbs分割與合并文本文件”，內(nèi)容簡(jiǎn)而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“怎么用vbs分割與合并文本文件”這篇文章吧。

站在用戶的角度思考問題，與客戶深入溝通，找到策勒網(wǎng)站設(shè)計(jì)與策勒網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名申請(qǐng)、虛擬主機(jī)、企業(yè)郵箱。業(yè)務(wù)覆蓋策勒地區(qū)。

然而想到其他地方再次下載時(shí)發(fā)現(xiàn)一次性導(dǎo)入幾萬個(gè)地址非常緩慢，所以有必要把它分割了：(在這個(gè)txt文件中，一個(gè)地址占一行)
url_split.vbs文件內(nèi)容：

代碼如下:

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é)為單位來分割文件呢？，歡迎大家和我討論！

以上是“怎么用vbs分割與合并文本文件”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)站題目：怎么用vbs分割與合并文本文件-創(chuàng)新互聯(lián)
地址分享：http://weahome.cn/article/dpgjed.html