人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBAでUTF-8形式のテキストを読み込むと、文字化けしてしまいました。
どのようにすれば正常に扱えるでしょうか。

具体的には、winHTTPライブラリを使用し、
http://store.apple.com/jp/variationSelection/FD532J/A?option.dimensionCapacity=16gb&option.dimensionColor=white_silver
このURLにリクエストを送ったところ、取得したResponseが文字化けしてしまいました。
おそらく文字形式UTF-8の、JSONデータだと思うのですが、どのようにすれば扱えるでしょうか。
ネット上のサンプルでこのような変換関数を作成してみましたが、上手くいきませんでした。
なにが悪いのでしょうか。

Function CONVERT_CHARSET(strHTML As String) As String

Dim SRC As Object
Dim DST As Object

Const adTypeText = 2

Set SRC = CreateObject("ADODB.Stream")
With SRC
.Open
.Charset = "UTF-8"
.Type = adTypeText
.writetext strHTML
.Position = 0
End With

Set DST = CreateObject("ADODB.Stream")
With DST
.Open
.Charset = "Unicode"
.Type = adTypeText
End With
SRC.CopyTo DST
DST.Position = 0


Debug.Print DST.readtext
CONVERT_CHARSET = DST.readtext()

SRC.Close
DST.Close
Set SRC = Nothing
Set DST = Nothing

End Function

●質問者: 匿名質問者
●カテゴリ:コンピュータ
○ 状態 :キャンセル
└ 回答数 : 0/0件

▽最新の回答へ

質問者から

自己解決できました。ありがとうございました。


関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ