skille array ad

I dit eksempel ligger navnene pænt ordnet - alle martin'erne ligger efter hinanden. Vi dette altid være tilfældetr, eller vil navnene kunne væree blandet sammen?

de kommer i orden - måske ikke lige i den orden, men de ens kommer efter hinanden...

det er vel også ligemeget, når jeg ville have gjort det sådan:

            For e = 0 to (Ubound(personer)-Lbound(personer))
            For r = 0 to (Ubound(temp2)-Lbound(temp2))

            if personer(e) = temp2(r) then
            person(e) = person(e) = temp2(r) & ","
            end if

            Next
            Next

...men sådan kan man ikke :(

Et bud:

' Splitter først navnene:

navneStr = "kurt, kurt, kurt, kurt, martin, martin, martin, georg, Erik, Erik, Erik"
navneStrArray = Split(navneStr, ", ")


' Tæller navnene:

antal = 0
prevNavn = ""
For idx = LBound(navneStrArray) To UBound(navneStrArray)
    navn = navneStrArray(idx)
    If navn <> prevNavn Then
        antal = antal + 1
        prevNavn = navn
    End If
Next


' Dimensionere det nye array:

Dim Person(antal-1)


' Tildeler værdierne til det nye array:

antal = 0
prevNavn = ""
For idx = LBound(navneStrArray) To UBound(navneStrArray)
    navn = navneStrArray(idx)
    If navn <> prevNavn Then
        antal = antal + 1       
        prevNavn = navn
    End If

    If Person(antal) <> "" Then Person(antal) = Person(antal) & ", "
    Person(antal) = Person(antal) & navn
Next

ser helt vildt godt ud... men den kan ikke li' at man definerer person(antal-1)

måske kan man lave det på en anden måde?

fejl:

Error Type:
Sun ONE ASP VBScript compilation (0x800A0402)
Expected an integer constant
test.asp, line 105, column 12

linie 105: Dim Person(antal-1)

nu ved jeg godt at jeg måske har rodet dig ud i noget værre noget... - men det eneste jeg vil med det her array er at tælle hvor mange gange en værdi står i arrayet - troede det var en let løsning at gøre det sådan som jeg forklarede i starten, men hvis du kan en anden måde at tælle det på, så må du også gerne skrive den.

/jsc

Det kan være at den bedre kan lide:

Dim Person(antal)

kunne den heller ikke... jeg har prøvet.. men jeg tror jeg har fundet ud af noget ved at bruge din måde at programmere på...

            temp2 = split(temp2, ",")

            prevnavn = ""
            For r = 0 to (Ubound(temp2)-Lbound(temp2))
            If temp2(r) <> prevnavn Then
            pos = pos & r & ","
            nam = nam & temp2(r) & ","
            prevnavn = temp2(r)
            end if

            Next

hvis man skriver det, så kan man finde positionerne hvor arrayet ændre sig og så er det jo simpel matematik.... så det er jeg igang med nu...

men smid et svar, så giver jeg point som tak for start og hjælp!

Ok :^)