منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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 

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

[صورة مرفقة: p_23559w17r1.png]

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

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

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

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

[صورة مرفقة: p_2357gltcr1.png]

السلام عليكم
استاذي العزيز اسف للتاخير بسبب ظروف الكهربا [صورة مرفقة: angry.gif]

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

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

(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

aminesori

نيمو

aminesori

نيمو

aminesori

aminesori