Array og loop

hvis du laver strengen om til at starte og slutte med punktum, så kan du søge med InStr

streng = ", " & streng & ","

If InStr(streng, ", " & i & ",") > 0 Then
  ' tal fundet
End If

Du har sat komma,ikke punktum?

men uanset om jeg bruger komma eller punktum,kan jeg ikke få det til at virke :(

Mellemrummene skal også fjernes. Og Gammelhat mente komma, ikke punktum.

Jeg har lige nu en kode der ser sådan her ud

Den skriver ikke OK ud for 2,3,4, som min streng nu er..

har jeg misforstået noget?


<select name="hobby" multiple="" size="6" style="width: 150px;">
                <%for i = 1 to 30
                streng = rs("hobby")
               
                streng = "," & streng & ","
               
                If InStr(streng, "," & i & ",") > 0 Then
                  str0 = "|OK"
                End If
                %>
               
               
                <option value="<%=i%>"><%=hobby(i)%><%=str0%></option>
                <%next%>
                </select>

Prøv lige at udskrive rs("hobby") og aflæs den. Kopier det herind præcis som det står.

Den ser sådan her ud

#2, 3, 4#

uden # selvf. ;)

Ja, mellemrummene har vi jo ikke taget højde for.

<select name="hobby" multiple="" size="6" style="width: 150px;">
                <%for i = 1 to 30
                streng = rs("hobby")
               
                streng = "," & streng & ","
               
                If InStr(Replace(streng," ",""), ","&i&",") > 0 Then
                  str0 = "|OK"
                End If
                %>
               
               
                <option value="<%=i%>"><%=hobby(i)%><%=str0%></option>
                <%next%>
</select>

Virker stadig ikke :(

Ingen |OK kommer frem.

jeg udskrev lige
strHvad = InStr(Replace(streng," ",""), ","&i&",")
den nupper bare et 0 ved alle.

SElvfølgelig ville det være endnu bedre, hvis de ikke blev gemt i databasen med mellemrummene, så de ikke skal fjernes hver gang.

Det lyder underligt. Prøv at se, om den fjerner mellemrummene ordentligt med:

Replace(streng," ","")

Du kan evt. også prøve at se, om den kan finde ud af at returnere noget med:

If InStr(streng,i) > 0 Then

Replace(streng," ","") er prøvet, den fjerner fint mellemrummene

Hvad med If InStr(streng,i) > 0 Then ?

Jeg er kommet nærmere problemet

sætter jeg i = 2 to 30, altså starter med nr 2, så markerer den ved id 2, men ikke de øvrige.

Så fejlen må være at strengen ikke videreføres ved de øvrige, men kun første loop

Ahh

Nu er fejlen fundet :D

Jeg havde skrevet

for i = 2 to 30
streng = rs("hobby")


Strengen skal self placeres INDEN loopét


streng = rs("hobby")
for i = 2 to 30

Fungerer det så nu?

Yes, nu virker det som det skal.

Du må hellere smide et svar som tak for indsatsen :D

Okidoke! Men de skal nok deles med Gammelhat så.

Tak for point!