2016-05-23 33 views
-1

Bellow是我的vb代碼,我試圖循環輸入所有輸入的單詞,並將所有的獨特單詞放在字典中,並將它們的位置放在一個字典中。我得到這個錯誤,但我不知道如何解決它。請,我能有什麼建議嗎?謝謝。當我試圖檢查一個項目是否在字典中時出現錯誤

錯誤:未將對象引用設置爲對象的實例。

Public Class Form1 
    Dim sentence() As String 
    Dim uniqueWords As Dictionary(Of String, Integer) 

    Private Sub creatSaveBtn_Click(sender As Object, e As EventArgs) Handles creatSaveBtn.Click 
     sentence = sentenceInputTxt.Text.ToLower.Split(" ") 

     For Each word In sentence 
      If Not uniqueWords.ContainsKey(word) Then 
       uniqueWords.Add(word, uniqueWords.Count + 1) 
      End If 
     Next 
    End Sub 
End Class 
+0

如果你想要的是單詞的不同列表,請考慮使用[HashSet的(串)](https://msdn.microsoft。 COM/EN-US /庫/ bb359438%28V = vs.110%29.aspx?F = 255&MSPPError = -2147217396)。您可以對每個潛在字符串調用[Add](https://msdn.microsoft.com/en-us/library/bb353005(v = vs.110).aspx)方法,並且HashSet只會在不存在的情況下添加它已經在HashSet中。 –

回答

2
Dim uniqueWords As New Dictionary(Of String, Integer) 

還你可以:

Dim uniqueWords As List(Of String) = sentenceInputTxt.Text.ToLower.Split(" "c).Distinct().ToList() 
+0

哦,謝謝,哇,我怎麼錯過了?非常感謝。 –

+0

@AlfieJones你也可以使用LinQ。檢查我的編輯。 – shadow

相關問題