投稿日 | : 2003/12/01(Mon) 19:30 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re^4: EUC→SJIS |
> ADODB.streamで検索などをしたのですが、方法がみつからないのです(。。
ADOのヘルプを見てみましょう。
> With CreateObject("ADODB.Stream")
> .Open
> .Charset = "euc-jp"
> .LoadFromFile "C:\aa\bachi.txt"
Text1.Text = .ReadText() '☆ 追加 ☆
> .Close
> End With