标题: 【求助】关于读取TXT文件，生成一个新的TXT文件的问题
[打印本页]
作者: sndy
时间: 2009-2-14 04:02
标题: 【求助】关于读取TXT文件，生成一个新的TXT文件的问题
小生菜菜，近来整理文件实在头痛，想偷懒做个批处理或VBS来完成，看了相关文章，可惜才疏学浅，怎么都不大明白，实无办法上来求救！望能有点现成！
读取TXT文件，无分割标示的情况下，每50行生成一个新的TXT文件,其文件名最好以该文件的第一行的里面的字命名。
例如文件a.txt内容如下
11111111 aaaaaaa
22222222 bbbbb
..........
50000000 aaaaaaa1
.......
10000000 1112222
........
运行批处理后得到文件名为11111111.txt 50000000.txt 10000000.txt
作者: netbenton
时间: 2009-2-14 04:48
set n=0
for /f "tokens=1*" %%a in (a.txt) do (
call :sub %1 %2
)
goto :eof
:sub
if %n%==51 set fn=&set n=0
set/a n+=1
if not defined fn set fn=%1
echo %*>>%fn%.txt
goto :eof
作者: sndy
时间: 2009-2-14 05:41
非常感谢。。。试下先、！
作者: sndy
时间: 2009-2-14 05:53
好像不行！！
作者: netbenton
时间: 2009-2-14 09:20
不好意思，这样可以了
echo off
set n=0
for /f "tokens=1*" %%a in (a.txt) do (
call :sub %%a %%b
)
pause
goto :eof
:sub
if %n%==51 set fn=&set n=0
set/a n+=1
if not defined fn set fn=%1
echo %*>>%fn%.txt
goto :eof
作者: sndy
时间: 2009-2-14 10:59
谢谢！！可以了。。因为是50行，所以
if %n%==50 set fn=&set n=0
作者: HAT
时间: 2009-2-14 12:21
标题: Re 6楼
如果有人帮你解决了问题，建议进行如下操作：
1、给正确回答问题者加分以示感谢，虽然大家来论坛是为了学习而不是为了积分，但加分聊表谢意总是或多或少能够让花费了时间和精力无私帮助你的人略感欣慰。
2、修改帖子标题，注明：[已结]