批量替换UTF-8编码文档的批处理求教

yx03040860

请问大神 如何写一个bat

在一个文件夹下(包括子文件夹)

所有的txt文档的内容里 批量替换汉字 例

我希望 同时进行

一  替换成  三
男  替换成  女
山  替换成  水
我  替换成  你
(等等 有很多字)

注：这些txt文档都是 UTF-8 编码的

hlzj88

1. @echo off&setlocal enabledelayedexpansion
   
2. del /q test*.ini>nul 2>nul
   
3. md 已完成>nul 2>nul
   
4. md 原文件>nul 2>nul
   
5. echo.
   
6. echo 流程：先转码，后替换。保留原文件。可随时停止。
   
7. pause>nul
   
8. for /f "delims=*" %%g in ('dir /b/on *.txt') do (
   
9.     iconv -c -f utf-8 -t gb2312 "%%g" test.ini
   
10.   for /f "delims=" %%c in ('type "test.ini"') do (
    
11.     set "foo=%%c"
    
12.     set foo=!foo:原来的=替换后的!
    
13.     set foo=!foo:原来的=替换后的!
    
14.     echo 如上多次重复并根据需要修改
    
15.     echo foo
    
16.    )>>test1.ini
    
17.    move /y test1.ini 已完成\%%g>nul 2>nul
    
18.    move /y "%%g" 原文件\%%g>nul 2>nul
    
19.    del /q test*.ini
    
20.     )
    
21. echo  全部完成
    
22. pause
    

复制代码

未测试，注意保护原文件。和txt放一起使用。

ivor

1. dir *.txt -Recurse -File| %{((gc $_ -Encoding UTF8 -Raw) `
   
2. -Replace "一","三" `
   
3. -Replace "男","女"
   
4. )| Set-Content -Path $_ -Ver -Encoding UTF8}

复制代码

替换关键字需要手动添加，一个关键字一行例如

-Replace "一","三" `

yhcfsr

1. <# :********注释区**********
   
2. @echo off
   
3. more +7 "%~f0" >"%~n0.ps1"
   
4. powershell -Mta -NoLogo -NoProfile -ExecutionPolicy bypass -File "%~n0.ps1"
   
5. del /f /q "%~n0.ps1"
   
6. ********注释区**********#>
   
7. 
   
8. #************用户设置区**************
   
9. $THREADS=10;#最大线程数
   
10. $SrcDir=$PSScriptRoot;#源目录(示例为脚本目录)
    
11. $ListFile='keylist.txt';#关键字列表文件,UTF8编码(示例与脚本同目录,否则当用全路径)
    
12. #************************************
    
13. 
    
14. $ScriptBlock={
    
15.     Param($file,$arrKeyList)
    
16.        
    
17.     [system.collections.Arraylist] $result=@();
    
18.         $content=[io.file]::ReadAllLines($file);
    
19.         foreach($line in $content)
    
20.         {
    
21.                 foreach($elem in $arrKeyList)
    
22.                 {
    
23.                         $line=$line -replace $elem[0],$elem[1];
    
24.                 }
    
25.                 [void] $result.Add($line);
    
26.         }
    
27.         [io.file]::WriteAllLines($file,$result);#输出结果
    
28. }
    
29. 
    
30. #自检
    
31. if(!(test-path $SrcDir)) {"目录不存在: `"$SrcDir`"";pause;exit}
    
32. if(!(test-path $ListFile)) {"文件不存在: `"$ListFile`"";pause;exit}
    
33. 
    
34. $time=Get-Date;
    
35. cd $SrcDir;
    
36. $Files=dir *.txt -r  -Exclude $ListFile;#扫描文件
    
37. [system.collections.Arraylist] $arrKeyList=@();
    
38. $KeyList=[io.file]::ReadAllLines($ListFile);#读取列表文件
    
39. foreach($line in $KeyList){[void] $arrKeyList.Add($line -split "`t");}
    
40. 
    
41. #创建多线程
    
42. $RunspacePool = [RunspaceFactory]::CreateRunspacePool(1, $THREADS);
    
43. $RunspacePool.Open();
    
44. $Jobs = @();
    
45. 
    
46. foreach($file in $Files){
    
47.     $Job = [powershell]::Create().AddScript($ScriptBlock).AddArgument($file).AddArgument($arrKeyList);
    
48.     $Job.RunspacePool = $RunspacePool;
    
49.     $Jobs+=New-Object PSObject -Property @{
    
50.         Pipe=$Job;
    
51.         Result=$Job.BeginInvoke();
    
52.     }
    
53. }
    
54. 
    
55. #等待所在线程结束
    
56. $count=$Files.Count;
    
57. do{
    
58.         $completed=0;
    
59.         cls;
    
60.         foreach($job in $Jobs)
    
61.         {
    
62.                 if($job.Result.IsCompleted){$job.Pipe.EndInvoke($job.Result); $completed+=1;}
    
63.         }
    
64. 
    
65.         $t="{0:0.00}" -f ((Get-Date)-$time).TotalSeconds
    
66.         "进度: $completed/$count        已用时:$($t) 秒"
    
67.         start-sleep 1
    
68. }while($completed -lt $count)
    
69. 
    
70. pause
    

复制代码