07-11-16, 10:27 PM
07-11-16, 11:04 PM
وعليكم السلام
علينا قراءة الملف على شكل مصفوفة أسطر،
ولحسن الحظ انه يوجد أمر قراءة ملف نصي على شكر مصفوفة أسطر وهو IO.File.ReadAllLines
الخطوة التالية المرور على الأسطر عن طريق حلقة For مثل
وبداخل حلقة For نفحص السطر هل فيه الكلمة المطلوبة،
فإذا وجدت نقرا رقم السطر +1 لأن المصفوفة تبدأ بالرقم صفر،
ثم نخرج من الحلقة مثل
فيكون الكود كاملا هو
علينا قراءة الملف على شكل مصفوفة أسطر،
ولحسن الحظ انه يوجد أمر قراءة ملف نصي على شكر مصفوفة أسطر وهو 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
08-11-16, 12:18 AM
هذا ما كنت ابحث عنه بارك الله فيك اخي ممدوح وشكرا على شرحك الوافي والكافي جزاك الله عنا الف خير