+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استخراج رقم السطر (/showthread.php?tid=17953)
استخراج رقم السطر - rabeh.ram - 07-11-16
السلام عليكم اخواني انا ابحث عن طريقة استخراج رقم السطر لكلمة معينة في ملف نصي
RE: استخراج رقم السطر - ممدوح - 07-11-16
وعليكم السلام
علينا قراءة الملف على شكل مصفوفة أسطر،
ولحسن الحظ انه يوجد أمر قراءة ملف نصي على شكر مصفوفة أسطر وهو 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
NextRE: استخراج رقم السطر - rabeh.ram - 08-11-16
هذا ما كنت ابحث عنه بارك الله فيك اخي ممدوح وشكرا على شرحك الوافي والكافي جزاك الله عنا الف خير