用vbs分割与合并文本文件的代码
导读：收集整理的这篇文章主要介绍了用vbs分割与合并文本文件的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢，所以有必要把它...
收集整理的这篇文章主要介绍了用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写合并文本文件的脚本
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用vbs分割与合并文本文件的代码
本文地址： https://pptw.com/jishu/609848.html