How to convert html from emails into text?

[HGAutomator]

Hi,

I'm converting a whole bunch of Thunderbird emails into eml files, then into .csv, then into Excel, the into DBf format.

I've done all this so far, but of course the body of the email is littered with html codes.

How can I strip all the html out, and leave only text? I can probably replace <br> with character returns and line feeds, but I'd like to strip out all of the html in each body memo field into text.

[edk]

It is quite simple:

Code: Select all

Function HTMLToPlainText ( cHTML )
   Local oHTMLDoc := CreateObject( "HTMLFile" )
   Local cPlainText
   
   oHTMLDoc:Write ( cHTML ) 
   cPlainText := oHTMLDoc:body:innerText
   oHTMLDoc := Nil
RETURN cPlainText

[HGAutomator]

I'll give it a try, thanks edk.

[serge_girard]

Thanks Edward, this is what I also needed !

Serge