• Home
 · 
• String Manipulation
 · 
• Remove HTML + Optional Ingnore Tags

Remove HTML + Optional Ingnore Tags

This function will strip a string of all html. An optional parameter (sIgnoreTags) allows specified HTML tags to be ignored from stripping.

Rate Remove HTML + Optional Ingnore Tags

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Function RemoveHTML(ByVal sHTML, ByVal sIgnoreTags)
	Dim I, J, arr_sIgnoreTags, sIgnoreTag, bIgnoreTags, bIgnoreTag, iIndex
	bIgnoreTags = False
	If Len(sIgnoreTags) > 0 Then
		arr_sIgnoreTags = Split(sIgnoreTags, ",")
		bIgnoreTags = True
	End If
	sHTML = Trim(sHTML)
	If IsNull(sHTML) Then sHTML = ""
	sHTML = Replace(sHTML, vbCrLf, "") 'Makes easier
	I = InStr(1, sHTML, "<")
	Do While I <> 0
		bIgnoreTag = False
		If bIgnoreTags Then
			For iIndex = 0 To UBound(arr_sIgnoreTags)
				sIgnoreTag = Trim(arr_sIgnoreTags(iIndex))
				If UCase(Mid(sHTML, I + 1, Len(sIgnoreTag))) = UCase(sIgnoreTag) Then
					bIgnoreTag = True
					Exit For
				End If
			Next
		End If
		
		If Not bIgnoreTag Then
			J = InStr(I + 1, sHTML, ">")
			If J <> 0 Then
				sHTML = Left(sHTML, I - 1) & Mid(sHTML, J + 1)
			Else
				'Chop off rest off sHTML since bad HTML
				sHTML = Left(sHTML, I - 1)
			End If
		Else
			I = I + 1 'So next tag is searched
		End If
		I = InStr(I, sHTML, "<")
	Loop
	If Len(sHTML) = 0 Then sHTML = " "
	RemoveHTML = sHTML
End function