[文本处理] 批处理如何提取文本中指定内容的上一行数据？

Rasm

原始数据：

0008wf|feifei
002king|3270501
007sh|youhua007
00boy00|3984472
0410zxasqw|lsk521
100014|123456789a
1000y|781126
1024yy|123456789
107559797|7758521
108799|357111
110321775|789789
复制代码

想提取以下文本内容的上一行数据到新文本：

002king|3270501
0410zxasqw|lsk521
107559797|7758521
复制代码

文件地址：https://share.weiyun.com/481a010f58993295b20d273c263e2ee3

taofan712

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
	if not defined line ( set line=%%a) else (
		if "%%a"=="002king|3270501" echo;!line!
		if "%%a"=="0410zxasqw|lsk521" echo;!line!
		if "%%a"=="107559797|7758521" echo;!line!
		set line=%%a
	)
)
pause
复制代码

Rasm

回复 2# taofan712


    数据比较多，怎么导出到新的文本啊？

zuodx

#!/usr/bin/perl
use strict;

my @dst = qw(      
    002king|3270501   
    0410zxasqw|lsk521
    107559797|7758521
  );

my $line ;
my $prev = '';

while($line = <>)
{
   chomp  $line  and s/^\s+// and  s/\s+$// ;
   print "$prev\n" if ( grep ({$_ eq $line}   @dst ));
   $prev = $line;
}

ShowCode

回复 3# Rasm


(for ...
    ...
))>b.txt

Rasm

回复 5# ShowCode


    我要给你yes

Rasm

回复 2# taofan712


    400行数据，输出内容为空

ShowCode

回复 7# Rasm


    文件压缩一下传上来我试试

taofan712

回复 7# Rasm

@echo off & setlocal enabledelayedexpansion
(for /f "delims=" %%a in (a.txt) do (
	if not defined line ( set line=%%a) else (
		for /f "delims=" %%b in (b.txt) do if "%%a"=="%%b" echo;!line!
		set line=%%a
	)
))>c.txt
pause
复制代码

如果指定对比的行比较多，可以放进b.txt