ازالة اسطر عديدة من ملف 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)