中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 【求助】关于读取TXT文件，生成一个新的TXT文件的问题

sndy
新手上路

积分 11
发帖 8
注册 2007-8-22
状态离线

『楼主』: 【求助】关于读取TXT文件，生成一个新的TXT文件的问题

小生菜菜，近来整理文件实在头痛，想偷懒做个批处理或VBS来完成，看了相关文章，可惜才疏学浅，怎么都不大明白，实无办法上来求救！望能有点现成！

读取TXT文件，无分割标示的情况下，每50行生成一个新的TXT文件,其文件名最好以该文件的第一行的里面的字命名。
例如文件a.txt内容如下
11111111 aaaaaaa
22222222 bbbbb
..........
50000000 aaaaaaa1
.......
10000000 1112222
........
运行批处理后得到文件名为11111111.txt 50000000.txt 10000000.txt

2009-2-14 04:02

netbenton
银牌会员

批处理编程迷

积分 1916
发帖 752
注册 2008-12-28
来自广西
状态离线

『第 2 楼』:

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

精简
[你的+我的+他的]=>[大家的] 个人

网志

2009-2-14 04:48

(37659560)

sndy
新手上路

积分 11
发帖 8
注册 2007-8-22
状态离线

『第 3 楼』:

非常感谢。。。试下先、！

2009-2-14 05:41

sndy
新手上路

积分 11
发帖 8
注册 2007-8-22
状态离线

『第 4 楼』:

好像不行！！

2009-2-14 05:53

netbenton
银牌会员

批处理编程迷

积分 1916
发帖 752
注册 2008-12-28
来自广西
状态离线

『第 5 楼』:

不好意思，这样可以了
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

此帖被 +2 点积分点击查看详情

精简
[你的+我的+他的]=>[大家的] 个人

网志

2009-2-14 09:20

(37659560)

sndy
新手上路

积分 11
发帖 8
注册 2007-8-22
状态离线

『第 6 楼』:

谢谢！！可以了。。因为是50行，所以
if %n%==50 set fn=&set n=0

2009-2-14 10:59

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 7 楼』: Re 6楼

如果有人帮你解决了问题，建议进行如下操作：

1、给正确回答问题者加分以示感谢，虽然大家来论坛是为了学习而不是为了积分，但加分聊表谢意总是或多或少能够让花费了时间和精力无私帮助你的人略感欣慰。

2、修改帖子标题，注明：[已结]

2009-2-14 12:21

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: