ADODB.Streamで文字コードをutf-8にする (ID:102082)

名前

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

本文

> Googleマップの引数として渡す
どの引数でしょうか? また、Googleマップはどのように利用していますか?

これだけの情報では、SOAP ベースの通信で XML データを直接作ろうという
話なのか、あるいは単に HTTP GET の URL を作ろうとしているのかさえ
分かりませんし、その中のどの部分を指定しようとしているのかも見えません。

> そうしますと一度ファイルに保存するとかしないといけないのでしょうか。
保存先は ファイルでも Stream のままでも Byte() にしても良いですが、
最終的に渡したい「引数」の形式が分からないと答えられないです。

もし、その引数が文字列型なのだとしても、その形式が
分からない事には、変換のしようがありません。

"東京タワー"  …元の文字列そのまま
  "938C8B9E835E838F815B"  …16進数表記(Shift_JIS)
  "7167AC4EBF30EF30FC30"  …16進数表記(UTF-16)
  "E69DB1E4BAACE382BFE383AFE383BC"  …16進数表記(UTF-8)
  "%93%8C%8B%9E%83%5E%83%8F%81%5B"  …RFC1738(Shift_JIS)
  "%E6%9D%B1%E4%BA%AC%E3%82%BF%E3%83%AF%E3%83%BC" …RFC1738(UTF-8)
  "%u6771%u4EAC%u30BF%u30EF%u30FC" …VBScript Escape 関数(UTF-16)

やりたい事がハッキリとは分からないので、意図通りになっているかは
分かりませんが、VB6/VBA だとしたら、こういう書き方ができます。

src = "東京タワー"
Dim b() As Byte
b = StrConv(src, vbFromUnicode)

For Each v In b
    ret = ret & ("%" & Right("00" & Hex(v), 2))
Next

LAT = "35.65861"
LNG = "139.745447"
ZM = "18"

URL = "http://maps.google.co.jp/maps?q=" & LAT & "," & LNG & "(" & ret & ")&z=" & ZM
IE.Navigate URL

←解決時は質問者本人がここをチェックしてください。

戻る