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
Visual basic ile metinde en fazla geçen kelimeyi bulma
| Bu Konudaki Yorumlar |
|
Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: S4L0 - 10/04/2020, 15:02
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: accessman - 10/04/2020, 15:23
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: S4L0 - 10/04/2020, 16:33
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: accessman - 10/04/2020, 17:53
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: S4L0 - 10/04/2020, 20:05
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: accessman - 10/04/2020, 20:08
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: S4L0 - 10/04/2020, 20:18
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: accessman - 10/04/2020, 20:47
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: S4L0 - 11/04/2020, 00:41
RE: Visual basic ile metinde en fazla geçen kelimeyi bulma - Yazar: accessman - 11/04/2020, 01:20
|
Konuyu Okuyanlar: 1 Ziyaretçi
