html parse repeat

[mrmarman]

Kendi fonksiyonunu revize etmek istersen aşağıdaki şekilde denemek isteyebilirsin.

tumu isimli parametreyi girmezsen senin eski fonksiyon gibi olur, TRUE girersen repeat döngüsü aranan "ilk" parametresi bitene kadar çalışır.

Function aradansec( text, ilk, son:String; tumu:boolean = false ): String;
begin
  result := '';
  repeat
    if pos(ilk, Text) > 0 then
    begin
      System.Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
      Result := Result + Copy(Text, 1, Pos(Son, Text)-1) + sLineBreak;
    end;
  until (not tumu) or ( pos(ilk, Text) = 0 );
end;

Kullanımı :

uses
 System.Net.HttpClientComponent;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 LResponse   : string;
 LIlk, LSon  : string;
 LResult     : string;
begin
 With TNetHTTPClient.Create(nil) do
 try
   LResponse := Get( 'https://www.delphican.com/showthread.php?tid=8202' ).ContentAsString;
 finally
   free;
 end;

 // Tüm href'ler isteniyor..
 LIlk := 'href="';
 LSon := '"';

 LResult := aradansec( LResponse, LIlk, LSon, true );  // veya FALSE olursa senin eski fonksiyonun gibi olur sadece ilkini bulur.

 showmessage( LResult );

end;