[分享]批处理把UTF-8(有BOM或无BOM)编码文件转换成ANSI编码

Five66

回复 4# Batcher


    抄了下你的代码和内容、、、

以下代码以ANSI编码保存为 ChangeCoding.ps1 放在 C:\Test\U2A 文件夹下：

1. 
   
2. $byte =[io.file]::ReadAllBytes($Args[0])
   
3. 
   
4. $d=[Text.DecoderReplacementFallback]::new('?')
   
5. $e=[Text.EncoderReplacementFallback]::new('?')
   
6. $cgbk=[text.encoding]::GetEncoding(936,$e,$d)
   
7. $cutf8=[text.encoding]::GetEncoding(65001,$e,$d)
   
8. 
   
9. $StrEncode='ANSI'
   
10. 
    
11. if($byte.length -le 512){$l=$byte.length} else{$l=512}
    
12. echo "test $l bytes"
    
13. 
    
14. if ($byte[0] -eq 0xEF -and $byte[1] -eq 0xBB){
    
15. $StrEncode='UTF-8BOM'
    
16. } else{
    
17. $b=$cgbk.GetBytes($cgbk.GetString($byte,0,$l))
    
18. if($l -eq 512){$l-=16}
    
19. for($i=0;$i -lt $l;$i++){
    
20. if($b[$i] -ne $byte[$i] ){$StrEncode='UTF-8';break}
    
21. }
    
22. }
    
23. 
    
24. echo "maybe $StrEncode"
    
25. 
    
26. if($StrEncode -eq 'UTF-8BOM'){
    
27. echo "convert $StrEncode to ANSI"
    
28. [io.file]::WriteAllText($Args[1],$cutf8.GetString($byte,3,$byte.length-3),$cgbk)
    
29. }
    
30. if($StrEncode -eq 'UTF-8'){
    
31. echo "convert $StrEncode to ANSI"
    
32. [io.file]::WriteAllText($Args[1],$cutf8.GetString($byte,0,$byte.length),$cgbk)
    
33. }
    
34. if($StrEncode -eq 'ANSI'){}
    
35. echo "`r`n"
    

复制代码

以下代码以ANSI编码保存为 Run.bat 放在 C:\Test\U2A 文件夹下：
执行 Run.bat 脚本即可。

1. 
   
2. @echo off
   
3. cd /d "%~dp0"
   
4. set "FolderStageU=TempUTF8BOM"
   
5. set "FolderOutA=FinalANSI"
   
6. md "%FolderStageU%" 2>nul
   
7. md "%FolderOutA%" 2>nul
   
8. for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
   
9. echo %%a
   
10. powershell -ExecutionPolicy bypass -f ChangeCoding.ps1 "%%~fa" "%~dp0%FolderOutA%\%%a"
    
11. )
    
12. pause
    

复制代码