xp3000

谢谢各位帮忙,
确实标题重复的都不能处理.
文本.txt

岳阳楼
春色醉巴陵，阑干落洞庭。
水吞三楚白，山接九疑青。
空阔鱼龙气，婵娟帝子灵。
何人夜吹笛，风急雨冥冥。

岳阳楼
岳阳楼
岳阳楼上日衔窗，影到深潭赤玉幢。
怅望残春万般意，满棂湖水入西江。

黄鹤楼
　　昔人已乘黄鹤去，此地空余黄鹤楼。
　　黄鹤一去不复返，白云千载空悠悠。
　　晴川历历汉阳树，芳草萋萋鹦鹉洲。
　　日暮乡关何处是，烟波江上使人愁。
复制代码

文本.log

岳阳楼
黄鹤楼
岳阳楼
复制代码

这种情况，代码都出现了问题

WHY

@echo off
cd /d "%~dp0"
for %%i in (*.txt) do (
    if exist "%%~ni.log" (
        setlocal enabledelayedexpansion
        for /f "delims=" %%j in ('type "%%~ni.log"') do (
            set "_%%j=1"
        )
        (for /f "delims=" %%j in ('type "%%i" ^| findstr /n .*') do (
            set "s=%%j"
            set "s=!s:*:=!"
            if defined _!s! (
                set /a n+=1
                echo;!n!、《!s!》
                set "_!s!="
            ) else (
                echo;!s!
            )
        )) > "%%i.~tmp"
        endlocal
        move "%%i.~tmp" "%%i"
    )
)
pause
复制代码

xp3000

谢谢，可以用就行，在两首诗同名时确实会出错

一个文本，两首同名不同内容的诗

77七

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
        set "fileName=%%~ni"
        if exist "!fileName!.log" (
                for /f "delims=" %%a in (!fileName!.log) do (
                        set "_%%a=ture"
                )
                set /a "num=0"
                for /f "delims=" %%b in ('findstr /n .* !fileName!.txt') do (
                        set "str=%%b"
                        set "str=!str:*:=!"
                        if defined _!str! (
                                if defined #!str! (
                                        >>xxx.temp echo,!str!
                                ) else (
                                        set /a num=num+1
                                        set "#!str!=ture"
                                        >>xxx.temp echo,!num!、 《!str!》
                                )
                        ) else (
                                >>xxx.temp echo,!str!
                        )
                )
                move /y xxx.temp !fileName!.txt
        )
)
endlocal
pause
复制代码

我太菜了..写了好多..并且有一个问题，如果一个标题在多个log内存在，会有异常，也算变相查重了吧，如果没需要，我再试试修改

xp3000

谢谢，如果碰到两首诗同名会出错，怎么修改

hfxiang

如不介意，可用第3方工具gawk（ http://bcn.bathome.net/tool/4.1.0/gawk.exe ）来实现

gawk "NR==FNR{text[$0] = NR \"、《\" $0 \"》\";next}{if($0 in text){$0=text[$0]}}1" 文本.log 文本.txt>修改后的文本.txt
复制代码

注意，要确保“文本.log” 及 “文本.txt” 已保存为ANSI编码格式