手机
当前位置:查字典教程网 >脚本专栏 >vbs >用vbs分割与合并文本文件的代码
用vbs分割与合并文本文件的代码
摘要:然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢,所以有必要把它分割了:(在这个txt文件中,一个地址占一行)url_split....

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

然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢,所以有必要把它分割了:(在这个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分割与合并文本文件的代码2

【用vbs分割与合并文本文件的代码】相关文章:

用vbs实现对文本文件中的项计数

用VBS可执行程序+Xmlhttp下载备份网上文件的代码

QueryCode.vbs 文本文件编码查询工具

用vbs将名称截断以使其最多包含 16 个字符的代码

用vbs实现定时运行web文件的方法

用vbs实现显示系统调色板的代码

用vbs实现更改计算机的说明的代码

用vbs实现读取文本文件的方法

vbs中使用 ADO 读取所有数据均在一行上的文本文件的代码

vbs定时发送邮件的方法与代码

精品推荐
分类导航