IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Delphi Html table parse

Kod:

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;