自由区/Webサービス紹介/Yahoo!検索Webサービス/ウェブ検索/コード/DataSetの派生クラスを使用/VB.NET のバックアップの現在との差分(No.1)

Top > 自由区 > Webサービス紹介 > Yahoo!検索Webサービス > ウェブ検索 > コード > DataSetの派生クラスを使用 > VB.NET

バックアップ一覧
差分を表示
ソースを表示
バックアップを表示
自由区/Webサービス紹介/Yahoo!検索Webサービス/ウェブ検索/コード/DataSetの派生クラスを使用/VB.NET へ行く。
- 1 (2006-09-09 (土) 03:13:40)

追加された行はこの色です。
削除された行はこの色です。

*Yahoo!検索Webサービス ウェブ検索のDataSetの派生クラスを使用したサンプルコード（VB.NET） [#ba1a4be5]

Yahoo!検索Webサービスのウェブ検索機能を使って検索を行うサンプルです。[[こちらのサンプル>../../VB.NET]]と違い、xsd.exeの「/d」オプションで作成されたクラスを使っています。サンプルの実行にはこのクラスも必要ですので、添付しておきます。

#attach(noform)

#code(vbnet){{
<%@ Page Language="VB" Debug="true" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    Protected Sub Button1_Click( _
        ByVal sender As Object, ByVal e As System.EventArgs)
        'URLを構築する
        Dim requestUrl As String = _
            "http://api.search.yahoo.co.jp/WebSearchService/V1/webSearch"
        'アプリケーションIDを指定（必ず指定すること）
        requestUrl += "?appid=dobon.net"
        requestUrl += "?appid=XXXXX"
        '検索クエリー。UTF-8エンコードする。
        requestUrl += "&query=" + Server.UrlEncode(TextBox1.Text)

        'HttpWebRequestの作成
        Dim request As System.Net.HttpWebRequest = _
            CType(System.Net.WebRequest.Create(requestUrl), _
            System.Net.HttpWebRequest)
        Dim response As System.Net.HttpWebResponse = Nothing
        Dim res As New Yahoo.jp.WebSearchResponse.NewDataSet()
        Try
            'レスポンスの取得
            response = CType(request.GetResponse(), _
            System.Net.HttpWebResponse)
            Dim strm As System.IO.Stream = response.GetResponseStream()
            'サーバーから返されたXMLデータを解析
            res.ReadXml(strm)
        Catch ex As Exception
            Label1.Text = "エラー：" + Server.HtmlEncode(ex.Message)
            Return
        Finally
            If Not (response Is Nothing) Then
                response.Close()
            End If
        End Try
        
        '結果を表示
        Label1.Text = ""
        If res.ResultSet.Count = 0 Then
            Label1.Text += "該当するページが見つかりませんでした。"
        Else
            Dim sr As Yahoo.jp.WebSearchResponse.NewDataSet.ResultSetRow = _
                res.ResultSet(0)
            Label1.Text += "<b>" + Server.HtmlEncode(TextBox1.Text) + _
                "</b> の検索結果 約 " + _
                sr.totalResultsAvailable.ToString() + "件中 " + _
                sr.firstResultPosition.ToString() + " - " + _
                sr.totalResultsReturned.ToString() + " 件目<br />" + vbLf
            Label1.Text += "<ul>" + vbLf
            Dim r As Yahoo.jp.WebSearchResponse.NewDataSet.ResultRow
            For Each r In res.Result
                Label1.Text += "<li><a href=""" + r.Url + """>" + _
                    r.Title + "</a>"
            Next r
            Label1.Text += "</ul>" + vbLf
        End If
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Yahoo!ウェブ検索Webサービスのサンプル</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
        <asp:Button ID="Button1" runat="server"
         OnClick="Button1_Click" Text="検索" /><br />
        <br />
        <asp:Label ID="Label1" runat="server"
         EnableViewState="False"></asp:Label>
    </div>
    </form>

<!-- Begin Yahoo! JAPAN Web Services Attribution Snippet -->
<span style="margin:15px 15px 15px 15px">
<a href="http://developer.yahoo.co.jp/about">Webサービス by Yahoo! JAPAN</a>
</span>
<!-- End Yahoo! JAPAN Web Services Attribution Snippet -->
</body>
</html>
}}

//これより下は編集しないでください
#pageinfo(,2006-09-09 (土) 03:12:35,DOBON!,2006-09-09 (土) 03:12:35,DOBON!)
#pageinfo(,2006-09-09 (土) 03:12:35,DOBON!,2006-09-09 (土) 03:20:35,DOBON!)

▲ ▼

DoboWiki