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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد اظهار الجمع الموجود في داتا قريد لكل شهر يظهر في label rochdi191 8 147 27-10-20, 11:46 PM
آخر رد: lafi
  [VB.NET] اريد عمل مولد سيريال اوتوماتيك ميدو الفنان 5 357 30-09-20, 09:24 PM
آخر رد: ميدو الفنان
  اريد شرح مبسط عمور2016 2 269 28-09-20, 10:40 AM
آخر رد: amer2000
  [سؤال] لدي ملف hosts اريد استبداله jam3h 2 112 25-09-20, 09:24 AM
آخر رد: jam3h
  اريد كتابة ارقام فقط في الخلية -ما العمل ؟ khaled Mohammed 5 281 11-09-20, 02:34 PM
آخر رد: عبد الهادي بهاب
  [Acces2007] اريد تقسيم بيانات عمود الى عدة اعمدة ويوجد مثال مصور sasay202 2 248 01-09-20, 10:22 PM
آخر رد: ابراهيم ايبو
  [سؤال] اريد شويه أكواد عن قواعد بيانات الاكسس منه 2 265 27-08-20, 10:51 AM
آخر رد: منه
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 435 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي
  لو سمحتم اريد تعديل على هذا المشروع خالد كامل1 3 413 20-08-20, 06:09 PM
آخر رد: خالد كامل1
  اريد استرجاع شئ فى الداتا جريد فيو خالد كامل1 2 279 14-08-20, 08:54 PM
آخر رد: خالد كامل1

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


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