Split ved komma og smid i et nyt felt

flg. skulle fungere hvis du har ", " som separator:

rs.open ...

Response.write("<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">")
while not rs.eof or rs.bof
  afstande = split(rs("FELTNAVNET"), ", ")
  Response.write("<tr>")
  Response.write("<td width=""50%"">" & afstande(0) & "</td>")
  Response.write("<td width=""50%"" align=""right"">" & afstande(1) & "</td>")
  Response.write("</tr>")
  rs.movenext
wend
Response.write("</table>")

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'

/afdelinger.asp, line 195

Centrum,1.000 m. Bus,50 m. Indkøb,500 m. Skole,300 m.

naa, ok, du skal erstatte ", " med ","
i dit foerste eksempel var der mellemrum med efter kommaet, senere hen ikke...

Ok... dum fejl.

Men nu skiver den:

Centrum 1.000 m. Bus

Altså til næste komma og så ikke mere - ikke noget på næste linje!?

Der skulle stå:

Centrum 1.000 m.
Bus 250m.
Indkøb 500m.

Skal jeg smide nogle flere kommaer ind??!

vagn / 16

nej, det har ikke noget med kommaerne at goere.
Det er tabellen, der formaterer udseendet. Hvordan ser html-koden ud bliver skabt? Evt. kan du give mig en url til siden...

http://www.esbjergsboligforeninger.dk/afdelinger.asp?id=16

naa, maaske er det alligevel kommaerne der er et problem
staar alle informationerne i samme felt, eller er der et felt pr. afstand?

Alle informationerne står i samme felt!

Centrum,1.000 m.
Bus,50 m.
Indkøb,500 m.
Skole,300 m.

Vh

Pelle!

ok, og de har linjeskift ogsaa, gaar jeg ud fra...
jeg proever lige at tilpasse scriptet

Ja... der er også linjeskift!

afstande = split(rs("FELTNAVNET"), vbCrLf) //splitter ved linjeskift

Response.write("<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">")
for i = 0 to ubound(afstande) - 1
  afstand = split(afstande(i), ",")
  Response.write("<tr>")
  Response.write("<td width=""50%"">" & afstand(0) & "</td>")
  Response.write("<td width=""50%"" align=""right"">" & afstand(1) & "</td>")
  Response.write("</tr>")
  rs.movenext
next
Response.write("</table>")

Det hjlap...som du kan se lidt... men er spiller stadig ikke helt?!

Jeg har lige smidt lidt ekstra point i gryden... jeg syntes du er meget hjælpsom!

der mangler i hvert fald en afslutning paa tabellen.
Har du glemt det, eller er den gaaet i staa? Og hvad er der tilbage i feltet evt.?

:-) mange tak. Jeg haaber vi kan faa det loest...

hvilken linje er 199?

I feltet er der stadig:

Indkøb,500 m.
Skole,300 m.

Det har den ikke behandlet!?

Hvis du ser: http://www.esbjergsboligforeninger.dk/afdelinger.asp?id=1

Her er der 3:

Centrum,1000m.
Bus,250m.
Indkøb,500m.

Og den behandler også kun de to første!

jeg bliver noedt til at smutte nu...
er tilbage ca. kl. 16

Prøv at droppe rs.Movenext før next

  rs.movenext      <---------------------------- Slet denne linie
next

En anden ting er at lave det sådan at du ikke bruger -1 for den vil ikke udskrive den sidte punkt med -1:
Så denne linie rettes:

for i = 0 to ubound(afstande) - 1

Til:

for i = lbound(afstande) to ubound(afstande)

Hvis du ved et uheld har fået en vbCrLF (return) for meget i teksten kan man tjekke på om aftande(0) er lig "" og så ikke udskrive kolonnen for at undgå en tom kolonne.

Så koden bliver..:


afstande = split(rs("FELTNAVNET"), vbCrLf) //splitter ved linjeskift

Response.write("<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">")
for i = lbound(afstande) to ubound(afstande)
  afstand = split(afstande(i), ",")
  if afstand(0) <> "" then
    Response.write("<tr>")
    Response.write("<td width=""50%"">" & afstand(0) & "</td>")
    Response.write("<td width=""50%"" align=""right"">" & afstand(1) & "</td>")
    Response.write("</tr>")
  end if
next
Response.write("</table>")

Skulle du få et mellemrum mellem , og centrum eller 1.000 m så gør det ikke noget du kan bruge Trim den fjerne mellemrum før og efter en tekst men lader mellemrum inde i tekst blive..:

Centrum  , 1.000 m


Så disse to linier:
    Response.write("<td width=""50%"">" & afstand(0) & "</td>")
    Response.write("<td width=""50%"" align=""right"">" & afstand(1) & "</td>")

Rettes til:
    Response.write("<td width=""50%"">" & trim(afstand(0)) & "</td>")
    Response.write("<td width=""50%"" align=""right"">" & trim(afstand(1)) & "</td>")

Han er en satan ham eagleeye!!! Altid hurtig med sine svar og som regel er det rigtige og gode løsningen han kommer med... satans:-) Eagleeye er det ok med dig at jeg smide lidt symbolkse point efter dgivoni?? (say 10 points?) Han forsøgte med måtte løbe...

Og mange tak for hjælpen - det var super!