中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: [求助]提取文本指定行内容 上一主题 | 下一主题
hgx126
初级用户





积分 100
发帖 80
注册 2008-9-12
状态 离线
『楼 主』:  [求助]提取文本指定行内容

有一文本文件a.txt,内容有上万条内容,其中一部份如下:

G101,1090023001,200706,30,20000,20000229,0,20000
G101,1090023001,200707,31,20000,20000229,0,20000
G101,1090023001,200708,31,20000,20070731,20000,0
G101,1090023002,200705,31,10000,20000427,0,10000
G101,1090023002,200706,30,10000,20000427,0,10000
G101,1090023002,200707,31,10000,20000427,0,10000
G101,1090023002,200708,31,10000,20070731,10000,0
G101,930000109024540000,200703,31,0,20060427,0,50000
G101,930000109024540000,200812,31,50000,20070731,0,30000
G101,930000109024540000,200901,31,50000,20070731,0,30000
G101,54110118047141,200708,31,0,20070706,0,80000
……

以每行的第二列(以逗号为分隔符)数据比较下一行第二列的数据,如果不相同则提取该行到b.txt,与下一行第二列的数据相同则不提取。提取b.txt后的结果如下:

G101,1090023001,200708,31,20000,20070731,20000,0
G101,1090023002,200708,31,10000,20070731,10000,0
G101,930000109024540000,200901,31,50000,20070731,0,30000

即是有红字所在行。
求大家帮帮忙!

2009-1-31 02:03
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 2 楼』:  

@echo off
set two=
for /f "tokens=1,2,* delims=," %%a in (a.txt) do (
        call :sub %%a %%b "%%c"
)
goto :eof
:sub
if not defined two goto :sk
if not "%two%"=="%2" >>b.txt echo.%str%
:sk
set "two=%2"
set "str=%1,%2,%~3"
goto :eof

谢绝 slore 提点
不好意思,修改一下,这次应该可以了

[ Last edited by netbenton on 2009-1-31 at 11:37 ]



精简
[你的+我的+他的]=>[大家的]    个人网志   
2009-1-31 03:13
查看资料  发送邮件  发短消息 网志  OICQ (37659560)  编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 3 楼』:  3个错误哦

1.
文件,for要/f

2.
tokens=1,2,*
call %%c不代表第3个分割以后的全部仅表示第3个(Call按,分割)。

3.逻辑错误
str默认为空,则输出了第一行而不是第3行。同理下面的数据都错了,得到的是每组相同的第一个而不是最后一个。

[ Last edited by slore on 2009-1-31 at 14:28 ]



S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
2009-1-31 03:51
查看资料  发短消息 网志   编辑帖子  回复  引用回复
hgx126
初级用户





积分 100
发帖 80
注册 2008-9-12
状态 离线
『第 4 楼』:  

谢谢netbenton及slore兄帮了我的大忙。

[ Last edited by hgx126 on 2009-1-31 at 12:47 ]

2009-1-31 12:27
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: