Antal ens værdier i array

er det noget i denne retning??


tal = 1

strArray = ",1,1,2,3,3,"

arr = split(strArray,",")

for a = 0 to ubound(arr)
  if tal = arr(a) then
    antal = antal + 1
next

response.write "tallet " & tal & " forekommer " & antal & " gange i strengen strArray"

Ja, det ser helt korrekt ud. Jeg har selv lavet en funktion lignende - den returnerer bare ikke noget!

Min kode:

strArray = Split(Session("bestilteVarer"),",")

For findAntal = 0 To Ubound(strArray)
           
    If Cint(Query("id")) = strArray(findAntal) Then
    intAntal = intAntal + 1
    End If
                   
Next

Response.Write "Antal: " & intAntal

Hvad går der galt?

Problemet er løst.

Problemet var, at de 2 værdier vi forsøgte af sammenligne var af forskellige typer.

strArray(findAntal) var tekst, mens Query("id") var et tal

Ved at konvertere Query("id") til en streng opnåede jeg det ønskede resultat.

Spørgsmålet er lukket.