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

復制代碼 代碼如下:

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是以行為單位來分割文件，怎么以字節為單位來分割文件呢？，歡迎大家和我討論！