+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ازالة اسطر من ملف txt (/showthread.php?tid=16334)
ازالة اسطر من ملف txt - أسامة - 03-07-16
ازالة اسطر عديدة من ملف 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)RE: ازالة اسطر من ملف txt - الوادي - 04-07-16
يا أسامة،
غير Dim toline As String إلى Dim toline As Integer مع حذف كلمة Length
RE: ازالة اسطر من ملف txt - أسامة - 04-07-16
(04-07-16, 05:56 AM)الوادي كتب : يا أسامة،
غير Dim toline As String إلى Dim toline As Integer مع حذف كلمة Length
جربت من قبل لاكن لم ينجح
RE: ازالة اسطر من ملف txt - الوادي - 04-07-16
يا أسامة،
تفضل
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)
RE: ازالة اسطر من ملف txt - أسامة - 04-07-16
(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)
RE: ازالة اسطر من ملف txt - الوادي - 04-07-16
يا أسامة،
الكود الأخير الذي وضعته لك يعمل لدي كما هو،
لا أدري أين اضفت Contains("text)
أخشى أن مشروعك مختلف عن ما ذكرت في موضوعك من الأساس
RE: ازالة اسطر من ملف txt - أسامة - 04-07-16
لا اعلم السبب لاكن سوف احاول مرة اخى جزاك الله خير