hata verdi bi kaç tanesini düzelttim ama olmadı
Visual basic ile metinde en fazla geçen kelimeyi bulma
şuna bakın
Database2.rar
(Dosya Boyutu: 20,66 KB | İndirme Sayısı: 2)
@benbendedeilem
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
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
Konuyu Okuyanlar: 1 Ziyaretçi
