请问字符串数据提取思路

请教字符串数据提取思路
一个字符串格式如下所示：
AAA|BBB|CCC|AAA|DDD|AAA|CCC|BBB|EEE|FFF

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


[解决办法]
Split 一下
再一便利下老
[解决办法]

VB code

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 sEnd Sub