当前位置:首页 > 达叔说 > 正文内容

vbs超大txt文本文件分割

达叔2个月前 (06-14)达叔说75
Set fs =CreateObject("scripting.filesystemobject")
Set gs =CreateObject("scripting.filesystemobject")
Set f=fs.opentextfile("Test.txt",1,true) 'Test.txt是要分割的txt文件
n=0
do while f.atendofstream<>true
n=n+1
data=""
Set g=gs.opentextfile(CStr(n)+".txt",2, true) '分割后的文件保存为:1.txt 2.txt 3.txt……
if f.atendofstream<>true then
for a=1 to 100000 '分割后,一个文件保存100000行,空白行同样算一行。
data=f.readline
g.writeline data
next
end if
loop
f.close
g.close

每十万行分为一个文件。存为*.vbs,后双击即可

版权声明:本文由WPS达师发布,如需转载请注明出处。