网上很多把HTML转换成纯文本格式的方法很多思路都是用正则表达式或者分析html代码替换的方法。
本文是利用IE完成转换,即利用IHTMLDocument2接口。
- uses
- MSHTML, ActiveX, OleCtrls, Variants, SysUtils;
- function HtmlToText(HtmlText: WideString): WideString;
- implementation
- function HtmlToText(HtmlText: WideString): WideString;
- var
- V: OleVariant;
- Document: IHTMLDocument2;
- begin
- Result := HtmlText;
- if HtmlText = '' then Exit;
- CoInitialize(<