HTML deki Table içiresindeki verileri Stringgride atmak?????

Delphi .net ve .net ile ilgili konuları buraya yazabilirsiniz.
Cevapla
death_claws
Üye
Mesajlar: 7
Kayıt: 25 Nis 2009 01:26

HTML deki Table içiresindeki verileri Stringgride atmak?????

Mesaj gönderen death_claws »

Herkese hayırlı akşamlar,

Bir sorum olacaktı bu ilk sorum forumda. Bir hatam olursa affola.
Şimdi bende bir tane html dosyası var sadece içirisinde basitçe bir tablo oluşturulmuş
Resim

Böyle birşey ilk satır başlık olarak alınacak sonraki satırlar isa malum, alt satırlar olarak yazacak
şimdi satır başlıklarını yazdırdım ama sütunları bu şekilde yazdırmayı bir türlü çözemedim

Kod: Tümünü seç

procedure TFrm_html_oku.Btn_dosya_bulClick(Sender: TObject);
var
yer:TextFile;
satir,yol:string;
ata:AnsiString;
leng,i,j,y,x:integer;
begin
  i:=0;
  j:=0;
  x:=0;
  y:=0;
  OpenDialog1.title:='HTML Dosyasını Aç';
  if OpenDialog1.Execute then
  begin
     yol:=OpenDialog1.FileName;
     AssignFile(yer,yol);
     reset(yer);
     while not eof(yer) do
     begin
        Readln(yer,satir);
        ata:=copy(TrimLeft(satir),1,4);
        if ata='<tr>' then
        inc(i);
        if i=1 then
        begin
          if ata='<td>' then
            begin
              inc(j);
              StringGrid1.ColCount:=j;
              leng:=length(TrimLeft(satir));
              ata:=Copy(TrimLeft(satir),5,leng-9);
              StringGrid1.Cells[j-1,0]:=ata;
           end;
        end
        else
        if ata='<td>' then
          begin
            inc(x);
            inc(y);
            StringGrid1.RowCount:=x;
            leng:=length(TrimLeft(satir));
            ata:=Copy(TrimLeft(satir),5,leng-9);
            StringGrid1.Cells[y,x]:=ata;
          end;
      end;
  end;
end;
end.


Nasıl o son kısmı düzeltirim.
Projenin çalıştığı an
Resim
orhancc
Üye
Mesajlar: 585
Kayıt: 24 Ağu 2010 02:14
Konum: İstanbul / Kadıköy
İletişim:

Re: HTML deki Table içiresindeki verileri Stringgride atmak?

Mesaj gönderen orhancc »

html kodu nasıl ?
Cevapla