投稿日 | : 2006/06/29(Thu) 13:23 |
投稿者 | : Blue |
Eメール | : |
URL | : |
タイトル | : Re^3: 文字コード:UPF-8のファイル->UTF-8でした |
では、ADODB.Streamをつかってみましょう。
簡単なサンプル)
Const adTypeText = 2
Const adReadLine = -2
Dim objStream As Object
Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeText ' テキスト形式
objStream.Charset = "UTF-8" ' 文字コードは UTF-8
objStream.LoadFromFile "ファイルのパス"
' ファイルの終わりまで一行ずつ読み込む
Do Until objStream.EOS
Debug.Print objStream.ReadText(adReadLine)
Loop
objStream.Close
Set objStream = Nothing