Stripping HTML

[David Sawyer]

I am trying to read in an HTML file and strip out the HTML
code so that all I have left is the text of the body.

Does anyone have any suggestions for doing this?
Any HTML stripping routines or objects that perform the
function?

[Charles]

Public Function StripHTML(ByVal HTML As String) As String
Dim strContent As String, mString As String
Dim mStartPos As Long, mEndPos As Long
Dim i, j

strContent = HTML.Replace("</P>", vbCrLf)
strContent = strContent.Repl ace("</p>", vbCrLf)

mStartPos = InStr(strConten t, "<")
mEndPos = InStr(strConten t, ">")
Do While mStartPos <> 0 And mEndPos <> 0 And mEndPos > mStartPos
mString = Mid(strContent, mStartPos, mEndPos - mStartPos + 1)
strContent = Replace(strCont ent, mString, "")
mStartPos = InStr(strConten t, "<")
mEndPos = InStr(strConten t, ">")
Loop
strContent = Replace(strCont ent, "&nbsp;", " ")
strContent = Replace(strCont ent, "&amp;", "&")
strContent = Replace(strCont ent, "&quot;", "'")
strContent = Replace(strCont ent, "&#", "#")
strContent = Replace(strCont ent, "&lt;", "<")
strContent = Replace(strCont ent, "&gt;", ">")
strContent = Replace(strCont ent, "%20", " ")
strContent = LTrim(Trim(strC ontent))
Do While Left(strContent , 1) = Chr(13) Or Left(strContent , 1) =
Chr(10)
strContent = Mid(strContent, 2)
Loop
Return strContent.Repl ace(vbCrLf, "<br>")
End Function

"David Sawyer" <goldwings@_DEL ETE_msn.com> wrote in message
news:0e******** *************** *****@phx.gbl.. .

I am trying to read in an HTML file and strip out the HTML
code so that all I have left is the text of the body.

Does anyone have any suggestions for doing this?
Any HTML stripping routines or objects that perform the
function?

[Cor]

David,
Try to use mshtml.htmldocu ment
That gives a document in "DOM" document style.
If you are used to JavaScript it is easy to get the values then to process
this with the vVB.net language.
(tagname.innert ext)
Hopes this helps a little bit,
Cor

[David Sawyer]

Thanks Charles. I will put this in my program and try it
out. I appreciate your help.

-----Original Message-----
Public Function StripHTML(ByVal HTML As String) As String Dim strContent As String, mString As String
Dim mStartPos As Long, mEndPos As Long
Dim i, j

strContent = HTML.Replace("</P>", vbCrLf)
strContent = strContent.Repl ace("</p>", vbCrLf)

mStartPos = InStr(strConten t, "<")
mEndPos = InStr(strConten t, ">")
Do While mStartPos <> 0 And mEndPos <> 0 And mEndPos > mStartPos mString = Mid(strContent, mStartPos, mEndPos - mStartPos + 1) strContent = Replace(strCont ent, mString, "")
mStartPos = InStr(strConten t, "<")
mEndPos = InStr(strConten t, ">")
Loop
strContent = Replace(strCont ent, " ", " ")
strContent = Replace(strCont ent, "&", "&")
strContent = Replace(strCont ent, """, "'")
strContent = Replace(strCont ent, "&#", "#")
strContent = Replace(strCont ent, "<", "<")
strContent = Replace(strCont ent, ">", ">")
strContent = Replace(strCont ent, "%20", " ")
strContent = LTrim(Trim(strC ontent))
Do While Left(strContent , 1) = Chr(13) Or Left (strContent, 1) =Chr(10)
strContent = Mid(strContent, 2)
Loop
Return strContent.Repl ace(vbCrLf, "<br>")
End Function

"David Sawyer" <goldwings@_DEL ETE_msn.com> wrote in messagenews:0e******* *************** ******@phx.gbl. ..

I am trying to read in an HTML file and strip out the HTML code so that all I have left is the text of the body.

Does anyone have any suggestions for doing this?
Any HTML stripping routines or objects that perform the
function?

.

[Cor]

David,
You have to set the reference to Microsoft.mshtm l
You do that in the IDE by:Project, add reference, Microsoft.mshtm l(You can
do it too by right clicking on references in the soluction explorer.)
You better can not use an import when you have set a reference to this,
because then your IDE becomes terrible slow.
Use it like (as example) document as microsoft.mshtm l.document
Success
Cor

[David Sawyer]

Charles,
I tried using your function by calling the function as
stripHTML(tData ToGet)
It get an invalid qualifer error in this line
strContent = HTML.Replace("</P>", vbCrLf)
And it highlights HTML.

Also on the line
Return strContent.Repl ace(vbCrLf, "<br>")
I get the error
Expected: end of statement

Any thoughts or ideas?
Thanks

-----Original Message-----
Public Function StripHTML(ByVal HTML As String) As String Dim strContent As String, mString As String
Dim mStartPos As Long, mEndPos As Long
Dim i, j

strContent = HTML.Replace("</P>", vbCrLf)
strContent = strContent.Repl ace("</p>", vbCrLf)

mStartPos = InStr(strConten t, "<")
mEndPos = InStr(strConten t, ">")
Do While mStartPos <> 0 And mEndPos <> 0 And mEndPos > mStartPos mString = Mid(strContent, mStartPos, mEndPos - mStartPos + 1) strContent = Replace(strCont ent, mString, "")
mStartPos = InStr(strConten t, "<")
mEndPos = InStr(strConten t, ">")
Loop
strContent = Replace(strCont ent, " ", " ")
strContent = Replace(strCont ent, "&", "&")
strContent = Replace(strCont ent, """, "'")
strContent = Replace(strCont ent, "&#", "#")
strContent = Replace(strCont ent, "<", "<")
strContent = Replace(strCont ent, ">", ">")
strContent = Replace(strCont ent, "%20", " ")
strContent = LTrim(Trim(strC ontent))
Do While Left(strContent , 1) = Chr(13) Or Left (strContent, 1) =Chr(10)
strContent = Mid(strContent, 2)
Loop
Return strContent.Repl ace(vbCrLf, "<br>")
End Function

"David Sawyer" <goldwings@_DEL ETE_msn.com> wrote in messagenews:0e******* *************** ******@phx.gbl. ..

I am trying to read in an HTML file and strip out the HTML code so that all I have left is the text of the body.

Does anyone have any suggestions for doing this?
Any HTML stripping routines or objects that perform the
function?

.