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

Batcher

【问题描述】

C:\Test\U2A 文件夹下有多个txt文件，假设文本内容都是：

bbs.bathome.net
批处理之家论坛
www.bathome.net
复制代码

有一部分txt文件是ANSI编码。
有一部分txt文件是UTF-8编码。
有一部分txt文件是带有BOM的UTF-8编码。
要求全部转换成ANSI编码。

Batcher

【解决方案】

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

@echo off
cd /d "%~dp0"
set "FolderStageU=TempUTF8BOM"
set "FolderOutA=FinalANSI"
md "%FolderStageU%" 2>nul
md "%FolderOutA%" 2>nul
for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
    echo %%a
    for /f "delims=" %%b in ('powershell -f CheckCode.ps1 "%%a"') do (
        if "%%b" == "UTF-8BOM" (
            powershell "[IO.File]::WriteAllLines('%FolderStageU%\%%a',(Get-Content '%%a' -Raw))"
            iconv.exe -f UTF-8 -t GB2312 "%FolderStageU%\%%a" > "%FolderOutA%\%%a" 2>nul
        ) else (
            iconv.exe -f UTF-8 -t GB2312 "%%a" > "%FolderOutA%\%%a" 2>nul
            if errorlevel 1 (
                iconv.exe -t GB2312 "%%a" > "%FolderOutA%\%%a"
            )
        )
    )
)
复制代码

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

function Get-FileEncoding {
    [CmdletBinding()]
    param (
        [Parameter(Mandatory = $true)]
        [ValidateScript({ Test-Path $_ })]
        [string]$Path
    )
    $byte = Get-Content -Encoding Byte -ReadCount 2 -TotalCount 2 -Path $Path
    if ($byte[0] -eq 0xEF -and $byte[1] -eq 0xBB) {
        return 'UTF-8BOM'
    } elseif ([System.Text.Encoding]::UTF8.GetString($byte) -match '[^\x00-\x7F]') {
        return 'UTF-8'
    } else {
        return 'ANSI'
    }
}
$StrEncode = Get-FileEncoding -Path $Args[0]
Write-Host "$StrEncode"
复制代码

下载命令行工具 iconv.exe 放在 C:\Test\U2A 文件夹下：
http://bcn.bathome.net/s/tool/index.html?key=iconv

执行 Run.bat 脚本即可。

Batcher

回复 3# Five66


    能否把你使用PowerShell脚本完成相同功能的完整代码发出来给大家学习一下？

Batcher

回复 5# hnfeng


    请把遇到问题的UTF-8_BOM文件上传到网盘，我试试。