[ASP]tekst inkorten met HTML tags

[SilentSimon]

Ik heb gezocht doch niks gevonden dus probeer ik het zo
Op mijn pagina laat ik de laatste 5 nieuwsberichten zien die gepost zijn en laat ze afkappen om een "lees meer" linkje te genereren. Dit werkt allemaal perfect met de volgende code:

code:

Dim blaat
blaat =  ObjRs_nieuws("content")
If Len(blaat) > 300 Then
    titel = Left(blaat, 300) & " ..."
End if

Alleen nu is het probleem dat de content die ik wil inkorten soms ook html tags in zich heeft. Nu kort ik dus de tekst in, zonder dat de html tags weer gesloten wordt, wat nogal mijn layout verneukt enzo. Hoe krijg ik het voorelkaar dat ik geopende hml-tags ook weer automatisch sluit. Of een andere nette oplossing?

[Verwijderd]

Mogelijkheid 1 is een stack bijhouden met de geopende tags, en bij sluittags de hoogste van de stack verwijderen. Als na het afbreken de stack nog niet leeg is dan moet je nog wat tags expliciet afsluiten.

Mogelijkheid 2 is DOM functies gebruiken.

[crisp]

Mogelijkheid 3 is alle tags er uit strippen

[SilentSimon]

Sja daar zat ik net ook aan te denken, gewoon alles tussen < en > opruimen, maar hoe zit het dan met eigen ingevoerde < en >'en.

[NMe]

SilentSimon schreef op zondag 09 oktober 2005 @ 20:25:
Sja daar zat ik net ook aan te denken, gewoon alles tussen < en > opruimen, maar hoe zit het dan met eigen ingevoerde < en >'en.

Die behoor je te vervangen door < en >.

[SilentSimon]

Juist, je hebt volkomen gelijk

[CodeCaster]

Ik gebruik altijd deze standaard clean functies:

Visual Basic:

Function RemoveTags(strText)
    ' Vervang HTML tags uit strText door corresponderende HTML codes
    Dim strTemp
    strTemp = Replace(strText, "<", "&lt;")
    strTemp = Replace(strTemp, ">", "&gt;")
    strTemp = Replace(strTemp, Chr(34),"&quot;")
    strTemp = Replace(strTemp, "'", "'")
    RemoveTags = strTemp
End Function

Function RemoveHTML(strText)
    ' Verwijder hele html tags (als <img src=...), voor preview doeleinden
    Dim RegEx

    Set RegEx = New RegExp

    RegEx.Pattern = "<[^>]*>"
    RegEx.Global = True

    RemoveHTML = RegEx.Replace(strText, "")
End Function

[ Voor 23% gewijzigd door CodeCaster op 10-10-2005 12:25 ]