Question

我想我已经过度工程了。如何解决这个小问题非常感谢任何帮助。我有一个搜索多个网站的应用程序。但是，如果用户键入g =的自定义参数，那么它将搜索谷歌。问题是我现在是从我的搜索词的第一个单词中删除G.例如，如果我键入g =高尔夫游戏，谷歌会弹出olf游戏。在其他搜索中，=字符被剥离。我应该使用contains而不是这个自定义的firstChars函数吗？

这是我的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Enter text to search on." & vbCrLf & Err.Description, MsgBoxStyle.Information, "Need search term to search on.")
            TextBox1.Focus()
        End If
        Try
            'CHECK FOR GOOGLE.COM SEARCHING
            Dim MyString As String = TextBox1.Text
            Dim MyChar() As Char = {"g", "G", "="}
            Dim NewString As String = MyString.TrimStart(MyChar)
            Dim myUri As New Uri("http://google.com/search?hl=en&q=" & NewString)
            Dim first2Chars As String
            Dim first3Chars As String
            Dim first4Chars As String
            first2Chars = TextBox1.Text.Substring(0, 2)
            first3Chars = TextBox1.Text.Substring(0, 3)
            first4Chars = TextBox1.Text.Substring(0, 4)
            MsgBox(first2Chars)
            If first2Chars = "G=" Or first2Chars = "g=" Then
                System.Diagnostics.Process.Start(myUri.AbsoluteUri)
            ElseIf first3Chars = "TS=" Or first3Chars = "ts=" Then
                System.Diagnostics.Process.Start("https://localhost/search.do?query=" & Net.WebUtility.UrlEncode(TextBox1.Text))
            ElseIf first4Chars = "PIC=" Or first4Chars = "pic=" Then
                System.Diagnostics.Process.Start("https://localhost/search.do?query_pic=" & Net.WebUtility.UrlEncode(TextBox1.Text))
            End If
        Catch ex As Exception
            MsgBox("Error running search. The error was: " & vbCrLf & Err.Description, MsgBoxStyle.Exclamation, "Error")
        End Try

    End Sub

从文本框开关/参数自定义搜索

0 个答案: