[文本处理] 批处理如何将100组数据平均分成10个记事本格式？

xptool

记事本D.TXT 含有100组数据
如何将100组数据按顺序平均分成10个记事本格式

每个记事本含有10组数据（去除标点符号） 每行1组数据 共10行

先谢谢各位朋友了

wc726842270

了解

Set fso=CreateObject("scripting.filesystemobject")
If fso.fileexists("e:\a.txt") Then 
	Set ofile=fso.OpenTextFile("e:\a.txt",1)
Else
	wscript.echo "the file is not exists"
	WScript.Quit(1)
End If
str=ofile.readall
arr=Split(str,vbCrLf) 
nfile=UBound(arr)/10+1 '此处有点问题，最好用MOD来判断一下，要不如果是10的倍数的话，可能会多创建一个文件。不过在此就不改了
nnum=0
For i=1 To nfile 
	If Not fso.FileExists(i&".txt") Then
		Set newfile=fso.OpenTextFile(i&".txt",2,True)
	Else
		WScript.Echo i&".txt file is exists"
		WScript.Quit(2)
	End If
	number=0
	For n=nnum To uBound(arr)
		number=number+1
		If (number<>10 and ofile.AtEndOfStream) Then
			newfile.WriteLine arr(n)
		Else
			Exit for
		End If
	Next
	nnum=i*10
	newfile.Close
	Set newfile=nothing
Next
ofile.Close
Set fso=Nothing
复制代码

Demon

唉，写了个VBS，没有什么通用性，想要实到的话，代码怎么也得80行左右，上火PS：只是玩一下，练习而以
wc726842270 发表于 2012-11-6 05:04

    注意缩进。

wc726842270

唉，写了个VBS，没有什么通用性，想要实到的话，代码怎么也得80行左右，上火

Set fso=CreateObject("scripting.filesystemobject")
If fso.fileexists("e:\a.txt") Then 
Set ofile=fso.OpenTextFile("e:\a.txt",1)
Else
wscript.echo "the file is not exists"
WScript.Quit(1)
End If
str=ofile.readall
arr=Split(str,vbCrLf) 
nfile=UBound(arr)/10+1
nnum=0
For i=1 To nfile 
	If Not fso.FileExists(i&".txt") Then
	Set newfile=fso.OpenTextFile(i&".txt",2,True)
	Else
	WScript.Echo i&".txt file is exists"
	WScript.Quit(2)
	End If
	number=0
	For n=nnum To uBound(arr)
	number=number+1
	If (ofile.AtEndOfStream And number<>10) Then
	newfile.WriteLine arr(n)
	Else
	Exit for
	End If
	Next
	nnum=i*10
	newfile.Close
	Set newfile=nothing
Next
ofile.Close
Set fso=Nothing
复制代码

PS：只是玩一下，练习而以

apang

@echo off&setlocal enabledelayedexpansion
set /a n=0,m=1
for /f "delims=" %%a in (d.txt) do (
  for %%b in (%%a) do (
    set /a n+=1
    echo %%b>>!m!.txt
    if "!n!"=="10" set /a n=0,m+=1
  )
)
pause
复制代码

是不是这样？