Array-fråga

Jajamensan:

Dim MyArr
Dim Arr (4)
Arr(0) = "blå"
Arr(1) = "grön"
Arr(2) = "blå"
Arr(3) = "svart"
Arr(4) = "vit"
MyArr = Filter(Arr, "blå")

Då kan du göra en UBound() på MyArr för att se hur många träffar du fick. Eller helt enkelt göra såhär:

Dim nCount
Dim Arr (4)
Arr(0) = "blå"
Arr(1) = "grön"
Arr(2) = "blå"
Arr(3) = "svart"
Arr(4) = "vit"
nCount = UBound(Filter(Arr, "blå"))

Där nCount innehåller antalet.

------------------
/ Torbjörn Hansson, webbutvecklare
Endero Sverige

[Redigerat av toha den 07 feb 2001]

Aaahhh...det är ju lysande.

Men kan man sen sortera arrayen efter antalet "träffar", dvs få ut

blå 2
grön 1
svart 1
vit 1