用vbs分割与合并文本文件的代码
更新时间：2010年11月28日 20:46:16 作者：
我们在用迅雷或flashget时间长了后，下载过的文件地址都保存在已下载分类中，我们可以把这些珍贵的地址列表都导出，保存到一个txt文件中。
然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢，所以有必要把它分割了：(在这个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是以行为单位来分割文件，怎么以字节为单位来分割文件呢？，欢迎大家和我讨论！
您可能感兴趣的文章:
相关文章
VBS教程：VBscript属性-HelpContext 属性
VBS教程：VBscript属性-HelpContext 属性...2006-11-11
用vbscript实现在消息框中显示一个超链接...2007-04-04
昨天在《VBS创建正则表达式对象的两种方法》中提到了 VBScript 正则表达式对象的 MultiLine 属性，在 shirne 的提醒下，我才想起参考手册中是出现过 MultiLine 属性的2012-01-01
VBS教程：VBScript 语句-Set 语句...2006-11-11
VBS教程：方法-SkipLine 方法...2006-11-11
使用 iisftpdr.vbs 创建 FTP 虚拟目录的方法
这篇文章主要介绍了使用 iisftpdr.vbs 创建 FTP 虚拟目录的方法,需要的朋友可以参考下2014-07-07
VBS教程：属性-SubFolders 属性...2006-11-11
其实没有题目写得那么复杂，就是用计划任务每隔一段时间调用VBS脚本，刷新生成一个文件列表文件用于WEB服务调用。2008-12-12
'以下代码是定时关机或重启的脚本，在windows 2000下通过2008-06-06
这篇文章主要介绍了asp+fso创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件，为了方便使用脚本之家特为大家分享了一个函数，方便大家学习与理解2006-11-11
最新评论