Ofrivilliga radbrytningar

3 svar · 207 visningar · startad av Mr Nils 13 okt. 2000

Mr NilsMedlem sedan jan. 2000640 inlägg

Frågan13 okt. 2000 11:51#1

Hejsan, jag undrar om det är nogon som vet varför jag får en radbrytning i slutet av ett dokument som jag sprar med följande kod.

   Dim fso, f1, ts, s
   Const ForReading = 1
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f1 = fso.CreateTextFile(Session("byt"), True)

dim inlagg
inlagg = Request.Form("namn")
inlagg = Replace(inlagg,"[tjock]","<b>")
inlagg = Replace(inlagg,"[smal]","</b>")
inlagg = Replace(inlagg,vbcrlf,"<br>")

f1.WriteLine inlagg

f1.Close

Request.Form("namn") kommer från en standard textarea.

*håller tummarna för hjälp*

------------------
/Nils Wikberg
-"Law and order are for weak minds. Chaos requires management.

@ndersMedlem sedan juni 200032 967 inlägg

13 okt. 2000 18:48#2

hmm... får man inte alltid det när man skriver filer med fso?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
where do you want to go to die?</A>

Mr NilsMedlem sedan jan. 2000640 inlägg

14 okt. 2000 10:29#3

hm, det är möjligt.. men finns det inget sätt att komma runt det. Använder det för att uppdatera en sida, och det blir lite jobbigt om det kommer fler och fler radbrytningar.. så.. *argh*

------------------
/Nils Wikberg
-"Law and order are for weak minds. Chaos requires management.

VideMedlem sedan dec. 19998 577 inlägg

14 okt. 2000 13:28#4

Lägg in en till rad innan du lägger det i filen:

inlagg = Left(inlagg,Cint(len(inlagg))-4)

------------------
Kom hem till mig...