[silverlight]

PHP كود :

       Dim currentString As String = "aaaabbccc"

        Dim dic As Dictionary(Of Char, Integer) = currentString.GroupBy(Function(c) c).OrderBy(Function(c) c.Key).ToDictionary(Function(g) g.Key, Function(g) g.Count())
        Dim result As String = ""
        For Each kvp In dic
            result += String.Format("{0}{1}", kvp.Value, kvp.Key)
        Next 


lلأفضل تحويل الكود أعلاه الي دالة بهذا الشكل و تمرر لها String المراد حساب تكرار الحروف له

PHP كود :

 Private Function CountChars(currentString As String) As String
        Dim result As String = ""
        Dim dic As Dictionary(Of Char, Integer) = currentString.GroupBy(Function(c) c).OrderBy(Function(c) c.Key).ToDictionary(Function(g) g.Key, Function(g) g.Count())
        For Each kvp As KeyValuePair(Of Char, Integer) In dic
            result += String.Format("{0}{1}", kvp.Value, kvp.Key)
        Next
        Return result
    End Function 


الكود التالي يوضح كيفية استخدام الدالة

PHP كود :

Dim counted As String = CountChars("aaaaabbbbbbbbbbb")