[RESOLVED] Numbering repeated words

[OR444]

How to delete repeated and numbering words from the text?
For example:

* in red: Words / numbers repeated
* my textbox:
" test1 test1 bb what how bb so and then yes so then so 1 3 1 4"

to get this result:
*in green: The number of times the word / number show in the text
so (3)
then (2)
1 (2)
Test1 (2)
bb (2)
what (1)
how (1)

[MarMan]

You can create a Hashtable and use the word as a key. Everytime you find a word, add 1 to the value stored there.

[.paul.]

try this:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim s As String = " test1 test1 bb what how bb so and then yes so then so 1 3 1 4"
    Dim occurences = From word In s.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries) _
                 Group word By word Into Count()
    Dim msg As String = ""
    For Each o In occurences
        msg &= String.Format("{0,-10} {1}{2}", o.word & ",", o.Count, Environment.NewLine)
    Next
    MsgBox(msg)
End Sub

[JayJayson]

I've just been playing with Regex so thought i'd add another method

Imports System.Text.RegularExpressions
Imports System.Text
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Input As String = "test1 test1 bb what how bb so and then yes so then so 1 3 1 4"
 
        Dim DupeCheck As New ArrayList
        Dim Results As New StringBuilder
        For Each Word As Match In Regex.Matches(Input, "\b\w+\b").Cast(Of Match).ToArray
            If Not (DupeCheck.Contains(Word.Value)) Then
                DupeCheck.Add(Word.Value)
                Results.Append(Word.Value & ": " & Regex.Matches(Input, String.Format("\b{0}\b", Word.Value)).Cast(Of Match).ToArray.Count).AppendLine()
            End If
        Next
 
        MsgBox(Input & vbCrLf & vbCrLf & Results.ToString)
    End Sub
 
End Class

[OR444]

MarMan: Yes, but I do not manually insert the text so I do not understand how to set up random word key. thx for reply.

.paul.: thx u agin and agin . ur code is good,but if u do new line it Jamming the text. (Is it my fault - I did not say that)

jay20aiii thx agin, ur code its perfect for what I want.