Парсинг определенного текста (Delphi)

[Hoons]

Решил написать парсер определенного текста, но проблема в том что программа не парсит определенный текст из страницы. Не подскажите в чем может быть дело или если не затруднит подправьте код, но рядом обязательно прокомментируйте то что подправите - так как я новичок в этом деле....

Сам код программы:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sButton, sMemo,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, sDialogs,
  sLabel;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    sMemo2: TsMemo;
    sButton2: TsButton;
    sOpenDialog1: TsOpenDialog;
    sMemo1: TsMemo;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    procedure sButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  parsing:string;
  html:string;

implementation

{$R *.dfm}

function Pars(T_, ForS, _T:string):string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;





procedure TForm1.sButton2Click(Sender: TObject);
var
i:integer;
p:TstringList;
HTTP: TIdHTTP;
begin
HTTP:=TIdHTTP.Create(nil);
p:=TstringList.Create;
for I := 0 to sMemo1.Lines.Count -1 do
begin
p.Text:=HTTP.Get('http://news.mail.ru/inworld/moldova/economics/'+sMemo1.Lines.Strings[i]+'/?frommail=1');
parsing:=pars('<span class="c-params__date">',html,'</span>');

begin
sMemo2.Lines.Add(sMemo1.Lines.Strings[i]+' + '+parsing);
end;
end;
end;

end.

Снимок результата:

[Fahman]

Интересно, что нет других брокерских компаний которые дают котировки? и для чего вам можно узнать?

[DIONISKA]

...
uses 
 ..., strutils, idantifreeze; 
...
function Pars(T_, ForS, _T:string):string;
var
  a, b:integer;
begin
  Result := '';
  if (T_='') or (ForS='') or (_T='') then Exit;
  a:=pos(T_,ForS)+length(T_);   //находим начальную позицию
  b:=posex(_T,ForS,a);  //находим конечную позицию со сдвигом на количесто символов от начальной
  result:=copy(ForS,a,b-a);
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  HTTP: TIdHTTP;
  idantifreeze:tidantifreeze;
begin
  HTTP:=TIdHTTP.Create(self);
  idantifreeze:=tidantifreeze.Create(self);  //дабы предотвратить зависание приложения
  idantifreeze.Active:=true;
  for I := 0 to form1.Memo1.Lines.Count -1 do
    begin
    try
      html:=HTTP.Get('http://news.mail.ru/inworld/moldova/economics/'+Memo1.Lines.Strings[i]+'/?frommail=1');
    except
     on e:Exception do                                               // ошибки можно и не ловить
       application.MessageBox(pchar(e.Message),pchar(e.ClassName),0) // но их нужно обрабатывать
                                                                     // вместо этого можно просто оставить except end;
                                                                     // тогда ошибки будут просто игнорирооваться
    end;
      parsing:=pars('<span class="c-params__date">',html,'</span>');
      Memo2.Lines.Add(Memo1.Lines.Strings[i]+' + '+parsing);
    end;
    http.Free;      // созданные объекты нужно
    idantifreeze;   // освобождать
    {либо так:
    FreeAndNil(http);    
    FreeAndNil(idantifreeze);    
                 }
end;

Наверно лучше так. Кстати переменной html у тебя нигде не присваивалось значение и ты создавал экземпляры idhttp, но не уничтожал их.

[Stilet]

Что-т я не понял что парсить нужно...

[Fahman]

Сообщение от Stilet

Что-т я не понял что парсить нужно...

Во во) я тоже спросил но пока нет ответа)))

[Pearl777]

p.Text:=HTTP.Get('http://news.mail.ru/inworld/moldova/economics/'+sMemo1.Lines.Strings[i]+'/?frommail=1');
parsing:=pars('<span class="c-params__date">',html,'</span>');

Ты же загружаешь исходный код в p, а спарсить пытаешься из html.

parsing:=pars('<span class="c-params__date">',p.text,'</span>');