Percorrer HTML em busca de uma TAG - WebBrowser Delphi

Delphi

28/08/2015

Eu tenho um Codigo fonte de um HTML capturado em um campo memo.

o Código HTML mais ou menos este:

<td align="center"> 
    <input id="CallBtn" type="button" class="button"
        onclick="confirmaChamada(this,'22179192')"
        value="Confirmar Chamada />
</td>
  
<td align="center"> 
    <input id="CallBtn" type="button" class="button"
        onclick="confirmaChamada(this,'22463368')"
        value="Confirmar Chamada />
</td>


Porém preciso "percorrer" linha por linha deste codigo, para localizar o seguinte trecho: "onclick="confirmaChamada(this,'22179192')"

Na Verdade o que eu preciso mesmo é pegar o valor deste parametro "onclick", e jogar isto em um outro campo memo, ou até um GRID qualquer.

No Exemplo acima, eu teria uma lista assim:

confirmaChamada(this,'22179192')
confirmaChamada(this,'22463368')

Eu tentei isso aqui, mas não resolveu:

documentoAtivo := WebBrowser1.Document;
Memo1.text := documentoAtivo.Body.OuterHTML;
memo2.lines.Clear;
for i := 0 to Memo1.Lines.Count - 1 do
begin
  if pos('confirmaChamada(this,',Memo1.Lines.Strings[i]) > 0 then
    begin
       ShowMessage(Memo1.Lines.Strings[i]);
       pIni  := pos('this,',Memo1.Lines.Strings[i])+6;
       pFim  := pos(#39+')',Memo1.Lines.Strings[i]);
       memo2.Lines.Add(Copy(Memo1.Lines.Strings[i], pIni , pFim-pIni));  // -> TENTEI ESTE PARA ADICIONAR SOMENTE O TRECHO
       memo2.Lines.Add(Memo1.Lines.Strings[i]);  //-> TENTEI ESTE PARA "TENTAR" ADICIONAR A LINHA INTEIRA
     end;
     ShowMessage('NAO PASSOU');  // MAS EM TODAS AS TENTATIVAS... ENTRAVA AQUI.
  
end;


Parece que o problema tem a ver com o "ENTER" ( #13 + #10 ) no final de cada linha, pois parece que o HTML que está dentro do campo MEMO1, não está com este caracter, e as linhas ficam todas "bagunçadas"

Algém pode me ajudar, por favor.
Andre Marsola

Andre Marsola

Curtidas 0
POSTAR