VBScript文字列をSJISからUTF8へ関数

質問

VBScriptでSJISの文字列を、UTF8に変換し、
UTF8で設定されたMｙSQLへ保存したい。

SJISをUTF8に変換する関数をご教授いただきたいです。

以下をまるまるコピーさせていただき試してみたのですが、
文字化けしたメッセージが返されます。

Function TextToBin(TextData, CharSet)
Const adTypeBinary = 1
Const adTypeText = 2
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = adTypeText
objStream.Charset = CharSet
objStream.Open
objStream.WriteText TextData
objStream.Position = 0
objStream.Type = adTypeBinary
Select Case UCase(CharSet)
Case "UNICODE","UTF-16"
objStream.Position = 2
Case "UTF-8"
objStream.Position = 3
End Select
TextToBin = objStream.Read
objStream.Close
Set objStream = Nothing
End Function

msgbox TextToBin("テスト","UTF-8") ←文字化ける
msgbox TextToBin("テスト","UTF-16") ←文字化けない

回答No.2

lupin-333333 · ベストアンサー

失礼、こっちの問題か

http://chaichan.lolipop.jp/vbtips/VBMemo2008-11-27.htm

お礼

ご回答ありがとうございます。

「VBScriptではバイナリデータを標準出力することが出来ないみたいです（テキストなら出来る）。

また、直接的な変換関数もなく、Asc,Hex,Valを組み合わせば出来そうなのですが・・・出来なかったです。」

とあるということは、やはり、無理なんですね

回答No.3

redfox63

CScript.exeの リダイレクトでUnicodeを使用するオプションが //Uで提供されています

cscript sample.vbs //U > conv.txt
としてやると UTF-8のほうは ちゃんと変換されるようです

同じように MySQLに対するコマンドに対し パイプを使えばうまくいくのかも … 未確認

cscript sample.vbs //U | [MySQLのコマンド]

... 参考になれば幸いです

補足

test.vbsに質問の内容を記入し、
以下を実行してみましたが、
「cscript test.vbs//U」
メッセージボックス内容が文字化けしました。

せっかくご教授いただいたにもかかわらず、
私の知識が乏しく理解ができず申し訳ございません。

回答No.1

lupin-333333

なんかベクターで見かけたな。

http://www.vector.co.jp/soft/win95/util/se319987.html

http://www.vector.co.jp/soft/winnt/util/se429977.html

参考になると思いますよ

補足

早々のご回答ありがとうございます。

ファイル変換でのUTF8エンコードでなく、
文字列をエンコードするのは、
そもそも無理なことなのでしょうか？