WSH/UTF-8変換
をテンプレートにして作成
Search in
this wiki
and
or
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
WSHやExcel VBAマクロでファイルの文字コード変換をしたい...
*** ファイルの文字コードをShift-JISからUTF-8に変える [#n6...
Sub SJIS2UTF8(FilePath As String)
'元のファイルストリーム(Shift_JIS)
Set stream1 = CreateObject("ADODB.Stream")
With stream1
.Type = 2 'adTypeBinary=1, adTypeText=2
.Charset = "shift-jis"
.Open
.LoadFromFile FilePath
.Position = 0
End With
'UTF-8化
Set stream2 = CreateObject("ADODB.Stream")
With stream2
.Type = 2 'adTypeBinary=1, adTypeText=2
.Charset = "utf-8"
.Open
End With
stream1.CopyTo stream2
'UTF-8ファイルの先頭BOMを削除
Set stream3 = CreateObject("ADODB.Stream")
With stream3
.Type = 1 'adTypeBinary=1, adTypeText=2
.Open
End With
stream2.Position = 3
stream2.CopyTo stream3
stream3.Savetofile FilePath, 2 'adSaveCreateNotExist=...
stream3.Close
stream2.Close
stream1.Close
End Sub
終了行:
WSHやExcel VBAマクロでファイルの文字コード変換をしたい...
*** ファイルの文字コードをShift-JISからUTF-8に変える [#n6...
Sub SJIS2UTF8(FilePath As String)
'元のファイルストリーム(Shift_JIS)
Set stream1 = CreateObject("ADODB.Stream")
With stream1
.Type = 2 'adTypeBinary=1, adTypeText=2
.Charset = "shift-jis"
.Open
.LoadFromFile FilePath
.Position = 0
End With
'UTF-8化
Set stream2 = CreateObject("ADODB.Stream")
With stream2
.Type = 2 'adTypeBinary=1, adTypeText=2
.Charset = "utf-8"
.Open
End With
stream1.CopyTo stream2
'UTF-8ファイルの先頭BOMを削除
Set stream3 = CreateObject("ADODB.Stream")
With stream3
.Type = 1 'adTypeBinary=1, adTypeText=2
.Open
End With
stream2.Position = 3
stream2.CopyTo stream3
stream3.Savetofile FilePath, 2 'adSaveCreateNotExist=...
stream3.Close
stream2.Close
stream1.Close
End Sub
ページ名:
![[Return to Top Page]](image//logo.png "[Return to Top Page]"){kind=logo}
