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

علينا قراءة الملف على شكل مصفوفة أسطر،

ولحسن الحظ انه يوجد أمر قراءة ملف نصي على شكر مصفوفة أسطر وهو IO.File.ReadAllLines
كود :
Dim lines() As String = IO.File.ReadAllLines("filename.txt")

الخطوة التالية المرور على الأسطر عن طريق حلقة For مثل

كود :
For i = 0 To lines.Count - 1

Next

وبداخل حلقة For نفحص السطر هل فيه الكلمة المطلوبة،
فإذا وجدت نقرا رقم السطر +1 لأن المصفوفة تبدأ بالرقم صفر،
ثم نخرج من الحلقة مثل
كود :
If lines(i).Contains("الكلمة") Then

   MsgBox("رقم السطر=" & (i+1))

   Exit For

End If

فيكون الكود كاملا هو
كود :
Dim lines() As String = IO.File.ReadAllLines("filename.txt")

For i = 0 To lines.Count - 1

   If lines(i).Contains("الكلمة") Then

       MsgBox("رقم السطر=" & (i+1))

       Exit For

   End If

Next
الرد }}}}
تم الشكر بواسطة:
#3
هذا ما كنت ابحث عنه بارك الله فيك اخي ممدوح وشكرا على شرحك الوافي والكافي جزاك الله عنا الف خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] اريد كود استخراج سورس موقع تحويل تلقائي sharo.azad 0 79 08-10-16, 03:10 PM
آخر رد: sharo.azad
  [سؤال] اريد كود استخراج كلمة من سورس كود موقع sharo.azad 3 113 07-10-16, 01:01 PM
آخر رد: sharo.azad
  استخراج واسبتدال Kian Tech 0 70 18-09-16, 12:40 AM
آخر رد: Kian Tech
  تصحيح الخطاء في السطر الذي لونه احمر تحته خط علي كعبي 1 97 17-09-16, 07:48 PM
آخر رد: silverlight
  اظهار الايقونه على gridview button حسب اذا كان يوجد بينات في السطر المعين Rabeea Qbaha 4 143 12-09-16, 08:48 PM
آخر رد: Rabeea Qbaha
  [سؤال] OCR استخراج الكتابة من الصور mohamed haroon 4 211 23-06-16, 05:10 AM
آخر رد: محمد كريّم
  [سؤال] هل من الممكن استخراج رقم من الصور VB.NET 1 204 06-04-16, 12:40 PM
آخر رد: ممدوح
  بخصوص استخراج كشف اكسل من داتا جريد freedoas 3 350 28-03-16, 01:12 AM
آخر رد: freedoas
  كيف اجعل السطر في الجريد فيو ينزل سطر ثاني SAJA KAREEM 0 122 14-03-16, 04:40 PM
آخر رد: SAJA KAREEM
  [VB.NET] كود لعرض السطر التالى فى ال textbox من ملف تكست alaa yosry 12 780 22-01-16, 01:42 AM
آخر رد: المتألق9

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


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