Как вытащить таблицу из html ?

monstr76
Дата: 11.06.2009 12:50:08
Есть страничка html, на ней есть табличка, как мне
вытащить со страницы эту таблицу и отображать только ее?
defecator
Дата: 11.06.2009 13:18:11
Парсить, парсить и парсить.
АдНаЗнАчНа.


Linux - must die
Долгих лет тебе, Билли !
LordMAD
Дата: 11.06.2009 13:18:49
monstr76
Есть страничка html, на ней есть табличка, как мне вытащить со страницы эту таблицу и отображать только ее?
Выцепив нужное с помощью регулярного выражения.
monstr76
Дата: 11.06.2009 13:29:38
как с webbrowser перетянуть все в memo?
Zmiy
Дата: 11.06.2009 13:56:13
Вытянуть сам хтмл можно так:
Subject := GetBrowserHtml(webBrowser);
а дальше в мемо через Memo.Lines.Add
monstr76
Дата: 11.06.2009 14:17:55
Zmiy,
ругается на getbrowser
monstr76
Дата: 11.06.2009 14:42:32
сделал так

var i: Integer;
    subject:string;
begin
Memo1.clear;
Subject := WebBrowser1.OleObject.Document.documentElement.innerHTML;
Memo1.Lines.Add(subject);
Zmiy
Дата: 11.06.2009 17:14:32
Извиняюсь, это самописаня функция была.
Вот код:
function TLoginForm.GetBrowserHtml(const webBrowser: TWebBrowser): String;
var
  strStream: TStringStream;
  adapter: IStream;
  browserStream: IPersistStreamInit;
begin
  strStream := TStringStream.Create('');
  try
    browserStream := webBrowser.Document as IPersistStreamInit;
    adapter := TStreamAdapter.Create(strStream,soReference);
    if browserStream <> nil then begin
      browserStream.Save(adapter,true);
      result := strStream.DataString;
    end else begin
      result := 'Cannot find server';
    end;
    if result = '' then begin
      result := 'Cannot find server';
    end;
  finally
  end;
  strStream.Free();
end;