منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] عرض نص معين دخل ملف txt - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عرض نص معين دخل ملف txt (/showthread.php?tid=41720)

عرض نص معين دخل ملف txt - aminesori - 12-06-22

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


RE: عرض نص معين دخل ملف txt - aminesori - 13-06-22

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 



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






RE: عرض نص معين دخل ملف txt - نيمو - 15-06-22

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

RE: عرض نص معين دخل ملف txt - aminesori - 15-06-22

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


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

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




RE: عرض نص معين دخل ملف txt - نيمو - 16-06-22

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

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

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

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


RE: عرض نص معين دخل ملف txt - aminesori - 16-06-22

(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

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

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

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

RE: عرض نص معين دخل ملف txt - aminesori - 20-06-22

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