selam arkadaşlar.yapmak istediğim şey bir not defteri içerisndeki metin şeklindeki verileri ilk 10 karakterine göre paragraf paragraf aratmak.bulunan sonuca göre msgbox açmak.yardımlarınızı bekliyorum.vb ye de yeni başladım acemiyim:)
teşekkürler...
Aradığın Kod Bu Tam değil, ama az bir uğraş ile istediğin gibi olabilir. Aşağıda vericeğim kodlar bana ait değildir.
’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
çok teşekkür ederim yardımlarınız için fakat
aranacak dosya c de bir yerde kayıtlı.niye textboxa kopyala yapıştır yapmıyorsun diye soracak olursanız dosya içerisindeki metin(ler) dakikada bir yenileniyor.
ya da .bul uzantılı dosya içerisindeki metinleri textbox a aktarmaının yolunu söylerseniz ancak işime yarayacak.
teşekkürler
başka bir konuda streamreader ile ilgili örnek yazmıştım ona bakarak yapabilirsin (ona bakarak programa alırsın) sonrasında yukarıdaki kod ile senkronize edersin