"Hendrik W. Hansen" <hcwh@yahoo.com> wrote in message
news:lPwX5.2238$72.32168@twister.sunsite.auc.dk...
>
> "Lauritz Jensen" <lauritz2@hotmail.com> wrote in message
> news:3A2E972F.BADBF73@hotmail.com...
> > En parser er jo ikke en umulig ting at skrive, men man kunne da ret nemt
> > lave det med et regulært udtryk, men der er jo også en hurtig løsning:
>
> Ja, hvis du tænker quick and dirty, så er det relativt hurtigt at lave.
Men
> 99% af gangene så går der en uge, så vil man også lige have et andet tag
> med, og ugen efter...... Hvis man skal lave dette ordentligt, så skal man
> kunne give funktionen en tekst og en liste over acceptable tags, og til
det
> er det nødvendigt at have en parser.
Nu ved jeg ikke hvad du mener med en parser, men for en tagwall på et
website med under ca 5.000 hits om dagen kan dette sagtens bruges, det er
flækket sammen på 2 minutter.
-------------
Dim strOriginalTekst, strOutputTekst, aTilladteTags, i
Const strTilladteTags="&#,<b>,</b>,<i>,</i>,<a,>" 'udvid selv &# er brugt
til specialtegn, fx prik og kinesiske karaktere.
strOriginalTekst = <hent data>
strOutputTekst = server.htmlencode(strOrginaltekst) 'htmlencode
aTilladteTags = Split(strTilladteTags, ",")
for i=LBound(aTilladteTags) to UBound(aTilladteTags)
strOutputTekst = Replace(server.htmlencode(aTilladteTags(i)),
aTilladteTags(i)) 'afkod tag.
next
response.write strOutputTekst
------------
Det er dog rigtigt at det er sjovere at få oversat strenge der indeholder
http:// eller bare
www.blah... til hyperlinks automatisk. Dette kan du finde
på
www.activeserverpages.dk, ja der er sågar 2 stk.
http://www.activeserverpages.dk/download/default.asp?mode=showdownload&id=43
http://www.activeserverpages.dk/download/default.asp?mode=showdownload&id=15
Disse funktioner kan sagtens kombineres med funktionen jeg har lavet.
Fx. Fjern "<a" og ">" som tilladte tags og kør en af de to ovennævnte
funktioner på strengen efter brugen af min funktion (det kan også gøres på
andre måder).
Kombinationen af disse to funktioner giver det bedste resultat efter min
mening.
MVH
Allan Ebdrup