Søge efter streng i array

Du kan evt. gøre det sådan.

//akj

<%
function ElementExists(arg_arr, arg_find )
  ElementExists = InStr(Join(arg_arr, ","), arg_find)
End Function


dim arr(5)
arr(0) = "hej"
arr(1) = "dette"
arr(2) = "er"
arr(3) = "en"
arr(4) = "test"

ret = ElementExists (arr, "hej")
if ret > 0 then
    response.write "Eksisterer"
else
    response.write "Eksisterer ikke"
end if
%>

det skal nævnes at mit array vil indeholde tal som f.eks.
1
2
3
....
10
11
12
13

hvis der f.eks. søges på 1 og 1 ikke findes i mit array men derimod 11 findes - er det vigtigt at tallet 11 IKKE tælles med som 1 !!!

Altså i følgende array skal en søgning på tallet 1 ende FALSK:

arr(0) = 2
arr(1) = 3
arr(2) = 15

vil ovenstående funktion løse denne opgave ?

Så skal vi vist lige snyde lidt.

//akj

function ElementExists(arg_arr, arg_find )
' vi startet og sluttet lige den streng vi søger i med et ","
    ElementExists = InStr("," & Join(arg_arr, ",")&",", arg_find)
End Function


dim arr(5)
arr(0) = "13"
arr(1) = "23"
arr(2) = "77"
arr(3) = "78"
arr(4) = "65"

' her sætter vi lige komma foran og bagved for kun at søge på den fulde streng
ret = ElementExists (arr, ",1,")
if ret > 0 then
    response.write "Eksisterer"
else
    response.write "Eksisterer ikke"
end if
   

%>