Bir metin içinde aradığınız bir kelimeyi bulmaya ve o kelimeyi işaretlemeye yarayan örnek bir kodlar:
’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..
Bir metin içinde aradığınız bir kelimeyi bulma
Bu Konudaki Yorumlar |
Bir metin içinde aradığınız bir kelimeyi bulma - Yazar: ışık - 08/02/2009, 16:40
Cvp: Bir metin içinde aradığınız bir kelimeyi bulma - Yazar: C*e*l*o*y*c*e - 08/02/2009, 21:19
Cvp: Bir metin içinde aradığınız bir kelimeyi bulma - Yazar: ali02 - 17/03/2009, 12:04
Cvp: Bir metin içinde aradığınız bir kelimeyi bulma - Yazar: ekselanss - 23/05/2010, 17:07
Cvp: Bir metin içinde aradığınız bir kelimeyi bulma - Yazar: Taruz - 23/05/2010, 17:39
Cvp: Bir metin içinde aradığınız bir kelimeyi bulma - Yazar: benremix - 23/05/2010, 20:24
|
Konuyu Okuyanlar: 1 Ziyaretçi