+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اريد حذف السطرين المكررات من ملف نصي (/showthread.php?tid=29139)
اريد حذف السطرين المكررات من ملف نصي - الـ ـجارح - 25-03-19
السلام عليكم
يوجد لدي ملف نصي عباره عن اسئله واجوبه لا اريده يحذف سطر واحد مكرر لانه هناك اجابات مثل الشي مثلا
من هو سيد الشهداء ؟
حمزه
من الملقب ب اسد الله ؟
حمزه
بالحاله هذي لا اريده يحذف شي --لا اريده يحذف كلمة حمزه لانه السؤال يختلف
---------------------------------------------------------------------
لكن اذا كان كذا سطرين
من سيف الله المسلول؟
خالد بن الوليد
من هي ام النبي محمد صلى الله عليه وسلم؟
امنه بنت وهب
من سيف الله المسلول؟
خالد بن الوليد
بالحاله هذي يحذف السؤال والاجابه المكرره
------------------------------------------------------------------
يعني يحذف السطرين المتشابهه فقط وليس سطر واحد
اتمنى تساعدوني سواء بمشروع او اكواد
RE: اريد حذف السطرين المكررات من ملف نصي - thevirus - 25-03-19
عليكم السلام ورحمة الله وبركاته
اخي العزيز انصح بإستخدام قاعدة بيانات اكسس
اما لحل هذا السؤال اتمنى انك ترفق الملف النصي عشان نعرف كيف نتعامل معه
RE: اريد حذف السطرين المكررات من ملف نصي - الـ ـجارح - 25-03-19
الملف عباره عن ملف عادي
txt المفكره
RE: اريد حذف السطرين المكررات من ملف نصي - الـ ـجارح - 28-03-19
نررررفععععععع
RE: اريد حذف السطرين المكررات من ملف نصي - elgokr - 01-04-19
وعليكم السلام ورحمة الله وبركاته
قم بانشاء ملف txt يحتوى على اسطر للنصوص المقصودة بالموضوع
وقم بارفاق الملف هنا بالمرفقات لاتمام عمل سورس كمثال لكيفية التعامل معه
لتجنب وضع كود عشوائي والتعديل عليه العديد من المرات
تحياتى لك
وتمنياتى لك التوفيق
RE: اريد حذف السطرين المكررات من ملف نصي - بدري - 01-04-19
بعد اذن استاذنا elgokr اشرح له الحل
الخطوه الاولى اقرا الملف ويكون في مصفوفه نصيه مثل
Dim arr1() As String=IO.File.ReadAllLines("file.txt")
الخطوه الثانيه تنشئ قاءمه نصيه List مثل
Dim lst As new List(Of String)
الخطوه الثاله تعمل حلقه For على المصفوفه مع قفزتين Step 2 مثل
For i=0 To arr1.Count-1 Step 2
داخل الحلقه تضع شرط التاكد من عدم وجود السؤال في القائمه List مثل
If Not lst.Contains(arr1(i)) Then
هنا يتم اضافه السؤال والجواب للقائمه List مثل
lst.Add(arr1(i))
lst.add(arr1(i+1))
الخطوه الاخيره بعد حلقه For اي بعد Next تقوم بحفظ محتوى القائمه في ملف نصي باسم اخر مثل
IO.File.WriteAllLines("file_2.txt",lst)