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

نسخة كاملة : استخراج رقم السطر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اخواني انا ابحث عن طريقة استخراج رقم السطر لكلمة معينة في ملف نصي
وعليكم السلام

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

ولحسن الحظ انه يوجد أمر قراءة ملف نصي على شكر مصفوفة أسطر وهو 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
هذا ما كنت ابحث عنه بارك الله فيك اخي ممدوح وشكرا على شرحك الوافي والكافي جزاك الله عنا الف خير