亲宝软件园·资讯

展开

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

人气:0
想了解用vbs分割与合并文本文件的代码的相关内容吗,在本文为您仔细讲解vbs分割与合并文本文件的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点: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是以行为单位来分割文件,怎么以字节为单位来分割文件呢?,欢迎大家和我讨论!

加载全部内容

相关教程
猜你喜欢
用户评论