07-11-16, 08:08 PM
(آخر تعديل لهذه المشاركة : 07-11-16, 08:22 PM {2} بواسطة 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
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")

