日本語をURL化 ごはん→%E3%81%94%E3%81%AF%E3%82%93

たとえばgoogleでごはんと検索すると
http://www.google.co.jp/search?hl=ja&q=ごはん

ではなく

http://www.google.co.jp/search?hl=ja&q=%E3%81%94 …

となりますよね。
この%E3%81%94%E3%81%AF%E3%82%93部分を生成したいのですが、
例）textboxに日本といれてボタンをおすと%E6%97%A5%E6%9C%ACと表示される。

これはどのようにコーディングすればよろしいでしょうか？
教えてください。お願いします。

No.3 回答者： KenKen_SP 回答日時： 2006/10/17 14:50

こんにちは。

KenKen_SP です。

VB6.0 以前または VBA ならば次の関数でできます。

' 文字列を URL エンコードして返す
Public Function UrlEncode(ByVal strText As String) As String

　　If strText = "" Then Exit Function
　　With CreateObject("ScriptControl")
　　　　.Language = "JScript"
　　　　With .CodeObject
　　　　　　UrlEncode = .encodeURI(strText)
　　　　End With
　　End With

End Function

No.2 回答者： naganaga_001 回答日時： 2006/10/17 11:18

お世話になります。

プロジェクトを
System.Web 名前空間を参照するようにして、
System.Web.HttpUtility の
UrlEncode メソッド を使うのはいかがでしょう。

参考URL：http://msdn2.microsoft.com/ja-jp/library/4fkewx0 …

No.1 回答者： Yeti21 回答日時： 2006/10/17 10:55

URLエンコードですね。

ルールは以下の通りです。
(1)半角英文字 (A-Z、a-z、0-9) と記号の一部 「()*-.@_'」 は変換無し。
(2)半角スペースは「+」に変換。
(3)上記以外は「%」+HEX2桁の文字コードに変換。

「VB URLエンコード」で検索すればサンプルも見つかると思います。
ただ、流用する場合、著作権等注意して下さい。