vbs超大txt文本文件分割

2020-06-14 10:20:11  阅读 181 次 评论 0 条
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,后双击即可

本文地址:https://www.wpsds.com/dashushuo/182.html
版权声明:本文为原创文章,版权归 达叔 所有,欢迎分享本文,转载请保留出处!
WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS交流群:121023130

发表评论


表情

还没有留言,还不快点抢沙发?