Döngü sorunu [Çözüldü]

[barutali]

Kod: Tümünü seç

</script><form method="get" action="http://zeytech.net/Anahtar-Kelime-Yogunlugu-01bb.aspx" onsubmit="return validate(this);"><table align="center" width="610px" border="0"><tr><td align="center" height="40"><input type="text" id="url" name="url" value="www.mynet.com" class="searcha" /></td></tr><tr><td align="right" height="40"><input type="submit" value="Sorgula" class="submit"/><input type="reset" value="Reset" class="reset" /></td></tr></table></form><div class="azbosluk"></div><div class="bosluk"></div><div class="yarimbosluk"></div><table cellpadding="5" cellspacing="1" border="0" class="genel tableborder" width="728px"><tr class="ust"><td align="center" width="40px">#</td><td align="center" width="334px">Kelime</td><td align="center" width="334px">Sayı - Oran (%)</td></tr><tr class="alt" onmouseover="this.className='glowb'" onmouseout="this.className='alt'"><td align="center" width="20px">1</td>
<td align="center" width="334px">mynet</td><td align="center" width="334px">12 - 1.57%
</td></tr>
<tr class="alt" onmouseover="this.className='glowb'" onmouseout="this.className='alt'"><td align="center" width="20px">2</td>
<td align="center" width="334px">ve</td><td align="center" width="334px">11 - 1.44%
</td></tr>
<tr class="alt" onmouseover="this.className='glowb'" onmouseout="this.className='alt'"><td align="center" width="20px">3</td>
<td align="center" width="334px">hava</td><td align="center" width="334px">11 - 1.44%

</td></tr>
<tr class="alt" onmouseover="this.className='glowb'" onmouseout="this.className='alt'"><td align="center" width="20px">4</td>
<td align="center" width="334px">mobil</td><td align="center" width="334px">10 - 1.31%
</td></tr>
<tr class="alt" onmouseover="this.className='glowb'" onmouseout="this.className='alt'"><td align="center" width="20px">5</td>
<td align="center" width="334px">width</td><td align="center" width="334px">9 - 1.17%
</td></tr>
<tr class="alt" onmouseover="this.className='glowb'" onmouseout="this.className='alt'"><td align="center" width="20px">6</td>
<td align="center" width="334px">durumu</td><td align="center" width="334px">9 - 1.17%
</td></tr>
<tr class="alt" onmouseover="this.className='glowb'" onmouseout="this.className='alt'"><td align="center" width="20px">7</td>

<td align="center" width="334px">gelsin</td><td align="center" width="334px">8 - 1.04%


</td></tr>

arkadaşlar yukarıdaki gibi html kodları var.

mynet - ve - hava - mobil - width - durumu - gelsin şeklinde kelimeler var
siteye göre değişiyor yani minimum 10.000 kelime kadar.

memo ya kaynak kodları çekip parselerken bi sorun yok ama
listbox a bunları aktarırken sorun yaşıyorum..
sürekli ilk olanı atıyor.. 2. ye geçmiyor. nerde hata yapıyorum acaba :S

Kod: Tümünü seç

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

Kod: Tümünü seç

procedure TForm1.Timer3Timer(Sender: TObject);
var
s,son,met :string;
begin
met :=Memo2.Lines.Text;
s :='<td align="center" width="334px">';
Son := AradanSec(met, s, '</td>');
met := StringReplace(met,s,'',[rfReplaceAll, rfIgnoreCase]);

............Bu kısma döngü gelcek ama onu beceremedim............

end;

[ikutluay]

merhaba

dos tarzı sistemlerde satır sonu karakter13+10 dur. Unix te ise tek karakterdir. Html editorleri sayfa kısa yer kaplasın diye bazen (değil genellikle) sayfayı uniz düzeninde kaydederler. editorlerin nerdeyse hepsi bu her iki sistemlede çalışabilir. onlar için farketmez ama windows altında sonuçta ortada fiziksel bir satır yoktur. öyle oluncada sen bunu alamazsın tabii.

ikinci ihitmal ise string 255 karakter max tır. satırlar daha uzun olabilirmi. widestring denermisin

[Nick_]

Şiddetle FastString bileşenini kullanmanı tavsiye ederim..Sitede vardı sanırım..Kolay gelsin..

Bu konunun Unix le ne alakası var anlamadım

[ikutluay]

Bu konunun Unix le ne alakası var anlamadım

Polemiğe girmek istemiyorum ama mesaj yeterince açık. 2 ihtimalli bir sorun var ve değiniyoruz.