WHY

<# :
@echo off
md "%~dp0Result" 2>nul
PowerShell -C ". ([ScriptBlock]::Create((gc -Literal '%~f0') -join \"`r`n\")) '%~dp0' '%~dp0Result'"
pause & exit
#>

param($myPath, $dstPath);

forEach( $file In (dir -Literal $myPath -Filter *.log) ){
    $logFile = $file.FullName;                             #log文件名
    $txtFile = $file.FullName -replace '\.log$', '.txt';   #txt文件名
    if( ![IO.File]::Exists($txtFile) ){ continue; }        #判断txt文件是否存在

    $Hash = @{}
    $arr1 = gc -Literal $logFile -ReadCount 0;             #log文本存入数组arr1
    for($i=0; $i -lt $arr1.Count; $i++){                   #遍历数组arr1
        if($arr1[$i] -ne '' -and !$Hash.ContainsKey($arr1[$i])){  #删除空行、重复行
            $Hash.Add($arr1[$i], $true);                   #存入哈希表
        }
    }
        
    $arr2 = gc -Literal $txtFile -ReadCount 0;             #txt文本存入数组arr2
    $n = 0;
    for($i=0; $i -lt $arr2.Count; $i++){                   #遍历数组arr2
        $curStr = $arr2[$i];                               #当前行
        if($Hash.ContainsKey($curStr) -and $curStr -ne $preStr){
            $arr2[$i] = '' + ++$n + '、《' + $curStr + '》';
        }
        $preStr = $curStr;                                 #上一行
    }

    $dstFile = $dstPath + '\' + $file.BaseName + '.txt';   #目标文件名
    [IO.File]::WriteAllLines($dstFile, $arr2, [Text.Encoding]::Default); #保存
}
复制代码

xp3000

谢谢大神，学习了

hfxiang

回复 14# xp3000


    试试这个

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

terse

@echo off
rem 所有文件存为ANSI编码
for /f "delims=" %%f in ('dir /b *.log') do (
     setlocal enabledelayedexpansion
     for /f "usebackq tokens=*" %%i in ("%%f") do set ""%%i"=1"
     if exist "%%~nf.txt" (
          (for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%%~nf.txt"') do (
               if defined "%%b" (
                    if "!m!" == "!n!" (
                         set/a n+=1,m=0
                         echo;!n! 《%%b》
                    ) else echo;%%b

               )  else echo;%%b&set m=!n!
          ))>"temp_%%f"
     ) else echo;%%f对应文件不存在
     endlocal
)
pause
复制代码

xp3000

回复 19# terse
谢谢，可以用

xp3000

回复 18# hfxiang

还是会出问题，像8楼一样
文本.txt

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

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

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

文本.log

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

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