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

Rasm · 发表于 2017-3-25 11:05:58

本帖最后由 Rasm 于 2017-3-26 11:24 编辑

原始数据：

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 · 发表于 2017-3-25 11:41:44

@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 · 发表于 2017-3-25 12:34:21

回复 2# taofan712

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

zuodx · 发表于 2017-3-25 12:49:51

#!/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 · 发表于 2017-3-25 13:14:18

回复 3# Rasm

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

Rasm · 发表于 2017-3-25 13:15:51

回复 5# ShowCode

我要给你yes

Rasm · 发表于 2017-3-25 13:20:40

回复 2# taofan712

400行数据，输出内容为空

ShowCode · 发表于 2017-3-25 13:26:38

回复 7# Rasm

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

taofan712 · 发表于 2017-3-25 16:30:24

回复 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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

评分

浏览过的版块