從字符串中提取單詞並驗證它們是否存在於數據庫中的VB

Question

我試圖創建一個web方法來檢查一個字符串是否包含一個單詞，該列表中的'不允許'單詞。此列表將不時更新。

<System.Web.Services.WebMethod()> _ 
Public Function checkword(ByVal Id As String) As String 
    Dim returnValue As String = String.Empty 
    Dim s As String = Id 

    ' Split string based on spaces 
    Dim words As String() = s.Split(New Char() {" "c}) 

    Dim rer As Integer 
    Dim word As String 
    For Each word In words 

    'call class file 
    Dim oscar As New webfunctions 

    Try 
     'call function to check whether this word exists in database or not, 
     rer = oscar.chkword(word) 
     If rer > 0 Then 
     returnValue = "a" 
     Else 
     returnValue = "exists" 
     End If 

    Catch ex As Exception 
     returnValue = ex.Message 
    End Try 
    Next 
    Return returnValue 
End Function 

此功能有些問題。它驗證字符串的第一個單詞。之後它不會返回任何東西。請有什麼建議嗎？

Answer 1

你正在循環你的所有單詞，只返回最後一個單詞的結果。

從代碼中不太清楚它是如何工作的，因爲您返回「a」，「exists」或錯誤消息。

如果代碼找到一個「不允許的」單詞（哪一個顯然對您無關緊要），或者它引發了錯誤（這也不清楚它爲什麼會出現拋出一個錯誤）：

For Each word In words 

    'call class file 
    Dim oscar As New webfunctions 

    Try 

    'call function to check whether this word exists in database or not, 
    rer = oscar.chkword(word) 
    If rer > 0 Then 
    returnValue = "a" 
    Else 
    return "exists" 
    End If 

    Catch ex As Exception 
    return ex.Message 
    End Try 
Next 
Return returnValue 

根據您的評論和更新的代碼，我可能會重新工作，你的函數返回的結果爲每個單詞的字典，因爲這似乎是你正在尋找：

<System.Web.Services.WebMethod()> _ 
Public Function CheckWords(ByVal sentence As String) As Dictionary(Of String, String) 
    Dim wordDictionary As New Dictionary(Of String, String) 

    For Each word As String In sentence.Split(" ") 
    Dim wordResult As String 
    Try 
     Dim oscar As New webfunctions 
     If oscar.chkword(word) > 0 Then 
     wordResult = "a" 
     Else 
     wordResult = "exists" 
     End If 
    Catch ex As Exception 
     wordResult = ex.Message 
    End Try 

    If Not wordDictionary.ContainsKey(word) Then 
     wordDictionary.Add(word, wordResult) 
    End If 
    Next 

    Return wordDictionary 
End Function 

Answer 2

我使用了一個stringbuilder，現在它解決了

<System.Web.Services.WebMethod()> _ 
Public Function checkword(ByVal Id As String) As String 
    Dim returnValue As String = String.Empty 
    Dim s As String = Id 
dim sb as new stringBuilder 
    ' Split string based on spaces 
    Dim words As String() = s.Split(New Char() {" "c}) 

    Dim rer As Integer 
    Dim word As String 
    For Each word In words 

    'call class file 
    Dim oscar As New webfunctions 

    Try 
     'call function to check whether this word exists in database or not, 
     rer = oscar.chkword(word) 
     If rer > 0 Then 
     returnValue = "a" 
     Else 
     sb.append(word & ",") 
     End If 

    Catch ex As Exception 
     returnValue = ex.Message 
    End Try 
    Next 
    Return sb.tostring + "exists" 
End Function