|
Displaying Source Code(s)
|
|
--------------------------------------------------------------------------------
HTML Remover
--------------------------------------------------------------------------------
Description : This code will replace a few HTML tags with known
equiv.s and Remove all the others.
<SCRIPT LANGUAGE=VBScript>
<!--
'By Warlock
Function RemoveHTML(strHTM)
Dim strTmp, strTmp1, i, lngLen, charOne, ynWait4End
strTmp=""
strTmp1=CStr(strHTM)
strTmp1 = Replace(CStr(strHTM),"<BR>", vbCrLf)
strTmp = Replace(strTmp1,"<TR>", vbCrLf)' Got To try all Cases
TR Tr tr tR
strTmp1 = Replace(strTmp,"</TR>", vbCrLf)
strTmp = Replace(strTmp1,"<TR>", vbCrLf)
strTmp1 = Replace(strTmp,"</TR>", vbCrLf)
strTmp = Replace(strTmp1,"<TR>", vbCrLf)
strTmp1 = Replace(strTmp,"</TR>", vbCrLf)
strTmp = Replace(strTmp1,"<TR>", vbCrLf)
strTmp1 = Replace(strTmp,"</TR>", vbCrLf)
strTmp = Replace(strTmp1,"<TD>", " ")'<- 4 spaces
strTmp1 = Replace(strTmp,"</TD>", " ")
strTmp = Replace(strTmp1,"<TD>", " ")
strTmp1 = Replace(strTmp,"</TD>", " ")
strTmp = Replace(strTmp1,"<TD>", " ")
strTmp1 = Replace(strTmp,"</TD>", " ")
strTmp = Replace(strTmp1,"<TD>", " ")
strTmp1 = Replace(strTmp,"</TD>", " ")
strTmp = Replace(strTmp1,"<P>", vbCrLf)
strTmp1 = Replace(strTmp,"</P>", vbCrLf)
strTmp = Replace(strTmp1,"<P>", vbCrLf)
strTmp1 = Replace(strTmp,"</P>", vbCrLf)
strTmp = Replace(strTmp1,"<BR>", vbCrLf)
strTmp1 = Replace(strTmp,"</BR>", vbCrLf)
strTmp = Replace(strTmp1,"<BR>", vbCrLf)
strTmp1 = Replace(strTmp,"</BR>", vbCrLf)
strTmp = Replace(strTmp1,"<BR>", vbCrLf)
strTmp1 = Replace(strTmp,"</BR>", vbCrLf)
strTmp=""
ynWait4End = False
lngLen = Len(strTmp1)
For i = 1 To lngLen
charOne=Mid(strTmp1,i,1)
If charOne="<" Then
ynWait4End = True
charOne=""
End If
If ynWait4End = True Then
If charOne = ">" Then
ynWait4End = False
End If
charOne = ""
End If
strTmp = strTmp & charOne
Next
RemoveHTML= strTmp
End Function
//-->
</SCRIPT>
|
|
|
123
Eng