[ممدوح]

وعليكم السلام

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

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