count the same items in a listbox

• • Reply

  13 years ago

  by sparrow1

  Luc Stockx

  , Belgium

  Joined 13 years ago

   Hi All,
  
  What I'm trying to do is to populate a listbox with the words of a richtextbox.
  
  

  Code:

  Dim str As String = RichtextBox1.Text
  Listbox1.Items.Add(str)

  
  This works, but it also add's the same words.
  
  How can I count the same words.
  For example:
  
  I like VB.Net very much.
  But sometimes VB.Net doesn't like me.
  
  The listbox should give me:
  
  I (1)
  like (2)
  VB.Net (2)
  etc.....
  
  That's what I have so far, however it could be totally wrong:
  
  

  Code:

  Dim element As String = Richtextbox1.Text
      If Not ListBox1.Items.Contains(element) Then
          ListBox.Items.Add(element)
  else
          ...... count the same words
      End If

  How can I do that?
  
  Thanks in advance,
  Report abuse
• • Reply

  13 years ago

  by joe90

  J Alan

  , United Kingdom

  Joined 15 years ago

  I would suggest breaking the  Richtextbox1.Text down into single words and then add to listbox (checking it beforehand).

  Dim element() as string

  Dim i as integer 

  element = Richtextbox1.Text.Split(" ")

  For i=0 to element.Count - 1
  

      If Not ListBox1.Items.Countains(element(i)) Then

          ListBox1.Items.Add(element(i))

     End If
  

  Next i 

   

  or something similar.

  Joe 

   

   

  Report abuse