[已解决]批处理对比两个文本，如何给一个文本添加一次顺序序号？

WHY

1. <# :
   
2. @echo off
   
3. md "%~dp0Result" 2>nul
   
4. PowerShell -C ". ([ScriptBlock]::Create((gc -Literal '%~f0') -join "`r`n")) '%~dp0' '%~dp0Result'"
   
5. pause & exit
   
6. #>
   
7. 
   
8. param($myPath, $dstPath);
   
9. 
   
10. forEach( $file In (dir -Literal $myPath -Filter *.log) ){
    
11.     $logFile = $file.FullName;                             #log文件名
    
12.     $txtFile = $file.FullName -replace '\.log$', '.txt';   #txt文件名
    
13.     if( ![IO.File]::Exists($txtFile) ){ continue; }        #判断txt文件是否存在
    
14. 
    
15.     $Hash = @{}
    
16.     $arr1 = gc -Literal $logFile -ReadCount 0;             #log文本存入数组arr1
    
17.     for($i=0; $i -lt $arr1.Count; $i++){                   #遍历数组arr1
    
18.         if($arr1[$i] -ne '' -and !$Hash.ContainsKey($arr1[$i])){  #删除空行、重复行
    
19.             $Hash.Add($arr1[$i], $true);                   #存入哈希表
    
20.         }
    
21.     }
    
22.         
    
23.     $arr2 = gc -Literal $txtFile -ReadCount 0;             #txt文本存入数组arr2
    
24.     $n = 0;
    
25.     for($i=0; $i -lt $arr2.Count; $i++){                   #遍历数组arr2
    
26.         $curStr = $arr2[$i];                               #当前行
    
27.         if($Hash.ContainsKey($curStr) -and $curStr -ne $preStr){
    
28.             $arr2[$i] = '' + ++$n + '、《' + $curStr + '》';
    
29.         }
    
30.         $preStr = $curStr;                                 #上一行
    
31.     }
    
32. 
    
33.     $dstFile = $dstPath + '\' + $file.BaseName + '.txt';   #目标文件名
    
34.     [IO.File]::WriteAllLines($dstFile, $arr2, [Text.Encoding]::Default); #保存
    
35. }

复制代码

xp3000

谢谢大神，学习了

hfxiang

回复 14# xp3000


    试试这个

1. 
   
2. 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

1. @echo off
   
2. rem 所有文件存为ANSI编码
   
3. for /f "delims=" %%f in ('dir /b *.log') do (
   
4.      setlocal enabledelayedexpansion
   
5.      for /f "usebackq tokens=*" %%i in ("%%f") do set ""%%i"=1"
   
6.      if exist "%%~nf.txt" (
   
7.           (for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%%~nf.txt"') do (
   
8.                if defined "%%b" (
   
9.                     if "!m!" == "!n!" (
   
10.                          set/a n+=1,m=0
    
11.                          echo;!n! 《%%b》
    
12.                     ) else echo;%%b
    
13. 
    
14.                )  else echo;%%b&set m=!n!
    
15.           ))>"temp_%%f"
    
16.      ) else echo;%%f对应文件不存在
    
17.      endlocal
    
18. )
    
19. pause

复制代码

xp3000

回复 19# terse
谢谢，可以用

xp3000

回复 18# hfxiang

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

1. 岳阳楼
   
2. 春色醉巴陵，阑干落洞庭。
   
3. 水吞三楚白，山接九疑青。
   
4. 空阔鱼龙气，婵娟帝子灵。
   
5. 何人夜吹笛，风急雨冥冥。
   
6. 
   
7. 岳阳楼
   
8. 岳阳楼
   
9. 岳阳楼上日衔窗，影到深潭赤玉幢。
   
10. 怅望残春万般意，满棂湖水入西江。
    
11. 
    
12. 黄鹤楼
    
13. 　　昔人已乘黄鹤去，此地空余黄鹤楼。
    
14. 　　黄鹤一去不复返，白云千载空悠悠。
    
15. 　　晴川历历汉阳树，芳草萋萋鹦鹉洲。
    
16. 　　日暮乡关何处是，烟波江上使人愁。

复制代码

文本.log

1. 岳阳楼
   
2. 岳阳楼
   
3. 黄鹤楼
   

复制代码

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