1. 将代码复制到txt文本中,后缀改成.vbs
2.和要分割的文件放在同一目录下并执行该程序
3.执行完后会弹框报错,不要紧。
Set fs =CreateObject("scripting.filesystemobject")
Set gs =CreateObject("scripting.filesystemobject")
Set f=fs.opentextfile("source.txt",1,true) //source.txt要分割的文件
n=0
do while f.atendofstream<>true
n=n+1
data=""
Set g=gs.opentextfile(CStr(n)+"_split.txt",2, true) //分割出的文件名
if f.atendofstream<>true then
for a=1 to 10000 //每一万行分割为一个txt
data=f.readline
g.writeline data
next
end if
loop
f.close
g.close