Sayfada Arama

[Okan]

Adresini verdiğim bir sayfanın içinde nasıl arama yapabilirim.Eger o yazi varsa baska sey yoksa baska sey yaptırcam nasıl olacak??

[mussimsek]

Merhaba,

bu sayfa ne sayfası??

Pos fonksiyonu belki işinizi görebilir. Satır satır taratıp, aradığınız kelimenin var olup olmadığını Pos ile kontrol edebilirsiniz.

Kolay gelsin.

[hardndark]

merhaba,

duzenli ifadeler konusunu bi incele istersen...



soyle bi kutuphane isini gorur sanirim... ornekler de mevcut.. :

http://www.latiumsoftware.com/en/articles/00009.php


kolay gelsin..

[Okan]

Bu sayfa web sayfası webbrowser bileşeni kullanıyorum bir sayfaya navigate ettikten sonra o sayfanın icinde mesela 'Okan' sözcüğünü arıyacağım eğer sözcük sayfada varsa atıyorum formun captionu Okan olcak yoksa yok olcak..Mümkün mü??

[mussimsek]

Merhaba,

dediğim gibi Pos fonksiyonu ile yapabilirsin. Sayfayı satır satır tara ve Pos fonksiyonu ile o ifadenin geçip geçmediğini kontrol edebilirsin. Bu fonksiyon eğer aradığın ifade bir stringin içinde geçiyors pozisyonunu döndürür. Kullanımı şu şekilde :

if Pos('Okan', 'asdfdf Okan sdfasd') > 0 then
ShowMessage('Okan var');

Kolay gelsin.

[Okan]

Ok güzel de sayfanın kaynak kodunu bir memo ya veya richtextbox a nasıl alabilirim..

[mussimsek]

istediğiniz text'i bulup aydınlatır :

Kod: Tümünü seç

{....} 

  private 
    procedure SearchAndHighlightText(aText: string); 
     
{....} 

procedure TForm1.SearchAndHighlightText(aText: string); 
var 
  i: Integer; 
begin 
  for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do 
  begin 
    if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then 
    begin 
      WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00'; 
      WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True); 
    end; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SearchAndHighlightText('Okan'); 
end; 

Kolay gelsin.

[must68]

WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00';
WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True);

satırlarıyla ilgili bir kaynak gösterebilirmisiniz. bu konudaki alternatif komutlar nedir bilmek istiyorum.

Yani "WebBrowser1.OleObject.Document.All.Item(i)." sonra neler kullanılabiliyor?