Delphi| Парсинг

[Ломоносов]

Привет всем форумчане, я новичок, и я хочу узнать как спарсить html страничку с помощью delphi 7, искал в интернета но не нашел, подскажите как спарсить например эту строку " Работа с сетью в Delphi",

PHP код:

<span class="navbar">&gt; <a href="forumdisplay.php?f=3">Работа с сетью в Delphi</a></span> 


помогите новичку

[Mad_Cat]

Copy
Pos
Delete

[Serge_Bliznykov]

дополню ответ примером кода (он, конечно, далёк от оптимального, но примерно суть отражает...)

uses ..... StrUtils;

procedure TForm3.Button1Click(Sender: TObject);
const
  Pattern1  = 'href="forumdisplay.php?f=';
var
  s, sMatch : string;
  i1, i2 : integer;
begin
  s := Memo1.Text;  // в строку s помещаем исходный код...

  i1 := Pos(AnsiUpperCase('<a'), AnsiUpperCase(s));
  i2 := PosEx(AnsiUpperCase(Pattern1), AnsiUpperCase(s), i1+1);
  if (i1>0) and (i2>0) then begin
    i1 := PosEx('>', s, i2 + Length(Pattern1));
    i2 := PosEx(AnsiUpperCase('</a>'), AnsiUpperCase(s), i1);
    if (i1>0) and (i2>i1) then begin
      sMatch := Copy(s, i1+1, i2-i1-1);
      ShowMessage('Найдено: '+ sMatch);
    end
    else
      ShowMessage('#Error: Не найден завершающих тег (</a>)')
  end
  else
    ShowMessage('Требуемый шаблон (<a '+Pattern1+') не найден');
end;

[megostudent]

Вот еще тебе такой способ, с ним будешь парсить все =)
после

implementation

{$R *.dfm}

вставляешь функцию

function Pars(strB,strE,str:string):string;
var
  b,e:integer;
begin
  b:=pos(strb,str)+Length(strb);
  e:=pos(strE,str);
  if (b=Length(strb))or(e=0) then
    Result:=''
  else
    Result:=copy(str,b,e-b);
end;

далее уже пример работы

procedure TForm1.Button1Click(Sender: TObject);
var
site:string;
begin
site:=idhttp1.Get('http://programmersforum.ru/showthread.php?t=229617'); //получаем код старницы
edit1.text:=Pars('<a href="forumdisplay.php?f=3">' , '</a>', site);//выводим в эдит всю информацию что стоит между (<a href="forumdisplay.php?f=3">) и (</a>), в нашем случае получаем "Работа с сетью в Delphi"
end;

Удачи)

[ingushmen]

И так можно. Но код выше лучше.

function Pars(HTML,s1,s2:string):string;
begin
Delete(html, 1, Pos(s1, html) + Length(s1) - 1);
Result:=Copy(html, 1, Pos(s2, html) - 1);
end;

begin
showmessage(Pars(IdHTTP1.Get('http://programmersforum.ru/forumdisplay.php?f=1'),'f=3"><strong>','</strong>'));
end;

[Аватар]

Могу добавить, что парсинги с Delete в общем случае тормознее парсингов с Pos и PosEx, хотя исходник с ними скорее всего и покороче можно сделать