項目

Sift_JisからEUC-JPへファイルを変換する

概要

ADODB.Streamを使用して文字コードを変換できます。
サンプルでは｢Shif_Jis｣→｢Euc-Jp｣ですが、逆もできます。
また、utf-8などにも変換できます。

例

Option Compare Database
Option Explicit


'--------------------------------------------------------
' 名称    : TestToEuc
'
' 機能    : ShiftJisのファイルをからEUCへ変換する
'--------------------------------------------------------
Sub TestToEuc()

    Dim eucStream
    Dim sjisStream
    
    'インスタンス生成
    Set sjisStream = CreateObject("ADODB.Stream")
    Set eucStream = CreateObject("ADODB.Stream")
    
    'キャラセット設定
    sjisStream.Charset = "Shift_JIS"
    eucStream.Charset = "EUC-JP"
    
    'ストリームを開く
    Call sjisStream.Open
    Call eucStream.Open
    
    'Sift-Jisファイルを設定
    Dim loadFilePath As String
    Dim saveFilePath As String
    
    loadFilePath = "c:\temp\sjis.txt" '変換前Sift-Jis
    saveFilePath = "c:\temp\euc.txt"  '変換後Euc
    
    'ファイルロード
    Call sjisStream.LoadFromFile(loadFilePath)
    
    'Eucストリームへコピー
    Call sjisStream.CopyTo(eucStream)
    
    'Eucで保存
    Call eucStream.SaveToFile(saveFilePath)
    
    'ストリームクローズ
    sjisStream.Close
    eucStream.Close
    
    '開放
    Set sjisStream = Nothing
    Set eucStream = Nothing
    
End Sub