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,'>','<',1);//1 ile ikinci karakterin toleransini belirleyebilirsin.
if gelen<>'' then
memo2.Lines.Add(gelen);
end;
end;
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,'>','<',1);//1 ile ikinci karakterin toleransini belirleyebilirsin.
if gelen<>'' then
memo2.Lines.Add(gelen);
end;
end;