@echo off
set "file=D:\test.txt"
powershell ^
    $txt = gc -LiteralPath '%file%';^
    $Utf8NoBomEncoding = New-Object System.Text.UTF8Encoding $False;^
    [System.IO.File]::WriteAllLines('%file%', $txt, $Utf8NoBomEncoding);
pause
复制代码

Const adTypeBinary = 1
Const adTypeText = 2
Const adSaveCreateOverWrite = 2

ConvCharSet "C:\boot.ini", "gbk", "utf-8"

Function ConvCharSet(sFileName, srcCharSet, dstCharSet)
    Dim ADOStrm
    Dim text
    Dim binData
    Set ADOStrm = CreateObject("ADODB.Stream")

    ADOStrm.CharSet = srcCharSet
    ADOStrm.Type = adTypeText
    ADOStrm.Open
    ADOStrm.LoadFromFile sFileName
    text = ADOStrm.ReadText(-1)

    ADOStrm.Position = 0
    ADOStrm.CharSet = dstCharSet
    ADOStrm.WriteText text
    ADOStrm.SetEOS

  if 1 then
    ADOStrm.Position = 0
    ADOStrm.Type = adTypeBinary
    ADOStrm.Position = 3
    binData = ADOStrm.Read(-1)

    ADOStrm.Position = 0
    ADOStrm.Write binData
    ADOStrm.SetEOS
  end if

    ADOStrm.SaveToFile sFileName & "_" & dstCharSet, adSaveCreateOverWrite
    ADOStrm.Close
    Set ADOStrm = Nothing
ConvCharSet = text
End Function
复制代码