Jag har ett jätteenkelt problem, bara det att jag har kört fast och tänker bara i en bana nu...

<code>
vagn = "1,2,3,3,3,6,6"

delav = split(vagn,",")
for i = 0 to ubound(delav)

nummer = delav(i)
antal = '#### HÄR ######

next

</code>

---> ####HÄR####
Här vill jag ha antal av nummret i strängen.... text när han är på "1" så ska det vara antal "1" eftersom det bara är en 1:a i strängen, när han dock kommer till "3" så ska det vara antal="5" eftersom det är 5 st femmor....

Viktigt är också att när han har gått på första 3:an ska han inte fortsätta på nästa 3:a utan då ska han gå till nästa unika värde som är "6" i detta fallet.

vagn = "1,2,3,3,3,6,6"
taken = "|"
antal = 0
delav = split(vagn,",")

for i = 0 to ubound(delav)
nummer = delav(i)

if not instr(taken, "|" & nummer & "|") then

taken = taken & nummer & "|"

for x = 0 to ubound(delav)
if delav(x) = nummer then
antal = antal + 1
end if
next

end if
next

/Thomas

Har inte testat vilket som är snabbast. Men chansar på min. ;O)
<code>
<%
Public Function GroupArray(Values)
Dim Index
Dim SubIndex
Dim vTemp
Dim Result
ReDim Result(1, 0)
Result(0, 0) = Values(0)
Result(1, 0) = 1
For Index = 1 To UBound(Values)
vTemp = Values(Index)
For SubIndex = 0 To UBound(Result, 2)
If Result(0, SubIndex) = vTemp Then
Result(1, SubIndex) = Result(1, SubIndex) + 1
SubIndex = 0
Exit For
End If
Next
If SubIndex Then
ReDim Preserve Result(1, SubIndex)
Result(0, SubIndex) = vTemp
Result(1, SubIndex) = 1
End If
Next
GroupArray = Result
Erase Result
End Function

Dim Index
Dim Values
Dim Result
Values = Split("1,2,3,3,3,6,6", ",")
Result = GroupArray(Values)
For Index = 0 To UBound(Result, 2)
Response.Write Result(0, Index) & ": " & Result(1, Index)
Next
%>
</code>

Jag tackar högaktningsfullt...eller nått sånt... =)