VB6でUTF8ファイルを作成するには？

解決

ユニコ 2005-01-17 21:00:33 No: 118953 IP: [192.*.*.*]

漢字をUNICODEで出力しそれ以外をアスキーで出力するため
UTF-8ファイルを作成したいのですが方法がわかりません。
CreateTextFileでのファイル作成時に「unicode」オプションを指定すると
普通のユニコードファイルになってしまい困っております。
「unicode」オプションを指定せずにStrConv

どうかよろしくお願いします。

編集削除

ユニコ 2005-01-17 21:03:46 No: 118954 IP: [192.*.*.*]

途中で送信してしまいました。
すみません。

↓途中の文章の続きです。。。
***************************
「unicode」オプションを指定せずにStrConvでユニコードにしても
文字化けをして表示されてしまいます。
*************************
よろしくお願いします。

編集削除

いな 2005-01-17 21:41:20 No: 118955 IP: [192.*.*.*]

ぐぐってみました。
http://www.geocities.co.jp/SilkRoad/4511/vb/utf8.htm

編集削除

ユニコ 2005-01-17 22:00:59 No: 118956 IP: [192.*.*.*]

すばらしいですね。
いなさん！
ありがとうございます！！！！

編集削除

いな 2005-01-17 22:15:22 No: 118957 IP: [192.*.*.*]

>>私も、使えそうな共通関数が増えてよかったです。

HP中にも書いてあり実際に試してみたのですが、
Windows NT 4.0は試してないのですが、
Windows NT 5.0とWindows95ではやはり、動かなかったのでご注意を・・・。

編集削除

魔界の仮面弁士 2005-01-18 08:27:12 No: 118958 IP: [192.*.*.*]

VB6なら、ADODB.Streamオブジェクトを使う事ができますよ。
Charsetプロパティに "UTF-8" を指定すればOKです。

# すでに解決済みなので、今更ですけど。

With CreateObject("ADODB.Stream")  'または With New ADODB.Stream
    .Charset = "UTF-8"
    .Open
    .WriteText "I'm 魔界の仮面弁士."
    .SaveToFile "C:\UTF8.TXT"
    .Close
End With

編集削除

通りすがり 2006-03-05 01:28:10 No: 118959 IP: [192.*.*.*]

魔界の仮面弁士さんの方法の方がシンプルでよいですね。
使わせていただきます。

編集削除