大量の GB2312 エンコードのファイルを UTF-8 エンコードに変換する必要がある仕事で、Baidu で非常に便利な VBS を見つけました。使用方法も非常に簡単で、プロジェクトに ConvertFile を追加して呼び出すだけです。ただし、Adodb.Stream を使用して生成された UTF-8 ファイルには、3 バイトの BOM が含まれていることに注意する必要があります。PHP などの BOM を必要としないファイルを処理する場合は、注意が必要です。
Function ConvertFile(FileUrl)
SrcCode = "gb2312" ‘ソースエンコード
DestCode = "utf-8" ‘目標エンコード
Call WriteToFile(FileUrl, ReadFile(FileUrl, SrcCode), DestCode)
End Function
Function ReadFile(FileUrl, CharSet)
Dim Str
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.Mode = 3
stm.CharSet = CharSet
stm.Open
stm.LoadFromFile FileUrl
Str = stm.readtext
stm.Close
Set stm = Nothing
ReadFile = Str
End Function
Function WriteToFile(FileUrl, Str, CharSet)
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.Mode = 3
stm.CharSet = CharSet
stm.Open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush
stm.Close
Set stm = Nothing
End Function
参考 http://www.cnblogs.com/fanzhidongyzby/p/3782143.html http://blog.csdn.net/caikanxp/article/details/5614901