Jeg har en side med en included tekstfil. Denne tekstfil kan ændres af
forskellige brugere. Men hver gang, filen bliver ændret, tilføjes et par
ekstra linieskift i bunden af filen. Systemet kan ses her:
<
http://www.simonnielsen.com/test/default.asp>
Klik på 'gem' og derefter 'ændre' et par gange og bemærk, hvordan bunden
af teksten flytter sig længere og længere ned.
Kildekoden ser sådan ud:
----
default.asp
----
<body>
<form action="gem.asp" method="post">
<textarea cols="60" rows="10" name="text">
<%
dim fso, filespec, f, strtext
set fso = createobject("scripting.filesystemobject")
filespec = server.mappath("/test.txt")
set f = fso.opentextfile(filespec, 1)
do while not f.atendofstream
strText = f.readline
strText = Replace(strText, "<br>", VbCrLf)
Response.Write strText
loop
f.close
%>
</textarea>
<input type="submit" value="Gem">
</form>
</body>
----
gem.asp
----
<%
dim fso, filespec, f, strtext
set fso = createobject("scripting.filesystemobject")
filespec = server.mappath("/test.txt")
set f = fso.opentextfile(filespec, 2)
strText = Request.Form("text")
strText = Replace(strText, VbCrLf, "<br>")
f.write strText
f.close
response.redirect "preview.asp"
%>
----
Hvor opstår de ekstra linieskift, og hvad kan man gøre ved det?
--
Mvh.
Troels Jensen
http://www.troelsweb.dk