+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Visual basic ile metinde en fazla geçen kelimeyi bulma (/konu-visual-basic-ile-metinde-en-fazla-gecen-kelimeyi-bulma.html)
Sayfalar:
1
2
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - S4L0 - 10/04/2020
hata verdi bi kaç tanesini düzelttim ama olmadı
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - accessman - 10/04/2020
şuna bakın
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - S4L0 - 11/04/2020
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
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - accessman - 11/04/2020
Benim eklediğim gayet güzel çalışıyor