15-05-17, 07:33 PM
16-05-17, 12:34 AM
وجدت الحل عبر هذا الكود
شكرا لكم
كود :
("Dim lines() As String = IO.File.ReadAllLines("file.txt")
For i = 0 To lines.Count - 1
If lines(i).Contains("word") Then
MsgBox("line index=" & (i + 1))
Exit Forشكرا لكم
16-05-17, 01:25 AM
هناك فرق بين رقم السطر وفهرس السطر
فرقم السطر Number يبدأ ب(1) كترقيم العادي
ورقم الفهرس Index يبدأ ب(0) كترقيم برمجي
وبناء على الكود في مشاركتك الأخيرة فتكتب line no وليس line index بسبب وجود (+ 1)
فرقم السطر Number يبدأ ب(1) كترقيم العادي
ورقم الفهرس Index يبدأ ب(0) كترقيم برمجي
وبناء على الكود في مشاركتك الأخيرة فتكتب line no وليس line index بسبب وجود (+ 1)