[aminesori]

السلام عليكم ممكن طريقة عرض جزء معين من الملف النصي على تكس بوكس

التوضيح موضوع مع المرفق

[aminesori]

PHP كود :

      Dim lines() As String = File.ReadAllLines("D:\texte.txt")
        For i As Integer = 0 To lines.Length - 1
            If lines(i).StartsWith("AB") Then
                Dim addressIndex As Integer = Array.FindIndex(lines, i + 1, Function(Line) Line.StartsWith("EF"))
                Dim address As String = If(addressIndex <> -1, lines(addressIndex).Substring(3), "") ' Get everything past the "-"

                Dim name As String = ""
                If addressIndex <> -1 Then
                    Dim nameIndex As Integer = Array.FindIndex(lines, i + 1, addressIndex - i, Function(line) line.StartsWith("CD"))
                    If nameIndex <> -1 Then
                        name = lines(nameIndex).Substring(3) ' Get everything past the "-"
                    End If
                End If

                DataGridView2.Rows.Add(name, address)
            End If
        Next 


لقد وجدت هذا الكود وهو يعمل فقط اذا امكن التعديل عليه لعرض النص المختار او السطر المحدد

[نيمو]

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

[aminesori]

(15-06-22, 12:28 PM)نيمو كتب : يعني المطلوب تبحث عن نص او تختار اسطر معينه او عدد كلمات معين كيف تقصد بالضبط اذا بحث عن كلمات معينه مو مشكلة اعدل او انشى كود
يعني اذا ملف نصي بيه مثلا 10 اسطر كيف تكون طريقة عرض باي صورة

شكرا لك على المتابعة 

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

[نيمو]

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

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

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

[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

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

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

[aminesori]

ارجو المساعدة منك