تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عرض نص معين دخل ملف txt
#1
السلام عليكم ممكن طريقة عرض جزء معين من الملف النصي على تكس بوكس
التوضيح موضوع مع المرفق


الملفات المرفقة
.rar   line from text.rar (الحجم : 111.5 ك ب / التحميلات : 24)
الرد }}}
تم الشكر بواسطة: سعود
#2
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(lines1, Function(LineLine.StartsWith("EF"))
 
               Dim address As String = If(addressIndex <> -1lines(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(nameaddress)
 
           End If
 
       Next 



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




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


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

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




الملفات المرفقة
.txt   texte2.txt (الحجم : 3.12 ك ب / التحميلات : 7)
الرد }}}
تم الشكر بواسطة: سعود , سعود
#5
السلام عليكم
استاذي العزيز اسف للتاخير بسبب ظروف الكهربا

انشى تكست بوكس لكتابة الكلمة المطلوبة : 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]
الرد }}}
تم الشكر بواسطة: ابو روضة , سعود
#6
(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]

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  إجبار المستخدم على إدخال عدد معين من الأرقام Ahmed.vb 6 656 20-10-23, 10:25 AM
آخر رد: atefkhalf2004
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 695 26-07-23, 05:47 AM
آخر رد: Taha Okla
  إخفاء الصفر في عمود معين kebboud 0 299 01-07-23, 03:32 AM
آخر رد: kebboud

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم