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

@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"
            )
        )
    )
)
复制代码

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"
复制代码

md ansitxt
for %%i in (*.txt) do coder -c auto ansi -f "%%i">"ansitxt\%%i"
复制代码

gc ".\11.txt" -Encoding utf8|sc -Path 22.txt -Encoding Default
复制代码

gc ".\11.txt" -Encoding utf8|sc -Path 22.txt -Encoding String
复制代码

$byte =[io.file]::ReadAllBytes($Args[0])

$d=[Text.DecoderReplacementFallback]::new('?')
$e=[Text.EncoderReplacementFallback]::new('?')
$cgbk=[text.encoding]::GetEncoding(936,$e,$d)
$cutf8=[text.encoding]::GetEncoding(65001,$e,$d)

$StrEncode='ANSI'

if($byte.length -le 512){$l=$byte.length} else{$l=512}
echo "test $l bytes"

if ($byte[0] -eq 0xEF -and $byte[1] -eq 0xBB){
$StrEncode='UTF-8BOM'
} else{
$b=$cgbk.GetBytes($cgbk.GetString($byte,0,$l))
if($l -eq 512){$l-=16}
for($i=0;$i -lt $l;$i++){
if($b[$i] -ne $byte[$i] ){$StrEncode='UTF-8';break}
}
}

echo "maybe $StrEncode"

if($StrEncode -eq 'UTF-8BOM'){
echo "convert $StrEncode to ANSI"
[io.file]::WriteAllText($Args[1],$cutf8.GetString($byte,3,$byte.length-3),$cgbk)
}
if($StrEncode -eq 'UTF-8'){
echo "convert $StrEncode to ANSI"
[io.file]::WriteAllText($Args[1],$cutf8.GetString($byte,0,$byte.length),$cgbk)
}
if($StrEncode -eq 'ANSI'){}
echo "`r`n"
复制代码

@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
powershell -ExecutionPolicy bypass -f ChangeCoding.ps1 "%%~fa" "%~dp0%FolderOutA%\%%a"
)
pause
复制代码