VBScriptでSJISの文字列を、UTF8に変換し、
UTF8で設定されたMySQLへ保存したい。
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ベストアンサー
- 回答日時:
ご回答ありがとうございます。
「VBScriptではバイナリデータを標準出力することが出来ないみたいです(テキストなら出来る)。
また、直接的な変換関数もなく、Asc,Hex,Valを組み合わせば出来そうなのですが・・・出来なかったです。」
とあるということは、やはり、無理なんですね
No.3
- 回答日時:
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
- 回答日時:
なんかベクターで見かけたな。
http://www.vector.co.jp/soft/win95/util/se319987 …
http://www.vector.co.jp/soft/winnt/util/se429977 …
参考になると思いますよ
この回答への補足
早々のご回答ありがとうございます。
ファイル変換でのUTF8エンコードでなく、
文字列をエンコードするのは、
そもそも無理なことなのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- JavaScript switch文のswitch(n)の部分を複数の値にするか、if文に変えてほしいです。 1 2022/07/27 17:18
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- PHP phpのメールフォームの完了画面でメール受信のコードを書いています。 1 2023/05/31 11:39
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- HTML・CSS <meta charset="utf-8"><!-- 文字化け防止ユニコード --> ?最近モバイル 1 2022/12/11 04:27
- JavaScript セレクトボックスを2つ設けて選択して初めてメッセを表示 1 2022/07/27 12:15
- JavaScript HTMLでJavaScriptを使ってパスワードの強化判定のプログラムを作成しています。 一通り作っ 2 2022/10/19 01:41
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
tkinter widget ことえり変換で...
-
文字コードの%E3%80%とは何です...
-
エクセルでの漢字(全角ひらが...
-
VBでテキストボックスに
-
strtol関数で文字列の有無を判...
-
URLが日本語なのになぜ表示...
-
漢数字の変換
-
iTunesの文字化けを元の日本語...
-
文字コードの変換によるレイア...
-
クリーンアップやデフラグについて
-
ローマ数字の変換をしたいのですが
-
Delphiの型変換
-
VBScript 全角英数記号→半角英...
-
Excelで半角カナのみを全角に変...
-
プログラミングでは、半角括弧...
-
vba アクティブシートの名前変...
-
CSVファイルの中で、「 , 」カ...
-
「カンマ」と「コンマ」は同じ...
-
何故、日本は未だに数字を3桁...
-
カンマ区切り
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
CString から LPCTSTRの型に変換
-
文字コードの%E3%80%とは何です...
-
SJIS->UTF8->SJISコード変換に...
-
Visual Studio プロパティペー...
-
テキストをhtml変換するには
-
VBScript文字列をSJISからUTF8...
-
文字化けしてしまって困っています
-
LINUX上でシリアル通信(C++)
-
シャープ(#)の受け渡し
-
【PHP】全角記号を半角記号...
-
エクセルでの漢字(全角ひらが...
-
URLが日本語なのになぜ表示...
-
CString型からdouble型への変換
-
ファイル名の右側を変更したい ...
-
SQLのデータで半角カナを全角に...
-
Excelで半角カナのみを全角に変...
-
改行を含んだ文字列を正規表現...
-
VB6にも「ToString」ってあり...
-
ウイザードからのVBAでクエリー...
おすすめ情報