成都创新互联网站制作重庆分公司

怎么用vbs分割与合并文本文件-创新互联

这篇文章主要为大家展示了“怎么用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是以行为单位来分割文件,怎么以字节为单位来分割文件呢?,欢迎大家和我讨论!
怎么用vbs分割与合并文本文件


以上是“怎么用vbs分割与合并文本文件”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


新闻标题:怎么用vbs分割与合并文本文件-创新互联
标题来源:http://cxhlcq.com/article/dpgjed.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部