Asp?

[900 RR]

Jag har förstått att det är ganska många som jobbar på nått sätt med datorer och programering på detta forumet.
Har ett litet problem som nån förhoppningsvis kan hjälpa mig med.

Håller på med ett simpelt uppdaterings script så dom jag gör sidan åt kan uppdatera den själva.
Man matar in informationen i ett formulär och det sparas i en txt fil.
Så långt allt väl men när jag åropar textfilen så den skall visas på sidan så försvinner alla radbyten även fast dom ligger så fint i txt filen.

Har fått lite småtips om vbcrlf men får inte till det.
All text visas men den läggs bara på en rad!

Såhär ser scriptet ut som skall visa txt filen:

<% Dim Obj

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

strFilePath = Server.Mappath("data.txt")

set objFile = objFspenTextFile( strFilePath )

arrFsoLines = Split( objFile.ReadAll, vbcrlf )

for i = 0 to ubound( arrFsoLines )

Response.Write Replace(arrFsoLines(i), vbcrlf, "<br>") & vbcrlf


next

objFile.Close
Set objFile = Nothing
Set objFso = Nothing %>

Skulle nån kunna hjälpa mig med detta så skulle jag vara evigt tacksam!

 

[SamGun]

Tror detta ska funka.
När du splittar på vbCrLf tas detta även bort så din replace har inget att byta ut.

Det är inte heller säkert att din split funkar. Det beror på om du har \r\n eller bara \n som radavslut. Du kan testa att spitta på Chr(13) i stället om det inte funkar.

<% Dim Obj

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

strFilePath = Server.Mappath("data.txt")

set objFile = objFspenTextFile( strFilePath )

arrFsoLines = Split( objFile.ReadAll, vbcrlf )

for i = 0 to ubound( arrFsoLines )

Response.Write arrFsoLines(i) & "<br>"


next

objFile.Close
Set objFile = Nothing
Set objFso = Nothing %>

 

[Zormin]

Spliten ska nog funka med vbCrLf. Men varför göra en split öht? Det krånglar ju bara till det i onödan. Skicka in objFile.ReadAll direkt in i replace-funktionen istället.

<% Dim Obj

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

strFilePath = Server.Mappath("data.txt")

Set objFile = objFspenTextFile(strFilePath)

Response.Write Replace(objFile.ReadAll, vbCrLf, "<br>")

objFile.Close
Set objFile = Nothing
Set objFso = Nothing %>

Lätt som en plätt!

 

[900 RR]

Å jäklars vad glad jag blir!
Om ni visste hur många timmar jag har försökt att fåihop detta utan att lyckats!
Testade nu och det funkar klockrent!

Tusen tack för hjälpen!