Конвертация htm в txt. Или количество слов в htm документе.

← →
zsv3 (2008-01-26 08:23) [0]

Здравствуйте, мастера.
Вчера мне никто не смог ответить на такой вопрос: как подсчитать программно количество слов в htm или в html документа. Если это возможно, покажите как.
Если этого сделать нельзя, то подскажите как переконвертировать htm документ в txt.

← →
palva © (2008-01-26 09:47) [1]

Что такое html-документ? И что такое слово в этом документе.
Когда вы ввели пароль на странице, то количество слов в ней увеличилось?

← →
Artem (2008-01-26 11:33) [2]

uses mshtml, activex;

procedure GetHtmlCode(WebBrowser: TWebBrowser; FileName: string);
var
htmlDoc: IHtmlDocument2;
PersistFile: IPersistFile;
begin
htmlDoc := WebBrowser.document as IHtmlDocument2;
PersistFile := HTMLDoc as IPersistFile;
PersistFile.save(StringToOleStr(FileName), true);
end;

← →
Artem (2008-01-26 11:33) [3]

var
Document: IHTMLDocument2;
begin
Document := WB.Document as IHtmlDocument2;
if Document < > nil then
Memo1.Text := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;

Конвертация htm в txt. Или количество слов в htm документе. Найти похожие ветки