Sitenin Kaynak Kodlarından Bilgi Çekmek !

[spectermun]

Arkadaşlar bir internet sitesinin kaynak kodlarından idhttp ile almak istediğim yazıları nasıl memoya aktarabilirim örneğin kaynak kodların arasında <b>25696</b> diye numaralar var ben bu numaraları almak istiyorum nasıl kaynak kodlardan bu <b> içindeki numaraları alabilirim ?

[mrmarman]

HTML Parse olarak aratırsanız çok konuşuldu.

[spectermun]

mrmarman arkadaşım araştırıp birşeyler yaptım

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
lst : TStringList;
i: integer;

begin

lst := TStringList.Create;
GetInnersByClass(WebBrowser1.Document,'saat',lst);

 for i:=1 to stringgrid1.rowcount-1 do
 stringgrid1.Cells[1,i]:=lst.text;

end;

bu kod ile bilgileri çekiyorum ve class="saat" tagını çağrıyorum bunun hepsi <td class="saat"> şeklinde ben her string kolona birini yazdırmasını istiyorum ama bütün hepsini string colom 1 de gösteriyor

yani ben

12:40
12:50
13:00

gibi isterken o 12:4012:5013:00

şeklinde gözüküyor ufak biryerd ebişi atlıyorum yardımcı olabilirmisin ?

[mrmarman]

Aşağıdaki şekilde yaparsan olacaktır.

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  lst : TStringList;
  i   : integer;
begin
  lst := TStringList.Create;
  GetInnersByClass(WebBrowser1.Document, 'saat', lst);

  if StringGrid1.RowCount < lst.Count + 1
    then StringGrid1.RowCount   := lst.Count + 1;

  for i:=0 to lst.Count-1
    do stringgrid1.Cells[1,i+1] := lst[i];

  lst.free;
end;

[spectermun]

Süpersin arkadaşım allah razı olsun senden

[mrmarman]

Rica ederim, soru soranda emek varsa yardımcı olmayı severiz.
Başarılar.