| 投稿日 | ： 2006/06/29(Thu) 13:33 |
| 投稿者 | ： むっちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 【解決】Re^4: 文字コード：UPF-8のファイル->UTF-8でした |
Blueさん
ご丁寧にサンプルコードまで載せていただいて．．．
これで明日のデモに間に合いそうです。
ありがとうございました。
> では、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