memodaki texti parçalamak

[d4erth]

merhaba arkadaşlar benim sorunum bir internet sitesinin kaynağını alıyorum fakat içinde örneğin;



<h2 class="title">Asus A52 laptop tamiri</h2>

<div id="stats" class="clearfloat"></div>

<div class="entry clearfloat">

Asus A52 <strong>laptop tamiri</strong> konusunda uzman personelimiz ile hizmet vermekteyiz. Deneyimli kadromuz ile birlikte problemlerinize en kısa sürede çözüm buluyoruz. Anlaşmalı olduğumuz kargo firması ile notebookunuzu evinizden alıyor ve tamirini gerçekleştirip evinize gönderiyoruz. Kargo...


</div>


</div>

<p align="center">




yani (<div class="entry clearfloat">) ile (</div>) arasını ayrı memoya atmaya çalışıyorum arama yaptım fakat olmadı bi türlü tşk ederim yardımlarınız için iyi çalışmalar...

[orhancc]

tbrowser kullanıp getelementby id veya classa göre ayıklamaya yapabilirsin.

[mrmarman]

HTML parse olayıno çokça konuştuk. Düşünce mantığınız şöyle olsun.

satırlar ve kelimeler olsa da, gelen veriyi soldan sağa doğru bir ipe dizilmiş boncuklar gibi düşünün. Sonra da istediğiniz boncuk dizisinin başına gelene kadar olan kısmı atarak/silerek doğru noktaya konumlanmayı hedefleyin. Sonra da almak istediğiniz kadarını alın.

İstediğiniz yere kadar aynı arama kriterine uyan birden çok nokta olabilir. Aynı silme işlemini ardışık olarak yaparsanız adım adım tüm bu noktaları silmiş ve hedefe bir adım daha yaklaşmış olursunuz.

Örnek :

Kod: Tümünü seç

Var
  TumKelimeler, Ara, Sonuc : String;
begin
  TumKelimeler := WebBrowser1.OleObject.Document.Body.InnerHTML;
  Ara := '<div class="entry clearfloat">';
  System.Delete( TumKelimeler, 1, Pos(Ara, TumKelimeler) + Length(Ara)-1 );
  // şimdi başlangçtan buraya kadar olan bocukları sildik ve istediğimiz yere geldik.
  Ara := '</div>';
  Sonuc := Copy( TumKelimeler, 1, Pos(Ara, TumKelimeler) -1 );
  // artık Sonuc içinde istediğiniz kısım var.
end;

[d4erth]

çok tşk ederm işin mantığı anladım.fakat sonuc değerini atadığımda boş çıkıyor efendim.

[d4erth]

özür dilerim POS fonksiyonun büyük küçük duyarlı oldğnu unuttum tekrar teşkkür ederim efendim çok sağolun.