Streng skal deles ved komma

Dim MyString, MyArray
MyString = Split("VBScriptXisXfun!", "x", -1, 1)   
' MyString(0) contains "VBScript".
' MyString(1) contains "is".
' MyString(2) contains "fun!".

du bruger split:

MyVar = split(streng, ",")

for i = 0 to UBound(Myvar)
    if Isnull(MyVar) then
      Besvar[i] = "Empty"
    else
      Besvar[i] = streng(i)
    end if
next i

Den siger slut på sætningten ventet:
"next i"

Den ser sådan ud:

//Definition af svarene

streng = Request.Querystring("mode")

MyVar = split(streng, ",")

for i = 0 to UBound(Myvar)
    if Isnull(MyVar) then
      SvarCof[i] = "Empty"
    else
      SvarCof[i] = streng(i)
    end if
next i
%>

FEJL:
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401)
Slut på sætning var ventet
/baportal/vurder.asp, line 16, column 5
next i
----^

//Definition af svarene

streng = Request.Querystring("mode")

MyVar = split(streng, ",")

for i = 0 to UBound(Myvar)
    if Isnull(MyVar) then
      SvarCof[i] = "Empty"
    else
      SvarCof[i] = streng(i)
    end if
next

//>Rune

strStreng = "Dette, er,en,kæmpe,test!"
MyVar = Split(strStreng, ",")

For i = 0 to UBound(Myvar)
    if IsNull(MyVar) then
      SvarCof[i] = "Empty"
    else
      SvarCof[i] = streng(i)
    end if
next

//>Rune

Er ked af det ,men nu siger den:

Typer stemmer ikke overens: 'streng'

strStreng = "Dette, er,en,kæmpe,test!"
MyVar = Split(strStreng, ",")

For i = 0 To UBound(Myvar)
    If IsNull(MyVar) Then
      SvarCof[i] = "Empty"
    Else
      SvarCof[i] = MyVar(i)
    End If
Next

Sådan selvf.

//>Rune

Prøvede også selv lige det, men så kom fejlen i samme lnie:
Typer stemmer ikke overens: 'SvarCof'

SvarCof = Array()
strStreng = "Dette, er,en,kæmpe,test!"
MyVar = Split(strStreng, ",")

For i = 0 To UBound(Myvar)
    If IsNull(MyVar) Then
      SvarCof[i] = "Empty"
    Else
      SvarCof[i] = MyVar(i)
    End If
Next

//>Rune

Den melder satdig samme fejl...

strStreng = "Dette, er,en,kæmpe,test!"
MyVar = Split(strStreng, ",")

For i = 0 To UBound(Myvar)
    Response.Write(MyVar(i) & "<br>")
Next

//>Rune

Prøv sådan her så:

strStreng = "Dette,,en,kæmpe,test!"
MyVar = Split(strStreng, ",")

Dim SvarCof(1000)

For i = 0 To UBound(MyVar)
    If MyVar(i) = "" Then
      SvarCof(i) = "Empty"
      'document.write("tom")
    Else
      SvarCof(i) = MyVar(i)
      'document.write("Fyldig")
    End If
Next

For ii = 0 To UBound(SvarCof)
    Response.Write(SvarCof(ii) & "<br>")
Next

//>Rune

Thx 4 Poinz

//>Rune