[الـ ـجارح]

السلام عليكم

يوجد لدي ملف نصي عباره عن اسئله واجوبه لا اريده يحذف سطر واحد مكرر لانه هناك اجابات مثل الشي مثلا

من هو سيد الشهداء ؟
حمزه
من الملقب ب اسد الله ؟
حمزه

بالحاله هذي لا اريده يحذف شي --لا اريده يحذف كلمة حمزه لانه السؤال يختلف 

---------------------------------------------------------------------
لكن اذا كان كذا سطرين
من سيف الله المسلول؟
خالد بن الوليد
من هي ام النبي محمد صلى الله عليه وسلم؟
امنه بنت وهب
من سيف الله المسلول؟
خالد بن الوليد

بالحاله هذي يحذف السؤال والاجابه المكرره
------------------------------------------------------------------

يعني يحذف السطرين المتشابهه فقط وليس سطر واحد

اتمنى تساعدوني سواء بمشروع او اكواد

[thevirus]

عليكم السلام ورحمة الله وبركاته
اخي العزيز انصح بإستخدام قاعدة بيانات اكسس
اما لحل هذا السؤال اتمنى انك ترفق الملف النصي عشان نعرف كيف نتعامل معه

[الـ ـجارح]

الملف عباره عن ملف عادي
txt المفكره

[الـ ـجارح]

نررررفععععععع

[elgokr]

وعليكم السلام ورحمة الله وبركاته

قم بانشاء ملف txt يحتوى على اسطر للنصوص المقصودة بالموضوع

وقم بارفاق الملف هنا بالمرفقات لاتمام عمل سورس كمثال لكيفية التعامل معه

لتجنب وضع كود عشوائي والتعديل عليه العديد من المرات

تحياتى لك

وتمنياتى لك التوفيق

[بدري]

بعد اذن استاذنا 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)