Avatar billede Slettet bruger
09. juli 2003 - 21:25 Der er 9 kommentarer og
3 løsninger

vbCrLf og erstat

Hejsa

Jeg har brug for at lave en funktion, som ikke blot erstatter vb linebreaks med </br> men også mellemrum med &nbsp; og tabuleringer og hvad der ellers måtte være...

Hvad findes udover vbCrLf ?
Avatar billede Slettet bruger
09. juli 2003 - 21:28 #1
vbTab
Avatar billede medions Nybegynder
09. juli 2003 - 21:28 #2
vbNewLine

//>Rune
Avatar billede medions Nybegynder
09. juli 2003 - 21:29 #3
Chr(13)

//>Rune
Avatar billede Slettet bruger
09. juli 2003 - 21:32 #4
Chr(10)
Avatar billede eagleeye Praktikant
09. juli 2003 - 21:40 #5
Avatar billede Slettet bruger
09. juli 2003 - 21:49 #6
hvordan skrives de her chr(tal) ?

text = Replace(text,vbLf,"chr(tal)") vil vel næppe virke ?
Avatar billede medions Nybegynder
09. juli 2003 - 21:50 #7
text = Replace(text,vbLf,chr(tal))

//>Rune
Avatar billede medions Nybegynder
09. juli 2003 - 21:50 #8
Du mener vel:

text = Replace(text,vbCrLf,chr(tal))

//>Rune
Avatar billede Slettet bruger
09. juli 2003 - 21:50 #9
text = Replace(text,vbCrLf,chr(10)+chr(13))
Avatar billede sublimegirl Nybegynder
10. juli 2003 - 10:54 #10
Jeg anvender dette til mine formularer:

besked = Request.Form("besked")
besked = Server.HTMLEncode(besked)
besked = Replace(besked, "<br>", vbCr)
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))

NB: Chr(9) er tabulatortegnet.
Avatar billede sublimegirl Nybegynder
10. juli 2003 - 10:57 #11
ups, glemte at sætte det til svar. Men så kan jeg også lige tilføje, at scriptet skal se anderledes ud, når det hentes ud af db igen, - der skal det vendes omvendt:

<%
besked2 = rs2("besked")
besked2 = Replace(besked2, vbCr, "<br>")
besked = Replace(besked, "&nbsp;", Chr(32))
do while inStr(1,besked2,"  ") > 0
besked2 = Replace(besked2, " ", " &nbsp;")
loop
besked2 = Replace(besked2, Chr(9), "&nbsp;&nbsp;&nbsp;&nbsp;")
besked2 = Replace(besked2, "'", "&#39;")
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;")
%>
Avatar billede jytte Nybegynder
16. juli 2003 - 00:09 #12
>sublimegirl

Jeg synes bare det ser lidt for besværligt ud.
Kan du ikke bare bruge
  besked2 = server.htmlEncode(besked2)
i stedet for den lange smøre (hvor man næsten altid glemme nogen :-) ) ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester