| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

zsv3 ©   (2008-01-26 08:23:00) 

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

---

Artem   (2008-01-26 11:33:00) [1]

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:00) [2]

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

---

palva   (2008-01-26 09:47:00) [3]

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

---

Наверх