UTF-8でテキストファイルを読み込む

サンプルソース

Set objStream = CreateObject("ADODB.Stream")

' 文字コードを設定
objStream.Charset = "UTF-8"
' ファイルオープン
objStream.Open

' 入力ファイルを読み込む
objStream.LoadFromFile "c:\a.txt"
' データを変数に格納する
strData = objStream.ReadText(-2)

' ファイルクローズ
objStream.Close

Set objStream = Nothing

解説

UTF-8でテキストファイルを読み書きする場合、ADODB.Streamを使用します。

Charsetで文字コードを指定します。既定値は "Unicode"です。
"Shift_JIS"や"EUC"などの文字コードが指定できます。

ReadText(-2)でテキスト全文を、ReadText(-1)でテキスト1行を読み込むことができます。

※FileSystemObjectのCreateTextFileの第3引数をtrueにするとUTF-16のファイルが作成できます。


ファイル操作





WSH講座


Copyright (C) WSH@Workshop All rights reserved.