🚀 go-pugleaf

Mathias Vissers wrote:

> Beste,
> 
> Ik heb een simpel forumpje gemaakt. Bij het verzenden van een nieuw bericht
> wordt de geposte tekst gecontroleerd op 'nieuwe lijnen' en vervangen door de
> html-tags <br>
> Ik gebruik daarvoor deze code:  tekst = Replace(tekst, vbCrLf, "<BR>")
> 
> Nu zit er ook een mogelijkheid in zodat mensen hun bericht terug kunnen
> aanpassen. Indien ze echter het formuliertje te zien krijgen met hun
> ingetypte tekst, staan hier nu ipv enters de html-tags <br>
> Kan je op een of andere manier terug dat tekstvak wijsmaken dat hij de
> <br>'s moet vervangen door een nieuwe lijn?

Wilde gok:

tekst = Replace(tekst, "<BR>", vbCrLf)

Let op dat je ook <br> en <Br> en <bR> kan hebben... Of zelfs <br/>,
<br />

Wat gebeurd er overigens als iemand

<a href="myhomepage">my home page</a>

ingeeft?

-- 
Kind regards,       feel free to mail: mail(at)johnbokma.com (or reply)
                     virtual home: http://johnbokma.com/  ICQ: 218175426
John                web site hints: http://johnbokma.com/websitedesign/

> Wilde gok:
>
> tekst = Replace(tekst, "<BR>", vbCrLf)
>
> Let op dat je ook <br> en <Br> en <bR> kan hebben... Of zelfs <br/>,
> <br />

dat had ik dus ook al geprobeerd :-)
Dat werkt dus niet...


>
> Wat gebeurd er overigens als iemand
>
> <a href="myhomepage">my home page</a>
>
> ingeeft?

Er zit een controle ingebouwd dat html-tags worden 'gecodeerd' naar tekst
 tekst = Replace(Replace(tekst,"<","&lt;"),">","&gt;")

"Mathias Vissers" <matje008@hotmail.com> schreef in bericht
news:EbK4b.13292$KH1.593979@phobos.telenet-ops.be...
> Beste,
>
> Ik heb een simpel forumpje gemaakt. Bij het verzenden van een nieuw
bericht
> wordt de geposte tekst gecontroleerd op 'nieuwe lijnen' en vervangen door
de
> html-tags <br>
> Ik gebruik daarvoor deze code:  tekst = Replace(tekst, vbCrLf, "<BR>")
>
> Nu zit er ook een mogelijkheid in zodat mensen hun bericht terug kunnen
> aanpassen. Indien ze echter het formuliertje te zien krijgen met hun
> ingetypte tekst, staan hier nu ipv enters de html-tags <br>
> Kan je op een of andere manier terug dat tekstvak wijsmaken dat hij de
> <br>'s moet vervangen door een nieuwe lijn?

Ik heb ook zelf zo een forumpje gemaakt en kwam tot dezelfde fout als jij
nu. Waarschijnlijk sla je alles op in een DB. Jij slaat het op nadat je
vbcrlf hebt vervangen. Ik niet. Ik vervang vbcrlf wanneer de berichten
opgevraagd worden dus de linefeed heb ik normaal opgeslaan in de DB waardoor
je dat probleem niet krijgt en het werkt perfect. Qua performantie denk ik
niet dat het veel zal schelen dus.

> Bedankt!
>
> M.
>
>

Gebruik deze functie bij het lezen van de database

Function VervangLineFeed(memo)
    do while (instr(1,memo,chr(13))<>0)
        memo = Replace(memo,chr(13),"<br>")
    loop
    VervangLineFeed = memo
End Function

en vergeet deze functie niet bij het wegschrijven naar uw db, bij deze
laatste functie maak je het mogelijk met single quotes te werken, en vermijd
je hackers bij het inloggen

Function CleanSQLString(InString)
    CleanSQLString = "'" & Replace(InString, "'", "''") & "'"
End Function




"Mathias Vissers" <matje008@hotmail.com> schreef in bericht
news:EbK4b.13292$KH1.593979@phobos.telenet-ops.be...
> Beste,
>
> Ik heb een simpel forumpje gemaakt. Bij het verzenden van een nieuw
bericht
> wordt de geposte tekst gecontroleerd op 'nieuwe lijnen' en vervangen door
de
> html-tags <br>
> Ik gebruik daarvoor deze code:  tekst = Replace(tekst, vbCrLf, "<BR>")
>
> Nu zit er ook een mogelijkheid in zodat mensen hun bericht terug kunnen
> aanpassen. Indien ze echter het formuliertje te zien krijgen met hun
> ingetypte tekst, staan hier nu ipv enters de html-tags <br>
> Kan je op een of andere manier terug dat tekstvak wijsmaken dat hij de
> <br>'s moet vervangen door een nieuwe lijn?
>
> Bedankt!
>
> M.
>
>

> Function VervangLineFeed(memo)
>     do while (instr(1,memo,chr(13))<>0)
>         memo = Replace(memo,chr(13),"<br>")
>     loop
>     VervangLineFeed = memo
> End Function

 thx!

de 'beveiliging tegen hackers' had ik al ingebouwd

M.