tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルヤフー検索での文字化け
記事No16002
投稿日: 2014/11/11(Tue) 13:43
投稿者taro
VB6 WinXP
Form1.WebBrowser1.Navigate2 " http://search.yahoo.co.jp/search?p=" & Textbox1.text & "&aq=-1&oq=&ei=UTF-8&fr=sfp_as&x=wrt"
上の様にボタンを押した時に、ヤフーで検索していますが、 Textbox1.textに値として、半角数字なら上手くいきますが、漢字やひらがなを値として入れると文字化けしてしまいます。解決法はあるでしょうか?

[ツリー表示へ]
タイトルRe: ヤフー検索での文字化け
記事No16003
投稿日: 2014/11/11(Tue) 14:27
投稿者魔界の仮面弁士
> 半角数字なら上手くいきますが、漢字やひらがなを値として入れると文字化けしてしまいます。

『パーセントエンコーディング』について調べてみて下さい。


(要は、漢字等を直接 URL に含めるのではなく、
 半角英数字に置き換える必要があるということです)

[ツリー表示へ]
タイトルRe^2: ヤフー検索での文字化け
記事No16007
投稿日: 2014/11/11(Tue) 16:15
投稿者taro
> > 半角数字なら上手くいきますが、漢字やひらがなを値として入れると文字化けしてしまいます。
>
> 『パーセントエンコーディング』について調べてみて下さい。
>
>
> (要は、漢字等を直接 URL に含めるのではなく、
>  半角英数字に置き換える必要があるということです)
御解答有難う御座います。
調べて見ます。

[ツリー表示へ]
タイトルRe^3: ヤフー検索での文字化け
記事No16009
投稿日: 2014/11/11(Tue) 18:23
投稿者taro
> > > 半角数字なら上手くいきますが、漢字やひらがなを値として入れると文字化けしてしまいます。
> >
> > 『パーセントエンコーディング』について調べてみて下さい。
> >
> >
> > (要は、漢字等を直接 URL に含めるのではなく、
> >  半角英数字に置き換える必要があるということです)
> 御解答有難う御座います。
> 調べて見ます。

少し調べて見た所、ジャバスクリプトにエンコードする関数があるので、それを呼び出して、使うとありまして少し真似てみたのですが、

Dim strSource as String
Dim objSC As Object

strSource=" http://search.yahoo.co.jp/search?p=" & Textbox1.text & "&aq=-1&oq=&ei=UTF-8&fr=sfp_as&x=wrt"

Set objSC = CreateObject("ScriptControl")
objSC.Language = "Jscript"
Form1.WebBrowser1.Navigate2 = objSC.CodeObject.encodeURIComponent(strSource)

Set objSC = Nothing

上記の様にしたのですが、エンコードされたのですが、:や/もエンコードされているみたいで、なにやら不完全な状態見たいです。初心者で知識不足ですがよろしくお願いします。

[ツリー表示へ]
タイトルRe^4: ヤフー検索での文字化け
記事No16010
投稿日: 2014/11/11(Tue) 19:15
投稿者花ちゃん
キーワードの部分だけをエンコードするようにしないと。

Private Sub Command1_Click()
    Dim strSource As String
    Dim objSC As Object
    Dim keyWord As String
    Set objSC = CreateObject("ScriptControl")
    objSC.Language = "Jscript"
    keyWord = objSC.CodeObject.encodeURIComponent(Text1.Text)
    Set objSC = Nothing
    strSource = "http://search.yahoo.co.jp/search?p=" & keyWord & "&aq=-1&oq=&ei=UTF-8&fr=sfp_as&x=wrt"
    Form1.WebBrowser1.Navigate2 strSource
End Sub

[ツリー表示へ]
タイトルRe^5: ヤフー検索での文字化け
記事No16011
投稿日: 2014/11/12(Wed) 15:14
投稿者taro
> キーワードの部分だけをエンコードするようにしないと。
そうですね。

解決出来ました有難う御座いました。

[ツリー表示へ]