Re: Ripetizione di elementi in arrays

["[sniper]" <sniper at darkworks dot it>]

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