Advanceret split

Du kan prøve noget i stil med dette hvis det er vbCrLf du har som linjeskift:


str = 'hvor teksten kommer fra'
arrlinje = split(str,vbCrLf)
for i=0 to ubound(arrlinje)
  arrOrd = split(arrlinje," ")
  nyStr = nyStr & arrOrd(0)
  if ubound(arrOrd)>1 then nyStr = nyStr & " " & arrOrd(ubound(arrOrd))
  if i < ubound(arrlinje) then nyStr = nyStr & vbCrLf
next
response.write Replace(nyStr,vbCrLf,"<br>")

Typer stemmer ikke overens: 'arrlinje'
arrOrd = split(arrlinje," ")
Der fejlen er

hov ja den linje skal være:

arrOrd = split(arrlinje(i)," ")

Får bare:
Dette test
Hesten rar
God

Ok, prøv at rette:
if ubound(arrOrd)>1 then nyStr = nyStr & " " & arrOrd(ubound(arrOrd))

Til dette:
if ubound(arrOrd)>=1 then nyStr = nyStr & " " & arrOrd(ubound(arrOrd))

Mange tak! det virkede