Question

批处理文本文件a拆分为多个文件，每个文件10w行，命名为1.txt 2.txt...

Answer 1

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文件，然后放到Test.txt一起后运行，你也可以更改代码中文件名和分割行数。此代码在我电脑上测试运行到最后会报错，但内容还是完全分割了，因此应该没问题的。