獲取字符串列表中字符串的出現次數。

我有2個文本框和一個按鈕，當單擊按鈕時，我希望它將我創建的列表放入小寫字母並檢查每個字符串出現的出現次數。獲取字符串列表中字符串的出現次數。

我的代碼：

Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click 
    Dim count As Integer = 0 
    Dim userString As String = userInput.Text 
    userString = userString.ToLower() 
    Dim inputList As New List(Of String)(userString.Split(" ")) 

    While count <= inputList.Count - 1 
     output.Text &= inputList(count) & " Occurred: " & NEED TO GET OCCURRENCE & Environment.NewLine 
     count = count + 1 
    End While 
End Sub

什麼是保持計數爲每個單詞的最好方法？

感謝，

馬特

來源

2016-09-20 Mee Meme

你可以使用字典來存儲的話和他們的罪狀：

Option Infer On 
' .... 
Dim s = "The only cat sat only on the cat mat" 
Dim d As New Dictionary(Of String, Integer) 

Dim ws = s.ToLower().Split(" "c) 

For Each w In ws 
    If d.ContainsKey(w) Then 
     d(w) += 1 
    Else 
     d.Add(w, 1) 
    End If 
Next 

For Each de In d 
    Console.WriteLine(String.Format("{0,-10}{1,2}", de.Key, de.Value)) 
Next 

Console.ReadLine()

輸出：

the  2 
only  2 
cat  2 
sat  1 
on   1 
mat  1

（該下降計數只巧合）。

來源

2016-09-20 11:02:45

什麼是追加，爲一個文本框的最佳方式？ http://pastebin.com/vXmZk9a9 –

@MeeMeme使用'output.AppendText（String.Format（「{0，-10} {1,2}」＆VbCrLf，de.Key，de.Value））''而不是'Console.WriteLine（...）'行。 –

該代碼產生這個：http://s17.postimg.org/gby1qsie7/Capture.png –

您可以使用一個簡單的LINQ表達式：

Dim userString As String = "How much wood would a woodchuck chuck if a woodchuck could chuck wood" 

Dim userStringGroupByWords = userString.Split(" ").GroupBy(Function(word) word) 

For Each word In userStringGroupByWords 
    Console.WriteLine($"Word: {word.Key}, Count: {word.Count}") 
    'Or Console.WriteLine("Word: {0}, Count: {1}", word.Key, word.Count) 
    'if you are not using VS 2015 and .NET >= 4.6 
Next

輸出：

Group: How, Count: 1 
Group: much, Count: 1 
Group: wood, Count: 2 
Group: would, Count: 1 
Group: a, Count: 2 
Group: woodchuck, Count: 2 
Group: chuck, Count: 2 
Group: if, Count: 1 
Group: could, Count: 1

來源

2016-09-20 11:45:45

獲取字符串列表中字符串的出現次數。

回答

相關問題