[نيمو]

السلام عليكم
استاذي العزيز اسف للتاخير بسبب ظروف الكهربا

انشى تكست بوكس لكتابة الكلمة المطلوبة : TxtSearch
بوتن للبحث عن الكلمة
تكست بوكس لعرض الناتج : TxtRead

بوتن لاختيار ملف نصي
تكست بوكس لعرض مسار الملف النصي : Path

كود رفع ملف :

كود :

Dim fileup As New OpenFileDialog
       fileup.Filter = "txt files (*.txt)|*.txt"
       fileup.Title = "Open Txt"
       If fileup.ShowDialog = DialogResult.OK Then

           Path.Text = fileup.FileName
       End If

الكود في بوتن البحث :

كود :

Dim Search As String() = File.ReadAllLines(Path.Text)
       TxtRead.Text = ""
       Try
           For Each i As String In Search
               'For i As Integer = 0 To Search.Length - 1
               If i.StartsWith(TxtSearch.Text) Or i.Contains(TxtSearch.Text) Then
                   TxtRead.Text &= i & vbNewLine
               End If

           Next
       Catch ex As Exception
               MsgBox(ex.Message)
           End Try

الكود يعرض السطر كاملا اذا كانت به الكلمة المطلوبة