Visual basic ile metinde en fazla geçen kelimeyi bulma

hata verdi bi kaç tanesini düzelttim ama olmadı

şuna bakın

tamamdır dictionary i araştırdım biraz şöyle çözdüm soruyu:

metin = metin.Trim()
metin2 = Split(metin, " ")

For i = 0 To UBound(metin2)

If dict.ContainsKey(metin2(i)) Then
dict(metin2(i)) += 1
Dim dictm = dict(metin2(i))
Else

dict.Add(metin2(i), 1)

End If

Next

Dim encokTekrar = From dicts In dict
Order By dicts.Value Descending
Select dicts.Key, dicts.Value

Benim eklediğim gayet güzel çalışıyor