[aminesori]

(16-06-22, 12:56 PM)نيمو كتب : السلام عليكم
استاذي العزيز اسف للتاخير بسبب ظروف الكهربا

انشى تكست بوكس لكتابة الكلمة المطلوبة : 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

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

شكرا لك على المتابعة اريدكذلك ان يحدد نهاية البحث 
بحيث يعرض عدد من الاسطر وليس سطر واحد فقط