Troels Jensen wrote in dk.edb.internet.webdesign.serverside.asp:
> Jeg er ved at lave et cms-system, hvor brugeren skal kunne ændre i en
> tekstfil. Jeg henter tekstfilen ind i et <textarea> i en form, hvor brugeren
> kan redigere filen (med html tags og alt det fine). Når formen bliver
> submitted, gemmes filen.
>
> Men eventuelle linieskift i koden kommer ikke med (<br> og </p> gemmes som
> normalt, men de visuelle linieskift forsvinder i formen). Er det fordi, jeg
> blander tekstfiler og html sammen? Hvordan kan jeg få linieskift med, så det
> bliver lidt mere brugervenligt?
>
>
> Jeg læser filen sådan her:
>
> <%
>
> dim fso, filespec, f
>
> set fso = createobject("scripting.filesystemobject")
> filespec = server.mappath("../da/news.txt")
> set f = fso.opentextfile(filespec, 1)
>
> do while not f.atendofstream
> response.write f.readline
>
> loop
>
> f.close
>
> %>
>
> ....og skriver til filen sådan:
>
> <%
>
> dim fso, f, filespec
>
> set fso = createobject("scripting.filesystemobject")
> filespec = server.mappath("../da/news.txt")
> set f = fso.opentextfile(filespec, 2)
>
> f.write request.form("text")
>
> f.close
>
> %>
>
> Mvh. Troels Jensen
>
>
Skift linieskift ud med <br>...
Gøres sådan med denne funktion:
Replace(str, VbCrLf, "<br>")
Altså skal du skifte denne linie:
f.write request.form("text")
ud med denne:
strText = Request.Form("text")
strText = Replace(strText, VbCrLf, "<br>")
f.write strText
Du kan også skifte <br> ud med linieskift når du henter indholdet ind i
textarea'et:
<textarea>
<%
strText = "Teksten der står i tekstfilen"
strText = Replace(strText, "<br>", VbCrLf)
Response.Write strText
%>
</textarea>
...håber det hjalp
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials