تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد التأكد من تسجيل الدخول لموقع ما ابو روضة 1 54 منذ 1 دقيقه مضت
آخر رد: ابو روضة
  بالعقل اخوانى هناك امر اريد الاستفسار عنه فى اكواد تعديل الفاتوره خالد كامل1 11 118 منذ 2 ساعة مضت
آخر رد: خالد كامل1
  اريد بعض الاكواد البسيطه جدااااااا فيجوال بيسك 2010 kamel sobhy 6 3,201 08-07-19, 11:49 PM
آخر رد: ghani2003
  [سؤال] اخواني اريد عند الضغط علي الزر يظهر هذا ال نص داخل textbox1 XCoder 3 102 05-07-19, 09:26 PM
آخر رد: XCoder
  اريد حفظ المشروع كتطبيق للموبايل او برنامج سهل لعمل تطبيق لموقعي ahmedhhh2 7 298 21-06-19, 07:00 PM
آخر رد: elgokr
  [سؤال] اريد كود يجل ال label متساوي البعد بين الأطراف مع ال label الأخر hichem1 3 424 11-06-19, 02:20 AM
آخر رد: سامي محمد
  Windows Phone app لا تظهر عندي اريد ارسال sms وجدت الدرس ومش عارف كيف ahmedhhh2 0 108 11-06-19, 12:18 AM
آخر رد: ahmedhhh2
  اريد كود عرض الصورة من مسار فى اليست او جريد new_programer 13 449 24-04-19, 09:41 PM
آخر رد: elgokr
  [VB.NET] اريد دورة تصميم برنامج محاسبي من الصفر مع sql server mohamedhota 3 271 18-04-19, 07:52 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] اريد كود للطباعة لأي نوع من انواع قواعد البيانات tarek 1 151 14-04-19, 02:53 PM
آخر رد: Rabeea Qbaha

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


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