تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ازالة اسطر من ملف txt
#1
ازالة اسطر  عديدة من ملف 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)
المشكلة لا يحذف الاسطر
الرد }}}
تم الشكر بواسطة:
#2
يا أسامة،

غير Dim toline As String إلى Dim toline As Integer مع حذف كلمة Length
الرد }}}
تم الشكر بواسطة:
#3
(04-07-16, 05:56 AM)الوادي كتب : يا أسامة،

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

جربت من قبل لاكن لم ينجح
الرد }}}
تم الشكر بواسطة:
#4
يا أسامة،

تفضل
PHP كود :
Dim toline As Integer 'عدد الاسطر المراد حذفها 
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) 
الرد }}}
تم الشكر بواسطة: أسامة
#5
(04-07-16, 06:08 AM)الوادي كتب : يا أسامة،

تفضل
PHP كود :
Dim toline As Integer 'عدد الاسطر المراد حذفها 
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)
الرد }}}
تم الشكر بواسطة:
#6
يا أسامة،

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

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

أخشى أن مشروعك مختلف عن ما ذكرت في موضوعك من الأساس
الرد }}}
تم الشكر بواسطة: أسامة
#7
لا اعلم السبب لاكن سوف احاول مرة اخى جزاك الله خير
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم