VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -