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

xptool

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

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

先谢谢各位朋友了

apang

1. @echo off&setlocal enabledelayedexpansion
   
2. set /a n=0,m=1
   
3. for /f "delims=" %%a in (d.txt) do (
   
4.   for %%b in (%%a) do (
   
5.     set /a n+=1
   
6.     echo %%b>>!m!.txt
   
7.     if "!n!"=="10" set /a n=0,m+=1
   
8.   )
   
9. )
   
10. pause

复制代码

是不是这样？

wc726842270

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

1. 
   
2. Set fso=CreateObject("scripting.filesystemobject")
   
3. If fso.fileexists("e:\a.txt") Then
   
4. Set ofile=fso.OpenTextFile("e:\a.txt",1)
   
5. Else
   
6. wscript.echo "the file is not exists"
   
7. WScript.Quit(1)
   
8. End If
   
9. str=ofile.readall
   
10. arr=Split(str,vbCrLf)
    
11. nfile=UBound(arr)/10+1
    
12. nnum=0
    
13. For i=1 To nfile
    
14.         If Not fso.FileExists(i&".txt") Then
    
15.         Set newfile=fso.OpenTextFile(i&".txt",2,True)
    
16.         Else
    
17.         WScript.Echo i&".txt file is exists"
    
18.         WScript.Quit(2)
    
19.         End If
    
20.         number=0
    
21.         For n=nnum To uBound(arr)
    
22.         number=number+1
    
23.         If (ofile.AtEndOfStream And number<>10) Then
    
24.         newfile.WriteLine arr(n)
    
25.         Else
    
26.         Exit for
    
27.         End If
    
28.         Next
    
29.         nnum=i*10
    
30.         newfile.Close
    
31.         Set newfile=nothing
    
32. Next
    
33. ofile.Close
    
34. Set fso=Nothing
    

复制代码

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

Demon

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

    注意缩进。

wc726842270

了解

1. 
   
2. Set fso=CreateObject("scripting.filesystemobject")
   
3. If fso.fileexists("e:\a.txt") Then
   
4.         Set ofile=fso.OpenTextFile("e:\a.txt",1)
   
5. Else
   
6.         wscript.echo "the file is not exists"
   
7.         WScript.Quit(1)
   
8. End If
   
9. str=ofile.readall
   
10. arr=Split(str,vbCrLf)
    
11. nfile=UBound(arr)/10+1 '此处有点问题，最好用MOD来判断一下，要不如果是10的倍数的话，可能会多创建一个文件。不过在此就不改了
    
12. nnum=0
    
13. For i=1 To nfile
    
14.         If Not fso.FileExists(i&".txt") Then
    
15.                 Set newfile=fso.OpenTextFile(i&".txt",2,True)
    
16.         Else
    
17.                 WScript.Echo i&".txt file is exists"
    
18.                 WScript.Quit(2)
    
19.         End If
    
20.         number=0
    
21.         For n=nnum To uBound(arr)
    
22.                 number=number+1
    
23.                 If (number<>10 and ofile.AtEndOfStream) Then
    
24.                         newfile.WriteLine arr(n)
    
25.                 Else
    
26.                         Exit for
    
27.                 End If
    
28.         Next
    
29.         nnum=i*10
    
30.         newfile.Close
    
31.         Set newfile=nothing
    
32. Next
    
33. ofile.Close
    
34. Set fso=Nothing
    

复制代码