inpstr = "Bo;Ko;4444|Ann;Al;55555"
'Splitta upp alla rader med avdelaren |
inpstr = split(inpstr,"|")
'Loopa den första arrayen så många gånger som avdelaren (|) förekommer (börjar på 0)
For x = 0 to Ubound(inpstr)
'Fyll en variabel med en ny array, splitta upp alla "kolumner" med avdelaren ;
inpstr2 = split(inpstr(x),";")
'Loopa den andra arrayen så många gånger som avdelaren (;) förekommer (börjar på 0)
For y = 0 to Ubound(inpstr2)
'Skriv ut innehållet
Response.write "<"& inpstr2(y) &"> "
Next
'Separera raderna med ett streck
Response.write "<hr>"& vbcrlf
Next