linjeskift fra textarea

Gør sådan her:

besked = Replace(besked, vbCrLf,"<br>")

//>Rune

rune > så bliver der smidt <br> tags ud over alt hvor der bliver tastet ENTER.

besked = Replace(besked, "<br>",vbCrLf)

;o)

//>Rune

rune > det står der allerede

Og laver den stadivæk ikke linjeskift?

//>Rune

har selv løst det

Ved insættelse i gæstebogen stod før:
besked2 = Replace(besked2, Chr(32), "&nbsp;")
De skulle have været:
besked2 = Replace(besked2, Chr(32), " ")

... bortset fra, at nu kan man ikke lave flere end 1 mellemrum ad gangen... hvordan løser jeg nu DET problem!!!!!?

rune > har du et bud?

kunne man lave en funktion der sagde, at hvis antallet af Chr(32) var 2 skulle man lave en &nbsp; ???

Hmm tror du kan gøre sådan her:

If Not InStr(besked2,Chr(32) & Chr(32)) Then
  besked2 = Replace(besked2, Chr(32), "&nbsp;")
End If

//>Rune

Så er jeg tilbage til det gamle problem... der bliver ikke skiftet linje.

Der bliver sat en masse &nbsp; ind i tabellen og der bliver ikke skiftet linje.

Her er mine to replacefunktioner:

Lægger i db:
besked = Request.Form("besked")
besked = Server.HTMLEncode(besked)
besked = Replace(besked, "<br>", vbCrLf)
besked = Replace(besked, "&nbsp;", Chr(32))
besked = Replace(besked, "&nbsp;&nbsp;&nbsp;&nbsp;", Chr(9))
besked = Replace(besked, "&#39;", "'")
besked = Replace(besked, "&aelig;", chr(230))
besked = Replace(besked, "&oslash;", chr(248))
besked = Replace(besked, "&aring;", chr(229))
besked = Replace(besked, "&AElig;", chr(198))
besked = Replace(besked, "&Oslash;", chr(216))
besked = Replace(besked, "&Aring;", chr(197))
besked = Replace(besked, "&uuml;", chr(252))
besked = Replace(besked, "&Uuml;", chr(220))
besked = Replace(besked, "&szlig;", chr(223))
besked = Replace(besked, "&commat;", chr(64))


Henter ud i gæstebogen:

besked2 = rs2("besked")
besked2 = Replace(besked2, vbCrLf, "<br>")
besked2 = Replace(besked2, Chr(9), "&nbsp;&nbsp;&nbsp;&nbsp;")
besked2 = Replace(besked2, "'", "&#39;")
besked2 = Replace(besked2, Chr(32), "&nbsp;")
besked2 = Replace(besked2, chr(230), "&aelig;")
besked2 = Replace(besked2, chr(248), "&oslash;")
besked2 = Replace(besked2, chr(229), "&aring;")
besked2 = Replace(besked2, chr(198), "&AElig;")
besked2 = Replace(besked2, chr(216), "&Oslash;")
besked2 = Replace(besked2, chr(197), "&Aring;")
besked2 = Replace(besked2, chr(252), "&uuml;")
besked2 = Replace(besked2, chr(220), "&Uuml;")
besked2 = Replace(besked2, chr(223), "&szlig;")

Ok..
Til din DB:

besked = Request.Form("besked")
besked = Server.HTMLEncode(besked)
besked = Replace(besked, "&nbsp;", Chr(32))
besked = Replace(besked, "&nbsp;&nbsp;&nbsp;&nbsp;", Chr(9))
besked = Replace(besked, "&#39;", "'")
besked = Replace(besked, "&aelig;", chr(230))
besked = Replace(besked, "&oslash;", chr(248))
besked = Replace(besked, "&aring;", chr(229))
besked = Replace(besked, "&AElig;", chr(198))
besked = Replace(besked, "&Oslash;", chr(216))
besked = Replace(besked, "&Aring;", chr(197))
besked = Replace(besked, "&uuml;", chr(252))
besked = Replace(besked, "&Uuml;", chr(220))
besked = Replace(besked, "&szlig;", chr(223))
besked = Replace(besked, "&commat;", chr(64))

gæstebogen:

besked2 = rs2("besked")
besked2 = Replace(besked2, vbCrLf, "<br>")
besked2 = Replace(besked2, Chr(9), "&nbsp;&nbsp;&nbsp;&nbsp;")
besked2 = Replace(besked2, "'", "&#39;")
besked2 = Replace(besked2, Chr(32), "&nbsp;")
besked2 = Replace(besked2, chr(230), "&aelig;")
besked2 = Replace(besked2, chr(248), "&oslash;")
besked2 = Replace(besked2, chr(229), "&aring;")
besked2 = Replace(besked2, chr(198), "&AElig;")
besked2 = Replace(besked2, chr(216), "&Oslash;")
besked2 = Replace(besked2, chr(197), "&Aring;")
besked2 = Replace(besked2, chr(252), "&uuml;")
besked2 = Replace(besked2, chr(220), "&Uuml;")
besked2 = Replace(besked2, chr(223), "&szlig;")

//>Rune

hmm... der kommer stadig intet linjeskift med mindre man selv trykker ENTER i textfeltet.

Hmm prøv lige at vis mig et udtræk fra gæstebogen!

//>Rune

HTML kilden?

Nej... Response.Write(besked2) hvad får du så?

//>Rune

hvis jeg skriver dette:
hej hej
hej  hej  hje kjn lk jjnkl  j kn l jk n l jknljkn  jlk nljk njl jk nlkj
spytter den dette ud:
hej hej
hej  hej  hje kjn lk jjnkl  j kn l jk n l jknljkn  jlk nljk njl jk nlkj

Og hvad hvis du fjerner
If Not InStr(besked2,Chr(32) & Chr(32)) Then

?

//>Rune

den har jeg fjernet, for den virkede ikke. Lige nu har jeg kun denne:
besked2 = Replace(besked2, vbCr, "<br>") som viser i gæstebogen.

Grund til &nbsp; ikke giver return er fordi det netop et et

nbsp = Non-Breaking SPace (lowercase &nbsp; used in SGML/HTML systems to specify a space but inhibit a linebreak at that point)


Ligeledes siger HTML standarten at X antal mellemrum " " kun må vises som et " ".

Så du man lave en function som lavet de om til skifte vis " " og så &nbsp; så tror jeg det virker.

man må da kunne lave en formel som f.eks.:
If antallet af " " > 2 Then
replace(besked2, Chr(32), " nbsp;"
End If

hmm.... er bare ikke nørd nok til lige at grejle den.

Men ellers må jeg droppe det med mellemrum :-(
Ikke noget at gøre.

Prøv med dette det laver "  " om til " " og &nbsp;


do while inStr(1,besked2,"  ") > 0
  besked2 = Replace(besked2, "  ", " &nbsp;")
loop

Hvor skal jeg sætte det?

hvad betyder 1-tallet?

Du kan ligge det efter dine replaces men som minimum efter denne linie:


besked = Replace(besked, "&nbsp;", Chr(32))

det er hvor den starter med at søge fa karakter nummer 1, den kan vist udelades.

YES!!!! langt om længe! det virker perfekt!

;)