请教字符串数据提取思路

[pyqrbo]

一个字符串格式如下所示：
AAA|BBB|CCC|AAA|DDD|AAA|CCC|BBB|EEE|FFF

我要提取后的结果如下：
AAA,3|BBB,2|CCC,2|DDD,1|EEE,1|FFF,1
就是把重复字符串去除，统计其出现的次数。
请朋友们帮忙解决一下。

[jhone99]

分解数组

建新2维数组 统计 不重复加入 重复计数

[贝隆]

[Quote=引用 1 楼 jhone99 的回复:]
分解数组

建新2维数组 统计 不重复加入 重复计数
[/Quote]
附议
使用Split来分解字符串，然后在统计相同的元素，然后再重组字符串。

[threenewbee]

string s = "AAA|BBB|CCC|AAA|DDD|AAA|CCC|BBB|EEE|FFF";
var result = from x in s.Split('|')
             group x by x into g
             select g.Key + g.Count().ToString();
Console.WriteLine(string.Join("|"), result.ToArray());

[无·法]

你这个情况用字典是最合适的了。

Private Sub Form_Load()
    Dim s$, v, i%, dic
    s = "AAA|BBB|CCC|AAA|DDD|AAA|CCC|BBB|EEE|FFF"
    v = Split(s, "|")
    Set dic = CreateObject("scripting.dictionary")
    For i = 0 To UBound(v)
        dic(v(i)) = Val(dic(v(i))) + 1
    Next
    s = ""
    For Each v In dic.keys
        s = s & v & "," & dic(v) & "|"
    Next
    MsgBox s
End Sub