Asp?

900 RR

...::: Titanförstärkt :::
Gick med
6 Mar 2003
Ort
Lkpg
Hoj
KTM Lc4 SuperMoto -01
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 = objFso.OpenTextFile( 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!
 
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 = objFso.OpenTextFile( 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 %>
 
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 = objFso.OpenTextFile(strFilePath)

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

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


Lätt som en plätt!
 
Å 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! :tummenupp
 
Nyheter
Jonathan Rea avslutar sin racingkarriär

Efter nästan två decennier ...

Yamaha debuterar med V4 i MotoGP

Yamaha har meddelat att för...

Hojmys i Ugglans Park

Ända sedan början av 90-tal...

MC-mässan 2026

MC-Mässan är tillbaka 23–25...

Bike kör Stark Varg EX!

Under hösten kommer Bike gö...

Customhoj Bike Show 2026

Den 23 till 25 januari körs...

Racing på Kjula Dragway till helgen

Den kommande helgen (23-24 ...

Harley-Davidson och MotoGP lanserar Harley-Davidson Bagger World Cup

Harley-Davidson och MotoGP ...

BMW Motorrad International GS Trophy 2026 körs i Rumänien

Platsen för BMW Motorrad In...

Strängnäs Bike Show den 30/8

Sista lördagen i augusti är...

Back
Top