html parse repeat

[Mr.X]

Merhaba,

Nokta atışı işlem yapalım o halde. Sanırım istediğiniz böyle bir şey;
Konuya yorum yapmış kullanıcıların benzersiz ID bilgisini çekelim.

   

function SourceGetParse(WebLink: string; MainTag: string; FirstTag: string; LastTag: string; FromTarget: TMemo): boolean;
var
 aClient: System.Net.HttpClientComponent.TNetHTTPClient;
 LinkSource: TStringList;
 MainTagPosCount: integer;
 FirstTagPosCount: integer;
 LastTagPosCount: integer;
 FirstTagLen: integer;
 MainTagLen: integer;
 LastTagLen: integer;
 DesiredArea: string;
begin
 try
   try
     LinkSource := TStringList.Create;
     aClient := TNetHTTPClient.Create(nil);
     try

       LinkSource.Text := aClient.Get(WebLink).ContentAsString();
       MainTagLen := Length(MainTag);
       FirstTagLen := Length(FirstTag);
       LastTagLen := Length(LastTag);

       while Pos(MainTag, LinkSource.Text) > 0 do
       begin
         LinkSource.Text := Copy(LinkSource.Text, Pos(MainTag, LinkSource.Text) + MainTagLen, LinkSource.Text.Length);
         LinkSource.Text := Copy(LinkSource.Text, Pos(FirstTag, LinkSource.Text) + FirstTagLen, LinkSource.Text.Length);
         LastTagPosCount := Pos(LastTag, LinkSource.Text);
         DesiredArea := Copy(LinkSource.Text, 0, LastTagPosCount - LastTagLen);
         FromTarget.Lines.Add((DesiredArea));
       end;
     finally
       Result := true;
     end;
   except
     Result := false;
   end;
 finally
   FreeAndNil(aClient);
   FreeAndNil(LinkSource);
 end;
end;

Kullanımı :

  SourceGetParse('https://www.delphican.com/showthread.php?tid=8202&pid=57990#pid57990','post_content','class="post_body scaleimages" id="', '">', Memo1 );