[kin-dza-dza]

Всем привет!
Помогите с исходиником или алгоритмом как сделать следующее:

В прогу вводим интетовский адрес странички, например www.news.news.htm
далее прога должна вырезать текст из данной странички, только в определенных местах, и сохранять его на локалый диск в ввиде текствового файла.
Для справки: HTML страничка статична, меняются только некоторые значения (цифры), вот эти цыферки нужно вырезать из хтмл странички и сохранять на локалный диск в виде текстового файла. Интервал времени выволнения этого кода должен задаваться вручную от 1 до 10 минут, текстовик с вырезанным нужным куском текста тупо перезаписывается, а не создается новый.

[san-46]

Вот функция, которая загружает из указанного в ее параметре "aUrl" HTML страницу. В функции, для примера, страница загружается в TMemo. Можно в TStringList, если не надо ее показывать (или в Memo установить Visible := False). Функция работоспособная - проверял.

Код:

uses Wininet;
function DownloadURL(const aUrl: string): Boolean;
var
  hSession: HINTERNET;
  hService: HINTERNET;
  lpBuffer: array[0..1024 + 1] of Char;
  dwBytesRead: DWORD;
begin
  Result := False;
  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hSession) then begin
      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);
      if Assigned(hService) then begin
        try
          while True do
          begin
            dwBytesRead := 1024;
            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
            if dwBytesRead = 0 then break;
            lpBuffer[dwBytesRead] := #0;
            Form1.Memo1.Lines.Add(lpBuffer);
          end;
          Result := True;
        finally
          InternetCloseHandle(hService);
        end;
      end else
        ShowMessage('Страница не найдена!')
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

А дальше ищешь в Memo свои тексты и сохраняешь в файл, если есть.