منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

يا أسامة،

غير Dim toline As String إلى Dim toline As Integer مع حذف كلمة Length

(04-07-16, 05:56 AM)الوادي كتب : [ -> ]يا أسامة،

غير Dim toline As String إلى Dim toline As Integer مع حذف كلمة Length

جربت من قبل لاكن لم ينجح

يا أسامة،

تفضل

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) 

(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)

يا أسامة،

الكود الأخير الذي وضعته لك يعمل لدي كما هو،

لا أدري أين اضفت Contains("text)

أخشى أن مشروعك مختلف عن ما ذكرت في موضوعك من الأساس

لا اعلم السبب لاكن سوف احاول مرة اخى جزاك الله خير