Replace problem - let spørgsmål

Hmm en løsning ville måske være at lave noget = ,,1,,2,,3,,4,,5,,6,,7,,8,,9,,10

Replace(uCase(noget),",1,","") ville gøre tricket, men er der ikke en lettere måde? :)

Samme problem opstår jo netop også, i stedet jeg skriver:

Noget = ,2,3,4,5,6,7,8,9,10

ID = 1

If Instr(noget, ID) > 1 then
response.write "FANDT DIG"
End if

.. for det gør den jo ikk :). Den finder "10" og ikke "1".. Måske er den eneste løsning at omringe sine ID med kommaer

strNoget = "2,3,4,5,6,7,8,9"
arrNoget = Split(strNoget, ",")
For i = 0 To UBound(strNoget)
  If arrNoget(i) = "4" Then
      Response.Write("Tallet 4 findes i strNoget!")
  End If
Next

//>Rune

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: 'UBound'

:)

Sorry...

strNoget = "2,3,4,5,6,7,8,9"
arrNoget = Split(strNoget, ",")
For i = 0 To UBound(arrNoget)
  If arrNoget(i) = "4" Then
      Response.Write("Tallet 4 findes i strNoget!")
  End If
Next

//>Rune

Takker mester, den er hjemme ;)

;o)
Anytime...

//>>Rune

Medions - ved du hvordan man laver således at den kan replace ordenligt?

noget = 1,2,3,4,5,6,7,8,9,10

Hvis du skal fjerne f.eks. ",1", uden at fjerne ",10".


strNoget = "1,2,3,4,5,6,7,8,9,10"
arrNoget = Split(strNoget, ",")
For i = 0 To UBound(arrNoget)
  If arrNoget(i) = "1" Then
      replace(uCase(strNoget),arrnoget(i),"")
  End If

Next

? :)

replace(uCase(strNoget),"," & arrnoget(i),"")

Burde det nok være.

Virker :p. Så...

Nej det gjorde det så ikke :/.

Fjerner også ",1" ved ",10" :/

Har du fundet ud af det? - jeg er ikke så meget inde på eksperten længere, så jeg har ikke set dit spg før nu, beklager...

//>Rune