Structure Word
        Dim Word As String
        Dim Count As Integer
    End Structure
 
    Sub Main()
        Dim str As String = "abc123def123abc123"
        Dim ws() As Object = CountChars3(str)
        Dim i2 As Word
        For Each item As Object In ws
            i2 = CType(item, Word)
            MsgBox("'" & i2.Word & "' kommt " & i2.Count & " Mal vor!")
        Next
    End Sub
 
    Function CountChars3(ByVal ostr As String) As Object()
        Dim sc As String = ""
        Dim str1 As String = ostr
        Dim i As Integer
        Dim sPos As Integer
        Dim ePos As Integer
        Dim rstr As String
        Dim a3 As String
        Dim ac As Short
        For i = 0 To str1.Length - 3 Step 3
            a3 = str1.Substring(i, 3)
            If Not sc.Contains("[" & a3) Then
                sc &= "[" & a3 & "=1]"
            Else
                sPos = sc.IndexOf("[" & a3)
                ePos = sc.IndexOf("]", sPos)
                rstr = sc.Substring(sPos, ePos - sPos)
                sc = sc.Remove(sPos, ePos - sPos + 1)
                ac = rstr.Split("=")(1)
                sc &= rstr.Substring(0, rstr.Length - 1) & (ac + 1) & "]"
            End If
        Next
        sc = sc.Replace("[", "")
        Dim w() As String = sc.Split("]")
        Dim wcol As New Collections.Stack
        For Each item As String In w
            If Not item = "" Then
                Dim ws As Word
                ws.Word = item.Split("=")(0)
                ws.Count = item.Split("=")(1)
                wcol.Push(ws)
            End If
        Next
        Return wcol.ToArray
    End Function

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co