تقييم الموضوع :
  • 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
لا اعلم السبب لاكن سوف احاول مرة اخى جزاك الله خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن استعمال iniread لقراءه اسطر متعددة أسامة 0 175 26-12-15, 03:35 AM
آخر رد: أسامة
  [سؤال] تقسيم جزء من اسطر متعددة. gator 7 521 22-10-15, 02:28 PM
آخر رد: gator
  [سؤال] كيف يمكن التحكم بارتفاع اسطر الليست فيو؟ kafi2030 4 1,017 07-10-13, 06:13 PM
آخر رد: kafi2030
  [سؤال] ارتفاع اسطر الداتا جريد فيو؟ kafi2030 11 3,339 30-09-13, 03:55 PM
آخر رد: tarek
  هل استطيع ازالة ال debugger من برنامجي tecno2012 1 294 03-12-12, 02:59 PM
آخر رد: SaLoOoMX

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


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