Usa questa funzione :
Function CountOccurrencies(entries() as String) As Dictionary
Dim occurrencies as New Dictionary
Dim entry as String
for each entry in entries
occurrencies.Value(entry) = occurrencies.Lookup(entry,0) + 1
next
Return occurrencies
End Function
Ti restituisce una tabella di hash contenente gli istogrammi che ti
servono.
Ti ricordo che puoi estrarre le chiavi (le tue stringhe in questo
caso) col metodo Keys() e
i valori (il numero delle presenze) col metodo Values().
Es.
Dim chiavi() as String
Dim conteggi() as Integer
Dim d as Dictionary
d = CountOccurrencies(vettore_delle_stringhe)
chiavi = d.Keys()
conteggi = d.Values()
Saluti,
Stefano Azzolini,
Darkworks Software
--
"When you ref
use to give in with all your heart,
only then do you transcend your humanity."
-Alucard
[sniper] - Darkworks Software CEO
mail : sniper at darkworks dot it
ICQ : 220236323
Skype : lord.sniper
Darkworks Software
http://www.darkworks.it/
mail : contacts at darkworks dot it