Metinde Arama Yapmak !!

Celebrian · #1 24-12-2007, 12:44

Metinde Arama Yapmak !! Bir metin içinde aradığınız bir kelimeyi bulmaya ve o kelimeyi işaretlemeye yarayan örnek bir kod:

'Forma Bul adında bir buton ve Metin adında bir textbox yerleştirin

Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer

Private Sub Bul_Click()
ArananKelime = InputBox("Metin içinde aradığınız kelimeyi giriniz:", Bul, ArananKelime)
'Aranacak kelimeyi soruyoruz..
AramayaBasla = Metin.SelStart + Metin.SelLength
'Aramayı metin içersinde işaretçinin bulunduğu karakterden başlatacağız..
If AramayaBasla = 0 Or AramayaBasla = Len(Metin.Text) Then AramayaBasla = 1
'Eğer işaretçi sonda veya başta ise aramayı bütün metin içerisinde yapacağız..
KelimeninYeri = InStr(AramayaBasla, Metin.Text, ArananKelime, vbTextCompare)
'instr ile kelimenin metin içerisinde başladığı yeri alacağız..
If KelimeninYeri = 0 Then
MsgBox "Metin içinde böyle bir kelime yok"
Else
Metin.SetFocus
Metin.SelStart = KelimeninYeri - 1
Metin.SelLength = Len(ArananKelime)
'Aranan kelimeyi seçtireceğiz..
End If
End Sub

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
google'da etkili arama yapmak için	Girly™	Webmastersitesi çöplüğü	0	10-03-2008 07:57
Google’da Daha Etkili Arama Yapmak!	Girly™	Google - Msn - Yahoo Yenilikler	0	29-02-2008 10:09
Internet'te arama yapmak için ipuçları	kadınca	Network-internet	0	18-12-2007 12:44
Google'da Daha Etkin Bir Arama Yapmak : Gelişmiş Operatörler	kadınca	Google Servisleri	0	21-11-2007 07:52
Vertitabanında arama yapmak	viper	ASP	0	02-11-2007 05:42

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder