Ofrivilliga radbrytningar

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

Mr NilsMedlem sedan jan. 2000640 inlägg

Trådstart13 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*

@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?

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*

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)