123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

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>
 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG