كيف أحدد رقم السطر في ملف نصي على vb.net؟

على فرض أنك تمتلك الرقم الترتيبي للسطر، يمكنك استعمال هذه الطريقة:

Dim pos As Integer = 10
 ''رقم السطر
Dim subStr As String = System.IO.File.ReadAllText("C:\\path\\x.txt").Substring(0, pos)
Dim lineNo As Integer = subStr.Split(vbCrLf).Count ''استخراج عدد الحروف في السطر

في حالة لم تتوفر على رقم السطر، وتوفر لديك قطعة من السطر-في حالة عدة أسطر سيعيد لك السطر الأول-:

Dim content As String = System.IO.File.ReadAllText("C:\\...\\x.txt")
Dim pos As Integer = content.IndexOf("<<the content of your line goes here>>")
Dim lineNo As Integer = content.Substring(0, pos).Split(vbCrLf).Count

وهذه الشيفرة لاستعادة لعد جميع الأحرف بالملف النصي:

Dim lines As Integer = System.IO.File.ReadAllLines("C:\\...path...\\x.txt").Length