[أسامة]

ازالة اسطر  عديدة من ملف txt اريد ازالة الاسطر بهذه الطريقة من السطر رقم  5 الى السطر رقم 12 من 15 الى 17 ...
استخدم هذا الكود

كود :

       Dim toline As String = 8 'عدد الاسطر المراد حذفها
       Dim path As String = Application.StartupPath + "\xx.txt"
       Dim info = IO.File.ReadAllLines(path).ToList
       For i = 2 To toline.Length ' من السطر رقم 2 الى السطر رقم 8
           info.RemoveAt(i) ' ازالة الاسطر
         -1info.RemoveAt(i) ' ازالة الاسطر
       Next
       IO.File.WriteAllLines(path, info.ToArray)

المشكلة لا يحذف الاسطر