EUC_JPデータをSHIFT-JISに変換するには? (ID:83359)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6なら、ADO(2.5以上)を参照設定して、こんな感じです。 (参照設定せず、レイトバインドで処理しても良いですけど) 'Streamオブジェクトの作成 Set Stm = New ADODB.Stream Stm.Open 'バイナリモードで書き込み Stm.Type = adTypeBinary Stm.Write B 'バイト配列 'モード変更のため、先頭に移動 Stm.Position = 0 'モードをEUCテキストにして読み込み Stm.Type = adTypeText Stm.Charset = "euc-jp" S = Stm.ReadText(adReadAll) 'Streamオブジェクトの解放 Stm.Close Set Stm = Nothing