[أسامة]

(04-07-16, 06:08 AM)الوادي كتب : يا أسامة،

تفضل

PHP كود :

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


عند تغير القيمة الى Integer يعطى خطأ فى   info.RemoveAt(i) 
الحل الوحيد الذى وجدة انه يجب اضافة Contains("text)