中国DOS联盟

保存为s.bat
s ab 查找 --AB--
s ab pb 查找 --AB-- --PB--
s PB Ab c4 查找- --PB-- --AB-- --C4--

@echo off&setlocal enabledelayedexpansion

set KWF="a.txt"

del $$.tmp $$$.tmp>nul 2>nul

:while

    if "%~1" equ "" goto:a

    ECHO %1

    echo %~1>>$$.tmp

    shift /1

goto:while

:a

for /r %%i in (*.txt) do (set n=1& if /i "%%~nxi" neq %KWF% call:CONVERT "%%~i")

del $$.tmp $$$.tmp&pause&goto:eof



:CONVERT

set/a tp=0

for /f "usebackq delims=" %%i in ("%~1") do (

        set lb6=%%i

        set lb6=!lb6:~0,6!

        echo %%i>>$$$.tmp

        for /f %%a in ($$.tmp) do if /i "!lb6!" equ "--%%a--" (echo %%i|findstr /g:%KWF%>NUL&&set/a tp=1)

        if "!lb6!" equ "--LP--" (

                if "!tp!" equ "1" (

                        echo 文件 "%~nx1" 第 !n! 段,符合要求……

                        type $$$.tmp>>$dest$.txt

                        set/a tp=0

                        type nul>$$$.tmp

                )

                set /a n+=1

        )

)

GOTO:EOF

修该了一点,提高了些效率,用法和上面一样,支持多个字段参数查找

@echo off&setlocal enabledelayedexpansion

set KWF="a.txt"

del $$.tmp $$$.tmp>nul 2>nul

:while

    if "%~1" equ "" goto:a

    echo %~1>>$$.tmp

    shift /1

goto:while

:a

for /r %%i in (*.txt) do (set n=1& if /i "%%~nxi" neq %KWF% call:CONVERT "%%~i")

del $$.tmp $$$.tmp&pause&goto:eof



:CONVERT

set/a tp=0

for /f "usebackq delims=" %%i in ("%~1") do (

        set lb6=%%i

        set lb6=!lb6:~0,6!

        echo %%i>>$$$.tmp

        for /f %%a in ($$.tmp) do if /i "!lb6!" equ "--%%a--" if !tp! neq 1 (echo %%i|findstr /g:%KWF%>NUL&&set/a tp=1)

        if "!lb6!" equ "--LP--" (

                if "!tp!" equ "1" (

                        echo 文件 "%~nx1" 第 !n! 段,符合要求……

                        type $$$.tmp>>$dest$.txt

                        set/a tp=0

                        type nul>$$$.tmp

                )

                set /a n+=1

        )

)

GOTO:EOF

按照楼上的思路，改进了一下，不用临时文件，提搞了速度。

freeants001真厉害,竟然这样也能理解楼主的意思。佩服！

偶是看了freeants001写的代码才明白楼主的意思。

@echo off&setlocal enabledelayedexpansion

if "%1"=="" echo.最少给出一个条件&goto :eof

for %%a in (%*) do (set "tag=!tag! --%%a-- ")



for /f "delims=:" %%a in ('findstr /g:a.txt *.txt') do set ##%%a=1

set ##a.txt=



(for /f "delims==#" %%a in ('set ##') do (

	set/a n=0,m=1

	set test=#批处理#

        for /f "delims=" %%b in ('type "%%a"') do (

		set /a n+=1

		set str!n!=%%b

		for /f %%c in ("!n!") do (for /f %%d in ("!str%%c!") do (

			if "!tag:%%d=!" neq "!tag!" set test=!test!%%b

		)	)

                if "%%b" equ "------" (

			echo.!test!|findstr /g:a.txt&&echo 文件 "%%~nxa" 第 !m! 段,符合要求>con&&for /l %%c in (1,1,!n!) do (echo.!str%%c!)

			set/a n=0,m+=1

			set test=#批处理#

		)

        )

))>b.txt



pause

楼上的速度确实要快一些,不过如果文件大小超过几MB后,速度就慢了

请问freeants001兄：
系统找不到$$.tmp $$$.tmp
批处理是不是基于前面的处理，我已经删除。因为曾经出来170多M。
现在想实在不行，先用freeants001兄的第一个导入再在文献软件中处理。
这个批处理采取先分段的办法，比较有创意，感谢！
另外，文件共207M。

系统找不到$$.tmp $$$.tmp,bat文件要放到要处理的文件目录中.
文件共207M,单个文件最大多少,如果没有上MB的话用netbenton兄的代码效率高些

受netbenton启发,去掉了分段临时文件,速度提高很多，用法不变

@echo off&setlocal enabledelayedexpansion

set KWF="a.txt"

del $$.tmp $$$.tmp $dest$.txt>nul 2>nul

if "%1" equ "" goto:eof

:while

    if "%~1" equ "" goto:a

    echo %~1>>$$.tmp

    shift /1

goto:while

:a

for /r %%i in (*.txt) do (set /a n=1&if /i "%%~nxi" neq %KWF% call:CONVERT "%%~i")

del $$.tmp $$$.tmp&goto:eof



:CONVERT

set/a tp=0,i=0

for /f "usebackq delims=" %%i in ("%~1") do (

        set /a i+=1

        set lb6=%%i

        SET tag!i!=%%i

        set lb6=!lb6:~0,6!

        for /f %%a in ($$.tmp) do if /i "!lb6!" equ "--%%a--" if !tp! neq 1 (echo %%i|findstr /g:%KWF%>NUL&&set/a tp=1)

        if /i "!lb6!" equ "--LP--" (

                if "!tp!" equ "1" (

                        echo 文件 "%~nx1" 第 !n! 段,符合要求……

                        call:e

                        set/a tp=0

                )

                set /a n+=1

                set /a i=0

        )

)

GOTO:EOF



:e

for /l %%i in (1,1,!i!) do echo !tag%%i!>>$dest$.txt

goto:eof

最后一贴,其中参考了netbenton的代码,为提高效率,将设置文件件由a.txt更名为set.ini

@echo off&setlocal enabledelayedexpansion

set KWF="set.ini"

if "%1" equ "" goto:eof

del $dest$.txt>nul 2>nul

for /f "delims=" %%a in ('findstr /m /g:%KWF% *.txt') do (

    set /a n=1,tp=0,i=0

    for /f "usebackq delims=" %%i in ("%%~a") do (

        set/a i+=1

        set lb6=%%i

        set tag!i!=%%i

        set lb6=!lb6:~0,6!

        for %%a in (%*) do if /i "!lb6!" equ "--%%a--" if !tp! neq 1 (echo %%i|findstr /g:%KWF%>NUL&&set/a tp=1)

        if /i "!lb6!" equ "--LP--"  (

            if "!tp!" equ "1" (

                echo 文件 "%%a" 第 !n! 段,符合要求……

                for /l %%i in (1,1,!i!) do echo !tag%%i!>>$dest$.txt

                set/a tp=0

            )

            set/a n+=1,i=0

        )

    )

)

Last edited by freeants001 on 2009-4-27 at 11:24 ]

我也来就大家帮我提一段文本，也就是这个网页中的内容http://www.luckfish.net/rising.htm，我只要这一段。
<td class="zzbg2"><img src="images/tubiao/rn.gif" width="28" height="32" align="absmiddle" /><strong> 瑞星杀毒软件网络版2008</strong></td>
<td valign="bottom"><img src="images/zzbgy2.jpg" width="12" height="30" /></td>
</tr>
</table></td>
<td>&nbsp;</td>
</tr>
</table>
<table width="100%" cellpadding="2" cellspacing="1" bgcolor="#C1DFF0" class="div_d">
<tbody>
<tr class="zzsbg">
<td width="120" align="center">程序名称</td>
<td width="70" align="center">版本</td>
<td width="80" align="center">文件大小</td>
<td width="60" align="center">更新时间</td>
<td width="37" align="center">下载</td>
<td width="310" align="center">使用说明</td>
</tr>
<tr bgcolor="#ffffff">
<td align="center" bgcolor="#ffffff">2008版升级包</td>
<td align="center" bgcolor="#ffffff">20.90.91</td>
<td align="center" bgcolor="#ffffff">152.39MB</td>
<td align="center" bgcolor="#ffffff">2009-04-29</td>
<td align="center" bgcolor="#ffffff"><a href="http://rsdown.rising.com.cn/netver/08netver/lkioje123/Update.exe">下载</a></td>
<td align="center" bgcolor="#ffffff" class="fent_17px"><div align="center">系统中心手动升级专用 （只能用“另存为”下载）</div></td>
</tr>
<tr bgcolor="#ffffff">
<td align="center" bgcolor="#F3F9FC">系统安装包</td>

Last edited by zxxhwlkj on 2009-5-1 at 06:33 ]

hhhhhhhhh

hhhhhhhhhhhhhhhhhhhhhhhhhh