تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد حذف السطرين المكررات من ملف نصي
#1
السلام عليكم

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

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

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

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

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

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

اتمنى تساعدوني سواء بمشروع او اكواد
الرد
تم الشكر بواسطة:
#2
عليكم السلام ورحمة الله وبركاته
اخي العزيز انصح بإستخدام قاعدة بيانات اكسس
اما لحل هذا السؤال اتمنى انك ترفق الملف النصي عشان نعرف كيف نتعامل معه
لا شيء مستحيل
الرد
تم الشكر بواسطة: elgokr , elgokr
#3
الملف عباره عن ملف عادي
txt المفكره
الرد
تم الشكر بواسطة:
#4
نررررفععععععع
الرد
تم الشكر بواسطة:
#5
وعليكم السلام ورحمة الله وبركاته

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: بدري
#6
بعد اذن استاذنا 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)
الرد
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود عرض الصورة من مسار فى اليست او جريد new_programer 13 292 24-04-19, 09:41 PM
آخر رد: elgokr
  [VB.NET] اريد دورة تصميم برنامج محاسبي من الصفر مع sql server mohamedhota 3 160 18-04-19, 07:52 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] اريد كود للطباعة لأي نوع من انواع قواعد البيانات tarek 1 86 14-04-19, 02:53 PM
آخر رد: Rabeea Qbaha
  اريد اضافة بوتون داخل عمود فى الداتا جريد فيو سمير جمال 3 118 10-04-19, 12:24 PM
آخر رد: elgokr
  [سؤال] اريد شرح طريقة رفع قاعدة بيانات من نوع mysql ابو يوسف النواوي 2 6 186 27-03-19, 11:51 AM
آخر رد: أبوبكر سويدان
  اريد التحكم فى برنامجى عن بعد Lathe1 3 149 25-03-19, 01:28 PM
آخر رد: asemshahen5
  اريد تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 2 151 17-03-19, 10:21 AM
آخر رد: ابو روضة
  اريد ظهور الفورم لمرة واحدة فقط سمير جمال 1 120 17-03-19, 04:12 AM
آخر رد: asemshahen5
  اريد انشاء قاعدة بيانات سمير جمال 2 145 14-03-19, 04:29 AM
آخر رد: سمير جمال
  اريد كود التاكد من ان الفورم مفتوحة ام مغلقة سمير جمال 2 161 01-03-19, 07:13 PM
آخر رد: سمير جمال

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


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