【已解决】批处理怎样根据关键词列表，将文本中包含“关键词”的“行”进行标注？

屡败屡战

我有一个“关键词列表 list.txt”，文件内容是关键词，一行一个。我想在当前文件夹（包含孑文件夹）进行搜索，
若文件夹里的文件的文本内容中包含“关键词”的“行”，就在其行前植入一个“￥”字符（以此作为标记）

屡败屡战

请问，有哪位大绅见过这样的问题吗？

WHY

1. @echo off
   
2. 
   
3. rem 存放关键词的列表文件：List.txt，与批处理位于同一目录
   
4. set "ListFile=%~dp0List.txt"
   
5. 
   
6. for /f "delims=" %%i in ('dir /b /s *.txt ^| find /i /v "%ListFile%"') do (
   
7.         setlocal enabledelayedexpansion
   
8.         for /f "delims=:" %%j in ('findstr /n /i /g:"%ListFile%" "%%i"') do set "_%%j=￥"
   
9. 
   
10.         (for /f "delims=" %%j in ('findstr /n .* "%%i"') do (
    
11.                 set "s=%%j"
    
12.                 for /f "delims=:" %%k in ("%%j") do (echo;!_%%k!!s:*:=!)
    
13.         )) > "%%i.Log"
    
14. 
    
15.         endlocal
    
16.         rem move "%%i.Log" "%%i"
    
17. )
    
18. 
    
19. pause

复制代码

WHY

PowerShell 脚本，思路完全相同，优点是可以同时处理不同编码的文件

1. $MyPath = $MyInvocation.MyCommand.Path -replace '[^\\]+$';   #脚本路径
   
2. $ListFile = $MyPath + 'List.txt';                            #存放关键词的列表文件
   
3. 
   
4. $key = type $ListFile | ?{ ![String]::IsNullOrEmpty($_) };   #关键词数组
   
5. $arr = dir -Path $MyPath -Include *.txt -Recurse | ?{ $_.FullName -ne $ListFile };
   
6. $Len = $arr.Count;
   
7. 
   
8. For($i=0; $i -lt $Len; $i++) {
   
9.     $file = $arr[$i].FullName;
   
10.     $hash = @{};
    
11.     $n = 0;
    
12. 
    
13.     Select-String -Path $file -Pattern $key -SimpleMatch -Encoding Default | %{
    
14.         $Line = ($_ -split ':')[2];            #关键词所在的行数
    
15.         $hash[$Line] = '￥';                   #赋值哈希表
    
16.     }
    
17. 
    
18.     $txt = type $file | %{ $hash['' + (++$n)] + $_ };  #加标记
    
19.     #sc -Path ($file + '.Log') -Value $txt;             #写入文本
    
20.     $txt
    
21. }
    
22. 
    
23. Read-Host 'Done'

复制代码

WHY

bat + js

1. @if(0)==(0) echo off
   
2. dir /b /s *.txt | find /i /v "%~dp0List.txt" | cscript //nologo //e:jscript "%~f0"
   
3. pause & goto :EOF
   
4. @end
   
5. 
   
6. var fso = new ActiveXObject('Scripting.FileSystemObject');
   
7. var s = '';
   
8. var f = fso.OpenTextFile('List.txt', 1);
   
9. 
   
10. while(!f.AtEndOfStream){
    
11.     var strLine = f.ReadLine();
    
12.     if(strLine != '') s += '|' + strLine.replace(/[\\|+.^$*?()[{]/g, '\\$&');
    
13. }
    
14. 
    
15. var reg = new RegExp('^.*(' + s.substr(1) + ')', 'gm');
    
16. 
    
17. while(!WSH.StdIn.AtEndOfStream){
    
18.     var strFile = WSH.StdIn.ReadLine();
    
19.     var str = fso.OpentextFile(strFile, 1).ReadAll().replace(reg, '￥$&');
    
20.     fso.OpenTextFile(strFile + '.Log', 2, 1).Write(str);
    
21. }
    

复制代码

改一下，/-]} 这四个字符不需要转义

屡败屡战

在此表示感谢论坛老师们的帮助，谢谢了！！