Plocka bort HTML-kommentarer ur Databasen

En variant kan ju vara att låta bli att spara html i databasen.
Vad använder du det till?

Jag sparar vissa inställningar inom kommentaren men jag vill inte att de ska ligga i koden om man tar visa...källa

HEJ!

Enkelt :stud, RegExp är det som gäller! Plockar här bort html-taggar, och avslutar med ... om är fler än 250 tecken.

Function TaBortHTML(brodtext)
	Dim RegEx, utanhtml
	Set RegEx = New RegExp
	RegEx.Pattern = "<[^>]*>"
	RegEx.Global = True
	'utan html blir det
	utanhtml = RegEx.Replace(brodtext,"")
	if Len(utanhtml)<=250 then
		taborthtml=Trim(Replace(utanhtml, VbCrLf, ""))
	else
		if InStr(250,utanhtml," ")<>0 then
			'tar >250 tecken, till första mellanslaget, (som tas bort) efter det + ...
			taborthtml = Left(utanhtml,InStr(250,utanhtml," ")-1) & "..."
		else
			'om inte finns mellanslag efter 250 tecken
			taborthtml = utanhtml
		end if
	end if
End Function

Funktionen kallas via 
response.write TaBortHTML(RS("forklaring"))

'kod från [url]http://www.aspalliance.com/stevesmith/articles/removehtml.asp[/url]

Detta pattern borde funka om du endast vill plocka bort kommentarer.

RegEx.Pattern = "<!--[^>]*-->"

HEJ!

Ojdå, jag övertolkade <!-- Här kan stå... --> till att vara <*>, dvs alla taggar...

Function RemoveComment(ByVal sHTML)
	
	Dim objRegExp
	Set objRegExp = New RegExp
	
	sHTML = Trim(sHTML & "")
	
	objRegExp.Global = True
	objRegExp.Pattern = "<!--[\s\S]*?-->"
	
	RemoveComment = objRegExp.Replace(sHTML, "")
	
	Set objRegExp = Nothing
	
End Function