[已解决]批处理如何实现文本内查找？

sweet惜缘 · 发表于 2012-12-3 21:47:17

原文本内容：
ID1 A  B  C  D  E  F  G  H  I  G  K......
ID2 A  C  M  E
ID3 N  T Y  E
空行
ID4 A  B  C  D  E  F  G  H  I  G  K......
ID5 C  M  E  Y
ID6 T Y  E  G
空行
........

处理结果：文本中的空行把文本分成很多个板块，在每个独立的板块中第一行是目标行，后面每行中的字段在第一行中查找，若找到了则在该字段后面加“1”，没找到在该字段后面加“0”
上面的结果最终处理结果为：
ID1 A  B  C  D  E  F  G  H  I  G  K
ID2 A 1  C 1  M 0  E 1
ID3 N 0  T 0  Y 0 E 1
空行
ID4 A  B  C  D  E  F  G  H  I  G  K
ID5 C 1  M 0 E 1 Y 0
ID6 T  0  Y 0 E 1 G 0
空行
谢谢了

tmplinshi · 发表于 2012-12-4 09:39:02

本帖最后由 tmplinshi 于 2012-12-4 09:56 编辑

好长。

@echo off
setlocal enabledelayedexpansion
REM 设置文件名
set File="a.txt"
REM 统计文本行数
for /f %%a in ('find /c /v "" ^< %file%') do set #=%%a
REM 将第一行每一列的字符设为变量
set /p Line1=<%file%
for %%a in (%Line1:* =%) do set ~%%a=1
REM --------------------------------------------------
set _Start=
(
for /l %%a in (1 1 %#%) do (
set OldStr=
set NewStr=
set /p OldStr=
if not defined _Start (
set NewStr=!OldStr!
set _Start=1
) else (
if defined OldStr (
for %%a in (!OldStr!) do (
if not defined NewStr (
set NewStr=%%a
) else (
if defined ~%%a (
set NewStr=!NewStr! %%a 1
) else (
set NewStr=!NewStr! %%a 0
)
)
)
) else (
set _Start=
)
)
echo,!NewStr!
)
) <%file% >Result.txt

复制代码

sweet惜缘 · 发表于 2012-12-4 12:24:57

回复 2# tmplinshi

已解决，十分感谢！

sweet惜缘 · 发表于 2012-12-5 09:00:56

回复 2# tmplinshi

不好意思,还需要打扰您。昨天试了代码，但没仔细验证结果，现在发现还有点问题。

我需要在每个以空行分割的块的第一行查找，每个空格后的第一行内容都不相同。您给的代码是整个文本的第一行为所有目标的查找行，我前面没有描述清楚，给您添麻烦了。

tmplinshi · 发表于 2012-12-6 09:17:26

回复 tmplinshi

不好意思,还需要打扰您。昨天试了代码，但没仔细验证结果，现在发现还有点问题。 ...
sweet惜缘发表于 2012-12-5 09:00

@echo off
setlocal enabledelayedexpansion
REM 设置文件名
set File="a.txt"
REM 统计文本行数
for /f %%a in ('find /c /v "" ^< %file%') do set #=%%a
REM --------------------------------------------------
set _Start=
(
for /l %%a in (1 1 %#%) do (
set OldStr=
set NewStr=
set /p OldStr=
if not defined _Start (
set NewStr=!OldStr!
set _Start=1
setlocal
for %%a in (!OldStr:* ^=!) do set ~%%a=1
) else (
if defined OldStr (
for %%a in (!OldStr!) do (
if not defined NewStr (
set NewStr=%%a
) else (
if defined ~%%a (
set NewStr=!NewStr! %%a 1
) else (
set NewStr=!NewStr! %%a 0
)
)
)
) else (
endlocal
set NewStr=
set _Start=
)
)
echo,!NewStr!
)
) <%file% >Result.txt

复制代码

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

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

[文本处理] [已解决]批处理如何实现文本内查找？

评分

评分

RE: 【已解决】文本内查找