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

243 阅读 0 评论 161 点赞

我是靠谱客的博主俭朴荷花，最近开发中收集的这篇文章主要介绍用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 