[silverlight]

أعتذر يا إبنتي فانا دوما أنسي ان بعض الناس ليس لديهم نسخة حديثة من الدوت نت
عموما جميع الأكواد السابقة تعمل جيدا
و لكن في الكود التالي ستجدين دالة سوف تعمل علي جميع النسخ من الدوت نت

PHP كود :

  Private Function CountRepeatedChars(s As String) As String

        Dim result As String = ""

        Dim values As ArrayList = New ArrayList()
        For i = 0 To s.Length - 1
            Dim current As String = s(i)
            If Not values.Contains(current) Then
                values.Add(current)
            End If
        Next

        Dim keys As ArrayList = New ArrayList()
        For Each c As Char In values
            Dim k As Integer = 0
            For Each ch As Char In s
                If c = ch Then
                    k += 1
                End If
            Next
            keys.Add(k)
        Next

        For j As Integer = 0 To keys.Count - 1
            result += String.Format("{0}{1}", keys(j), values(j))
        Next

        Return result
    End Function
End Class 


طريقة استخدام الدالة

PHP كود :

  Dim repeatedString As String = CountRepeatedChars("aaaabbbbbbcccccc")