DoboWiki
Top
>
自由区
>
Webサービス紹介
>
Google SOAP Search API
> スペルチェック機能のサンプル(VB.NET)
自由区/Webサービス紹介/Google SOAP Search API/スペルチェック機能のサンプル(VB.NET) の編集
*Google SOAP Search API - スペルチェック機能のサンプル(VB.NET) [#y95d1fe4] ここではコードのみを示します。説明は、[[C#のサンプル>../スペルチェック機能のサンプル(C#)]]で行っています。 **コード [#d25e28fc] #code(vbnet){{ <%@ Page Language="VB" %> <!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_Click1(ByVal sender As Object, _ ByVal e As System.EventArgs) 'キーを必ず指定する。 Dim key As String = "XXXXXXXXXXXXXXXXXXX" Dim gs As New Google.GoogleSearchService() Dim suggestion As String = "" Try 'スペルチェックをする suggestion = gs.doSpellingSuggestion(key, TextBox1.Text) Catch ex As System.Web.Services.Protocols.SoapException TextBox2.Text = "エラー:" + ex.Message Return End Try If suggestion <> "" Then TextBox2.Text = suggestion Else TextBox2.Text = "提案はありません。" End If End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml" > <head id="Head1" runat="server"> <title>スペルのチェック</title> </head> <body> <form id="form1" runat="server"> <div> <asp:Label ID="Label1" runat="server" Text="スペルをチェックする文:"> </asp:Label> <asp:Button ID="Button1" runat="server" OnClick="Button1_Click1" Text="チェックを開始" /><br /> <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox> <br /> <asp:Label ID="Label2" runat="server" Text="結果:"> </asp:Label><br /> <asp:TextBox ID="TextBox2" runat="server" ReadOnly="True"> </asp:TextBox><br /> <br /> </div> </form> </body> </html> }} //これより下は編集しないでください #pageinfo([[:Category/.NET]] [[:Category/ASP.NET]],2006-08-25 (金) 01:50:15,DOBON!,2006-08-25 (金) 01:50:15,DOBON!)
タイムスタンプを変更しない
*Google SOAP Search API - スペルチェック機能のサンプル(VB.NET) [#y95d1fe4] ここではコードのみを示します。説明は、[[C#のサンプル>../スペルチェック機能のサンプル(C#)]]で行っています。 **コード [#d25e28fc] #code(vbnet){{ <%@ Page Language="VB" %> <!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_Click1(ByVal sender As Object, _ ByVal e As System.EventArgs) 'キーを必ず指定する。 Dim key As String = "XXXXXXXXXXXXXXXXXXX" Dim gs As New Google.GoogleSearchService() Dim suggestion As String = "" Try 'スペルチェックをする suggestion = gs.doSpellingSuggestion(key, TextBox1.Text) Catch ex As System.Web.Services.Protocols.SoapException TextBox2.Text = "エラー:" + ex.Message Return End Try If suggestion <> "" Then TextBox2.Text = suggestion Else TextBox2.Text = "提案はありません。" End If End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml" > <head id="Head1" runat="server"> <title>スペルのチェック</title> </head> <body> <form id="form1" runat="server"> <div> <asp:Label ID="Label1" runat="server" Text="スペルをチェックする文:"> </asp:Label> <asp:Button ID="Button1" runat="server" OnClick="Button1_Click1" Text="チェックを開始" /><br /> <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox> <br /> <asp:Label ID="Label2" runat="server" Text="結果:"> </asp:Label><br /> <asp:TextBox ID="TextBox2" runat="server" ReadOnly="True"> </asp:TextBox><br /> <br /> </div> </form> </body> </html> }} //これより下は編集しないでください #pageinfo([[:Category/.NET]] [[:Category/ASP.NET]],2006-08-25 (金) 01:50:15,DOBON!,2006-08-25 (金) 01:50:15,DOBON!)
テキスト整形のルールを表示する
▲
▼
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
複製
|
名前変更
|
リロード
] [
新規
|
子ページ作成
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]