用vbs分割与合并文本文件的代码

然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢，所以有必要把它分割了：(在这个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是以行为单位来分割文件，怎么以字节为单位来分割文件呢？，欢迎大家和我讨论！





您可能感兴趣的文章:

• 用vbscript合并多个文本文件的代码
• 用VBScript写合并文本文件的脚本