Board logo

标题: [求助]提取文本指定行内容 [打印本页]

作者: hgx126     时间: 2009-1-31 02:03    标题: [求助]提取文本指定行内容
有一文本文件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

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

作者: netbenton     时间: 2009-1-31 03:13
@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 ]

作者: slore     时间: 2009-1-31 03:51    标题: 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 ]

作者: hgx126     时间: 2009-1-31 12:27
谢谢netbenton及slore兄帮了我的大忙。

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