Gönderen Konu: Html Parse Hakkında. (Okunma sayısı 473 defa)

Ayazoglu · « : 02 Şubat 2012 02:23:09 »

WebBrowser dan aldığım bir kaynakta ki sayısı değişen veriyi almaya çalışıyorum

Örneğin.

<td width="181"> 7067609</td>
<td width="181"> 5325708</td>
<td width="181"> 7005782</td>

Html kod aralığında adedi sürekli değişebilen aradaki sayıyı almaya çalışıyorum. Araştırmalarımda kaynağı memo ya aktararak istemediğim kodları temizleyip istediğim veriye ulaşma yolu anlatılmış. Ancak kaynağı temizlemek yerine ben sadece istediğim verileri

bir döngü içersinde değişken olarak kullanmka istiyorum bu konuda iyi bir döküman bulamadım.

Mesela Php de preg_match_all fonksiyonu ile hepsini alıp $degisken[$i] şeklinde kullanılabiliyor.
Acaba delphide bunu nasıl bir döngü halinde yapmalıyım

kullandığım fonksiyon

Kod: (Unknown Language)

Function aradansec(text, ilk, son:String ): WideString;
begin
 Delete(Text, 2, pos(ilk, Text) + Length(ilk)-1);
 Result := Copy(Text, 2, Pos(Son, Text)-1);
end;

Bu işlemi nasıl döngü ye sokabilirim yardımlarınız için teşekkürler.

sheshman · « **Yanıtla #1 :** 02 Şubat 2012 09:16:35 »

sana bir örnek vermiştim diye hatırlıyorum ben ama olmadı mı onunla ?

sheshman · « **Yanıtla #2 :** 02 Şubat 2012 09:32:48 »

aşağıdaki 3 fonksiyonu

Kod: (Unknown Language)

function BetweenDelete(text, first, last : string) : string;
var
  i:integer;
begin
  i := pos(first, Text);
  Delete(Text, i , Pos(last, Copy(text,i,Length(Text)-i)) + Length(last) -1 );
  Result := text;
end;
 
 
function BetweenSelect(text, first, last : string) : string;
begin
   Delete(Text, 1, pos(first, Text) + Length(first) - 1);
   Result := Copy(Text, 1, Pos(last, Text) - 1);
end;
 
function VeriOku(s,a:String):String;
begin
  result:= BetweenSelect(a,'<td align="left" valign="top" ' +
    'class='''+s+''' >','</td>');
end;
 

formuna ekle,daha sonra aşağıdaki kodu kendine göre düzenle ve işlet

Kod: (Unknown Language)

procedure TForm1.cxButton1Click(Sender: TObject);
var
  http:TIdHTTP;
  sl,sl0:TStringList;
  i:integer;
  buldumki:boolean;
  lc,lp,dc,dp:string;
begin
if (trim(cxcombobox2.Text)=trim(cxcombobox4.Text)) then
begin
if (trim(dxstatusbar1.Panels[0].text)='TR') then
begin
Application.MessageBox('Çıkış ve Varış limanları aynı olamaz',
                            'Arama',
                            MB_OK+
                            MB_ICONEXCLAMATION+
                            MB_DEFBUTTON1+
                            MB_SYSTEMMODAL);
                            cxcombobox1.SetFocus;
end//türkçe hata ver
else
begin
Application.MessageBox('POL and POD can not be the same',
                            'Search',
                            MB_OK+
                            MB_ICONEXCLAMATION+
                            MB_DEFBUTTON1+
                            MB_SYSTEMMODAL);
                            cxcombobox1.SetFocus;
end;//ingilizce hata ver
end//limanlar eşit hata ver
else
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('delete from gecici');
adoquery3.ExecSQL;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from gecici');
adoquery3.Open;
 
http:=TIdHTTP.Create(Self);
sl:=TStringList.Create;
sl0:=TStringList.Create;    //adres aşağıya :)
lc:=StringReplace(trim(cxcombobox1.Text), ' ', '+', [rfReplaceAll]);
lp:=StringReplace(trim(cxcombobox2.Text), ' ', '+', [rfReplaceAll]);
dc:=StringReplace(trim(cxcombobox3.Text), ' ', '+', [rfReplaceAll]);
dp:=StringReplace(trim(cxcombobox4.Text), ' ', '+', [rfReplaceAll]);
sl.Text:=http.Get('http://moggom.com/?loadCountry='+lc+'&loadPort='+lp+'&disCountry='+dc+'&disPort='+dp+'&ask=search');
i:=1;
 
while Pos('<tr class=''sonucSatiri''>',sl.Text)>0 do
  begin
    sl0.Text:=BetweenSelect(sl.Text,'<tr class=''sonucSatiri''>','</tr>');
    sl.Text:=BetweenDelete(sl.Text,'<tr class=''sonucSatiri''>','</tr>');
with adoquery3 do
begin
  Insert;
  FieldByName('pol').AsString:=VeriOku('loadPort',sl0.Text);
  FieldByName('ocuntry').AsString:=VeriOku('loadCountry',sl0.Text);
  FieldByName('pod').AsString:=VeriOku('disPort',sl0.Text);
  FieldByName('dcountry').AsString:=VeriOku('disCountry',sl0.Text);
  FieldByName('line').AsString:=VeriOku('line',sl0.Text);
  FieldByName('service').AsString:=VeriOku('service',sl0.Text);
  FieldByName('tt').AsString:=VeriOku('tnt',sl0.Text);
  FieldByName('agency').AsString:=VeriOku('agency',sl0.Text);
  FieldByName('email').AsString:=VeriOku('email',sl0.Text);
  FieldByName('phone').AsString:=VeriOku('phone',sl0.Text);
  Post;
end;//with sonu
    i:=i+1;
    buldumki:=True;
  end;//while sonu
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from gecici');
adoquery3.Open;
 

fonksiyonlar çakır'ın yazdığı fonksiyonlar,sağolsun dün kendi projem için yardımda bulundu,yeniden teşekkürler.

Bende PHP'ciyim herşeyden önce Delphi ve PHP çok farklı şeyler bunları kıyaslama

PHP de aslında delphideki mantık gibi işliyor kodları ama php.exe tarafından bir çok şey otomatik olarak hallediliyor.

cakirr42 · « **Yanıtla #3 :** 02 Şubat 2012 10:12:26 »

Alıntı yapılan: sheshman - 02 Şubat 2012 09:32:48

aşağıdaki 3 fonksiyonu

Kod: (Unknown Language)
function BetweenDelete(text, first, last : string) : string;
var
i:integer;
begin
i := pos(first, Text);
Delete(Text, i , Pos(last, Copy(text,i,Length(Text)-i)) + Length(last) -1 );
Result := text;
end;

function BetweenSelect(text, first, last : string) : string;
begin
Delete(Text, 1, pos(first, Text) + Length(first) - 1);
Result := Copy(Text, 1, Pos(last, Text) - 1);
end;

function VeriOku(s,a:String):String;
begin
result:= BetweenSelect(a,'<td align="left" valign="top" ' +
'class='''+s+''' >','</td>');
end;

formuna ekle,daha sonra aşağıdaki kodu kendine göre düzenle ve işlet
Kod: (Unknown Language)
procedure TForm1.cxButton1Click(Sender: TObject);
var
http:TIdHTTP;
sl,sl0:TStringList;
i:integer;
buldumki:boolean;
lc,lp,dc,dp:string;
begin
if (trim(cxcombobox2.Text)=trim(cxcombobox4.Text)) then
begin
if (trim(dxstatusbar1.Panels[0].text)='TR') then
begin
Application.MessageBox('Çıkış ve Varış limanları aynı olamaz',
'Arama',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox1.SetFocus;
end//türkçe hata ver
else
begin
Application.MessageBox('POL and POD can not be the same',
'Search',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox1.SetFocus;
end;//ingilizce hata ver
end//limanlar eşit hata ver
else
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('delete from gecici');
adoquery3.ExecSQL;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from gecici');
adoquery3.Open;

http:=TIdHTTP.Create(Self);
sl:=TStringList.Create;
sl0:=TStringList.Create; //adres aşağıya :)
lc:=StringReplace(trim(cxcombobox1.Text), ' ', '+', [rfReplaceAll]);
lp:=StringReplace(trim(cxcombobox2.Text), ' ', '+', [rfReplaceAll]);
dc:=StringReplace(trim(cxcombobox3.Text), ' ', '+', [rfReplaceAll]);
dp:=StringReplace(trim(cxcombobox4.Text), ' ', '+', [rfReplaceAll]);
sl.Text:=http.Get('http://moggom.com/?loadCountry='+lc+'&loadPort='+lp+'&disCountry='+dc+'&disPort='+dp+'&ask=search');
i:=1;

while Pos('<tr class=''sonucSatiri''>',sl.Text)>0 do
begin
sl0.Text:=BetweenSelect(sl.Text,'<tr class=''sonucSatiri''>','</tr>');
sl.Text:=BetweenDelete(sl.Text,'<tr class=''sonucSatiri''>','</tr>');
with adoquery3 do
begin
Insert;
FieldByName('pol').AsString:=VeriOku('loadPort',sl0.Text);
FieldByName('ocuntry').AsString:=VeriOku('loadCountry',sl0.Text);
FieldByName('pod').AsString:=VeriOku('disPort',sl0.Text);
FieldByName('dcountry').AsString:=VeriOku('disCountry',sl0.Text);
FieldByName('line').AsString:=VeriOku('line',sl0.Text);
FieldByName('service').AsString:=VeriOku('service',sl0.Text);
FieldByName('tt').AsString:=VeriOku('tnt',sl0.Text);
FieldByName('agency').AsString:=VeriOku('agency',sl0.Text);
FieldByName('email').AsString:=VeriOku('email',sl0.Text);
FieldByName('phone').AsString:=VeriOku('phone',sl0.Text);
Post;
end;//with sonu
i:=i+1;
buldumki:=True;
end;//while sonu
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from gecici');
adoquery3.Open;

fonksiyonlar çakır'ın yazdığı fonksiyonlar,sağolsun dün kendi projem için yardımda bulundu,yeniden teşekkürler.

Bende PHP'ciyim herşeyden önce Delphi ve PHP çok farklı şeyler bunları kıyaslama PHP de aslında delphideki mantık gibi işliyor kodları ama php.exe tarafından bir çok şey otomatik olarak hallediliyor.

sanki bana bir yerden tanıdık geldi ama bu kodlar

sheshman · « **Yanıtla #4 :** 02 Şubat 2012 10:39:40 »

"fonksiyonlar çakır'ın yazdığı fonksiyonlar,sağolsun dün kendi projem için yardımda bulundu,yeniden teşekkürler." yazdım zaten teşekkür bilem ettim,meğersem bu kodlar senin kodlarınmış

cakirr42 · « **Yanıtla #5 :** 02 Şubat 2012 10:46:32 »

Alıntı yapılan: sheshman - 02 Şubat 2012 10:39:40

"fonksiyonlar çakır'ın yazdığı fonksiyonlar,sağolsun dün kendi projem için yardımda bulundu,yeniden teşekkürler." yazdım zaten teşekkür bilem ettim,meğersem bu kodlar senin kodlarınmış

meğersem burası almanyaymış :

barutali · « **Yanıtla #6 :** 02 Şubat 2012 16:23:51 »

Alıntı yapılan: sheshman - 02 Şubat 2012 09:32:48

aşağıdaki 3 fonksiyonu

Kod: (Unknown Language)
function BetweenDelete(text, first, last : string) : string;
var
i:integer;
begin
i := pos(first, Text);
Delete(Text, i , Pos(last, Copy(text,i,Length(Text)-i)) + Length(last) -1 );
Result := text;
end;

function BetweenSelect(text, first, last : string) : string;
begin
Delete(Text, 1, pos(first, Text) + Length(first) - 1);
Result := Copy(Text, 1, Pos(last, Text) - 1);
end;

function VeriOku(s,a:String):String;
begin
result:= BetweenSelect(a,'<td align="left" valign="top" ' +
'class='''+s+''' >','</td>');
end;

formuna ekle,daha sonra aşağıdaki kodu kendine göre düzenle ve işlet
Kod: (Unknown Language)
procedure TForm1.cxButton1Click(Sender: TObject);
var
http:TIdHTTP;
sl,sl0:TStringList;
i:integer;
buldumki:boolean;
lc,lp,dc,dp:string;
begin
if (trim(cxcombobox2.Text)=trim(cxcombobox4.Text)) then
begin
if (trim(dxstatusbar1.Panels[0].text)='TR') then
begin
Application.MessageBox('Çıkış ve Varış limanları aynı olamaz',
'Arama',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox1.SetFocus;
end//türkçe hata ver
else
begin
Application.MessageBox('POL and POD can not be the same',
'Search',
MB_OK+
MB_ICONEXCLAMATION+
MB_DEFBUTTON1+
MB_SYSTEMMODAL);
cxcombobox1.SetFocus;
end;//ingilizce hata ver
end//limanlar eşit hata ver
else
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('delete from gecici');
adoquery3.ExecSQL;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from gecici');
adoquery3.Open;

http:=TIdHTTP.Create(Self);
sl:=TStringList.Create;
sl0:=TStringList.Create; //adres aşağıya :)
lc:=StringReplace(trim(cxcombobox1.Text), ' ', '+', [rfReplaceAll]);
lp:=StringReplace(trim(cxcombobox2.Text), ' ', '+', [rfReplaceAll]);
dc:=StringReplace(trim(cxcombobox3.Text), ' ', '+', [rfReplaceAll]);
dp:=StringReplace(trim(cxcombobox4.Text), ' ', '+', [rfReplaceAll]);
sl.Text:=http.Get('http://moggom.com/?loadCountry='+lc+'&loadPort='+lp+'&disCountry='+dc+'&disPort='+dp+'&ask=search');
i:=1;

while Pos('<tr class=''sonucSatiri''>',sl.Text)>0 do
begin
sl0.Text:=BetweenSelect(sl.Text,'<tr class=''sonucSatiri''>','</tr>');
sl.Text:=BetweenDelete(sl.Text,'<tr class=''sonucSatiri''>','</tr>');
with adoquery3 do
begin
Insert;
FieldByName('pol').AsString:=VeriOku('loadPort',sl0.Text);
FieldByName('ocuntry').AsString:=VeriOku('loadCountry',sl0.Text);
FieldByName('pod').AsString:=VeriOku('disPort',sl0.Text);
FieldByName('dcountry').AsString:=VeriOku('disCountry',sl0.Text);
FieldByName('line').AsString:=VeriOku('line',sl0.Text);
FieldByName('service').AsString:=VeriOku('service',sl0.Text);
FieldByName('tt').AsString:=VeriOku('tnt',sl0.Text);
FieldByName('agency').AsString:=VeriOku('agency',sl0.Text);
FieldByName('email').AsString:=VeriOku('email',sl0.Text);
FieldByName('phone').AsString:=VeriOku('phone',sl0.Text);
Post;
end;//with sonu
i:=i+1;
buldumki:=True;
end;//while sonu
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from gecici');
adoquery3.Open;

fonksiyonlar çakır'ın yazdığı fonksiyonlar,sağolsun dün kendi projem için yardımda bulundu,yeniden teşekkürler.

Bende PHP'ciyim herşeyden önce Delphi ve PHP çok farklı şeyler bunları kıyaslama PHP de aslında delphideki mantık gibi işliyor kodları ama php.exe tarafından bir çok şey otomatik olarak hallediliyor.

dil olayını Format() kullanarak yapsaymışsın daha iyi olurmuş

sheshman · « **Yanıtla #7 :** 02 Şubat 2012 16:26:01 »

@barutali bir sorsana o ne biliyomusun

şaka bir yana da o ingilizce olayı zaten gereksizdi sildim gitti,firmada kullanacağımız birşeye neden ingilizce koyduysam onuda anlamadım zaten

cakirr42 · « **Yanıtla #8 :** 02 Şubat 2012 16:27:27 »

abi o bu değil her geçen gün benim kütüphaneden bi fonksiyonu dışarıda görüyorum yakında tek parça halinde de görebilirim gibime geldi

sheshman · « **Yanıtla #9 :** 02 Şubat 2012 17:05:30 »

nihohahahahahah

Ayazoglu · « **Yanıtla #10 :** 02 Şubat 2012 22:44:57 »

hocam şu şekilde kullandım ama bi sonuç alamadım.

Kod: (Unknown Language)

WM := WebBrowser1.OleObject.document.body.innerHTML;
form2.Memo1.Lines.Add(WM);
i:=1;
while Pos('<tr class=''sonucSatiri''>',WM)>0 do
begin
form2.Memo2.Lines.Add(VeriOku('loadPort',WM));
end;
form2.show;
end;

cakirr42 · « **Yanıtla #11 :** 02 Şubat 2012 22:52:42 »

alamaman gayet normal. çünkü orda sheshman kardeşimin kendi parse edeceği yapıya göre ayarlandı bu fonksiyon.
yukardaki yapıya göre baktığımızda sanırım yapman gereken;

Kod: (Unknown Language)

////
//<td width="181"><font size="1px">&nbsp;7067609</font></td>
//<td width="181"><font size="1px">&nbsp;5325708</font></td>
//<td width="181"><font size="1px">&nbsp;7005782</font></td>
////
while (Pos('<td width="181"><font size="1px">',WM)>0) do
  begin
    form2.Memo2.Lines.Add(BetweenSelect(WM,'<td width="181"><font size="1px">','</font></td>'));
    WM := BetweenDelete(WM,'<td width="181"><font size="1px">','</font></td>');
  end;

Ayazoglu · « **Yanıtla #12 :** 03 Şubat 2012 00:01:04 »

Klavyenize sağlık

kodu yapıştırmam la çalışması bir oldu

Sorun çözülmüştür. Özellikle Msn üzerinden üşenmeden yardımcı olan sheshman kardeşime teşekkürler.

sheshman · « **Yanıtla #13 :** 03 Şubat 2012 07:28:03 »

bana değil çakır'a teşekkür et bence, onun yardımı olmasaydı muhtemelen kendi projemi de çok uzun yollardan halledecektim

cakirr42 · « **Yanıtla #14 :** 03 Şubat 2012 11:23:20 »

tamam tamam şımartmayın beni

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Html Parse Hakkında. (Okunma sayısı 473 defa)

Ayazoglu

Html Parse Hakkında.

sheshman

Ynt: Html Parse Hakkında.

sheshman

Ynt: Html Parse Hakkında.

cakirr42

Ynt: Html Parse Hakkında.

sheshman

Ynt: Html Parse Hakkında.

cakirr42

Ynt: Html Parse Hakkında.

barutali

Ynt: Html Parse Hakkında.

sheshman

Ynt: Html Parse Hakkında.

cakirr42

Ynt: Html Parse Hakkında.

sheshman

Ynt: Html Parse Hakkında.

Ayazoglu

Ynt: Html Parse Hakkında.

cakirr42

Ynt: Html Parse Hakkında.

Ayazoglu

Ynt: Html Parse Hakkında.

sheshman

Ynt: Html Parse Hakkında.

cakirr42

Ynt: Html Parse Hakkında.