Soru MultiLine Textbox içinde arama yapmak

[k0081]

Merhaba arkadaşlar;

Textbox içinde eşleşen arama nasıl yapabilirim ? ( Command buton kullanarak )

örnek textbox içeriği ;

1- deneme..*
2- açıklama..*
3- spor..*
4- tv..*
5- deneme2..*
..
100- yağlı güreş..*

yapmak istediğim command butona tıkladığımda, inputbox a aranacak kelimeyi yazıp eşeleşenleri texboxta alt alta göstermesi diğerlerini silmesi... olurmu bilemedim.

yardımcı arkadaşa şimdiden Teşekkürler.

 

[ÖmerBey]

Merhaba,
Bir örnek dosya eklerseniz üzerinde çalışılabilir.

 

[k0081]

Merhaba,
Bir örnek dosya eklerseniz üzerinde çalışılabilir.

Örnek aynı bahsettiğim şekilde.., multiline texbox da arama yapılacak...

Teşekkürler.

 

[ÖmerBey]

Örnek aynı bahsettiğim şekilde.., multiline texbox da arama yapılacak...

Aşağıdaki kodu kendinize göre düzenleyiniz. (Örnek olmadığı için denemedim)

Private Sub CommandButton1_Click()
veri = Split(TextBox1.Text, vbLf)
ReDim dz(0)
ara = Application.InputBox("Aranacak değer?")
For Each v In veri
    If v Like "*" & ara & "*" Then
        ReDim Preserve dz(x)
        dz(x) = v
        x = x + 1
    End If
Next
TextBox1.Text = Join(dz, vbLf)
End Sub

 

[k0081]

ÖmerBey

Hocam çok teşekkür ediyorum. Tamamdır... Elinize sağlık.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[k0081]

ÖmerBey

Hocam bu koda şu şekilde bir ekleme yapabilirmiyiz ;

aranan değeri bulduğunda, ondan sonraki iki satırı da göstersin..

Teşekkürler.