нужна помощь по нужно спарсить html Delphi

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Freshs, 30 Jan 2011.

  1. Freshs

    Freshs New Member

    Joined:
    28 Jan 2011
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    как сделать чтоб можно было ввести ссылку тут
    http://www.pr-cy.ru/simulator
    а потом спарсить текст который находиться в блоке Робот видит такие заголовки (Header ответ):
    код сделал а спарсить немогу :mad:
    кто поможет с меня +
     
  2. rudi

    rudi Active Member

    Joined:
    3 Jun 2010
    Messages:
    492
    Likes Received:
    186
    Reputations:
    5
    ты получил програмно ответ от сервиса?

    Если да, то ищи метки, которые для тебя значили бы старт и финиш
    и исходя из них, парси инфу
     
  3. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    Очень топорно и на скорую руку, но работает. Использован класс TregExpr
    PHP:
    procedure TForm1.Button3Click(SenderTObject);
    var
      
    regTRegExpr;
    begin
      reg 
    := TRegExpr.Create;
      try
       
    reg.Expression := '<div class="simulator">.+?(HTTP.+?)</div>';
       if 
    reg.Exec(Memo1.Lines.Textthen
          Memo2
    .Lines.Text := ReplaceRegExpr('<.+?>'reg.Match[1], ''False);
      finally
        
    reg.Free;
      
    end;
    end;
    В Memo1.Lines.Text - исходный код страницы, можешь вместо этого подставить строку в которой хранится ответ
    Выводит в мемо2:
     
    #3 GhostOnline, 30 Jan 2011
    Last edited: 30 Jan 2011
  4. Freshs

    Freshs New Member

    Joined:
    28 Jan 2011
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    а кто сможет сделать на indu ?