[Kaf_Dağı]

Delphi Html table parse

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

Html olarak geri dönen tablolardaki verileri çekmek için;
( aDaLı_eFe)'ye teşekkürler.
 
Function stringAL(nerden, birinci ,ikinci : String; kacinci : Integer): String;
Var
i : Integer;
sonuc : String;
Begin
sonuc := '';
i := 0;
While i <= kacinci Do
Begin
sonuc := Copy(nerden, 1, Pos(ikinci, nerden) - 1);
Delete(nerden, 1, Pos(birinci, nerden));
Inc(i);
End;
Result := sonuc;
End;
 
 
--------------------
 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
gelen:string;
begin
        for i:=0 to Memo1.Lines.Count-1 do
        begin
        gelen:=stringAL(memo1.Lines.Strings[i],'>','<',1);//1 ile  ikinci karakterin toleransini belirleyebilirsin.
        if gelen<>'' then
         memo2.Lines.Add(gelen);
         end;
end;