溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

怎么用vbs分割與合并文本文件

發(fā)布時間：2021-10-08 14:04:33 來源：億速云 閱讀：171 作者：小新 欄目：開發(fā)技術(shù)

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

怎么用vbs分割與合并文本文件
然而想到其他地方再次下載時發(fā)現(xiàn)一次性導(dǎo)入幾萬個地址非常緩慢，所以有必要把它分割了：(在這個txt文件中，一個地址占一行)
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文件，里面保存了幾萬個地址
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 '分割后，一個文件保存1000地址
data=f.readline
g.writeline data
next
end if

loop
f.close
g.close 

呵呵，這個vbs是以行為單位來分割文件，怎么以字節(jié)為單位來分割文件呢？，歡迎大家和我討論！
怎么用vbs分割與合并文本文件

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

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進(jìn)行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

vbs
AI
助
手