تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخراج المكرر من ListBox
#1
السلام عليكم ورحمة الله وبركاته

اخواني اثابكم الله

هذا كود يقوم باستخراج الاسطر المكرره في لست بوكس ولكن بشروط معينه
أي لا يشترط في التكرار كامل السطر

كتبه احد الاعضاء في منتدى فيجوال بيسك لكل العرب السابق جزاه الله الف خير

الكود


كود :
 
Try
            Me.ListBox3.Items.Clear()
            Dim ModifiedList As New List(Of String)
            For I = Me.ListBox1.Items.Count - 1 To 0 Step -1
                Dim SplitText() As String = Me.ListBox1.Items.Item(I).split("-")
                    SplitText(5) = 0
                    SplitText(7) = 0
                    SplitText(9) = 0
                Dim NewText As String = String.Join("-", SplitText)
                If ModifiedList.IndexOf(NewText) > -1 Then
                    Me.ListBox3.Items.Add(Me.ListBox1.Items.Item(I))
                    Me.ListBox1.Items.RemoveAt(I)
                End If
                ModifiedList.Add(NewText)
            Next
        Catch ex As Exception
        End Try

هذا الكود يقوم باستخراج المكرر من لست بوكس واحده أي البحث داخل اللست نفسها
المطلوب
على نفس الشرط السابق في استخراج المكرر
ولكن المكرر من listbox1 و listbox2
أي المقارنة بينهما وبنفس شروط التكرار السابقة
الرد }}}}
تم الشكر بواسطة:
#2
الســــــــــــــــــــــلام عليكم ورحمه الله وبركـــــــــــــــــــــــــــــاته
 
تفضل اخي قمت بعمل مثال بسيط يوضح ما تريد Big Grin 
 
صور البرنامج
 
استخراج العناصر المتشابهة


 
 
 
استخراج العناصر المختلفة




والبرنامج تجده في المرفقات Big Grin  Rolleyes

كلة المرور : eng.khalidvb

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


الملفات المرفقة
.rar   compare 2 listboxes and get similars.rar (الحجم : 76.68 ك ب / التحميلات : 192)
الرد }}}}
تم الشكر بواسطة: aftfm
#3
الف شكر اخي العزيز eng.khalidvb على الرد والمثال
المثال معمول بـ vb.net 2012
لا يعمل لدي لدي vb.net 2008 and 2010

لكن هل قمت بعمل التمشابه والغير متشابه بنفس الشروط إذا كان ارجوا
كتابة الكود مشكور

تم فتح المثال مشكور

لكن الكود لم يكن بالمتطلبات التي قلتها في المشاركة الاولي

المطلوب حسب السابق في الكود الذي في المشاركة الاولى
الرد }}}}
تم الشكر بواسطة:
#4
لم يجيبني احد على الكود المطلوب
وعلى ما اعتقد ان من قام بوضع الكود السابق في المشاركة الاولى هو الاخ sooriaty03

في مشاركة سابقة في المنتدى القديم
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم و رحمة الله و بركاته




أخ عاطف


أنت مصعب طلبك على الأعضاء، من الصعب أن نفهم الشروط من الكود الذ وضعته، لذا....
يجب عليك إعادة شرح الشروط مع اضافة إضافة مثال مشروع يحتوي على بيانات  لتجربة الحلول.


الله يوفقك



السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة: aftfm , sooriaty03
#6
هذا مثال للمطلوب والف شكر اخي العزيز ابو رائد


الملفات المرفقة
.rar   DuplicateTEXT.rar (الحجم : 64.37 ك ب / التحميلات : 156)
الرد }}}}
تم الشكر بواسطة:
#7
هل المثال واضح
أو السؤال واضح
ارجوا افادتي مشكورين
الرد }}}}
تم الشكر بواسطة:
#8
(25-09-13, 10:57 PM)aftfm كتب : هل المثال واضح
أو السؤال واضح
ارجوا افادتي مشكورين


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

أخي الكريم
أنت لم تحدد نوع البيانات التي تريد عمل المقارنة عليها
والمثال الذي أرفقته خاليا من البيانات
فالأفضل أن تكتب عينة من البيانات داخل أداة ListBox ليتسنى لنا فهم المطلوب

بالتوفيق
الرد }}}}
تم الشكر بواسطة: aftfm
#9
بارك الله فيك اخي sooriaty03
على التنبيه لاني ارفقت مثال آخر


هذا المثال المطلوب 
جزاك الله الف خير


الملفات المرفقة
.rar   DuplicateText1.rar (الحجم : 107.14 ك ب / التحميلات : 154)
الرد }}}}
تم الشكر بواسطة:
#10
لم يرد احد على موضوعي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية جلب مستند نصي من Resources الي Listbox e-coder 3 97 04-09-17, 07:28 AM
آخر رد: سعود
  نقل عناصر listbox الى textbox بـــكوما مفصولة srca100050 13 297 26-08-17, 06:33 PM
آخر رد: سعود
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 3 323 26-08-17, 03:55 PM
آخر رد: حسن ايت حدو
  [VB.NET] كيف اوقف التايمر بعد تحديد الكل في listbox ? e-coder 9 223 31-07-17, 01:53 AM
آخر رد: ابو ليلى
  [VB.NET] كود جلب id الجروبات الى listbox A-R 2 121 02-07-17, 02:54 PM
آخر رد: A-R
  [VB.NET] اضافة كلمة في جميع اسطر listbox mervandzz 1 136 19-06-17, 05:03 PM
آخر رد: silverlight
  تضبيط ادخال المعلومات من Rich box الي ال ListBox khaled12345 2 156 22-05-17, 08:50 AM
آخر رد: khaled12345
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 173 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  اختيار عنصر عشوائي من Listbox Basil Abdallah 1 118 17-04-17, 01:38 AM
آخر رد: عبـدالله
  عندما يكون listbox فارغ اريد ان يكون لونه احمر مثلا الـ ـجارح 7 341 15-04-17, 09:23 PM
آخر رد: Amir_alzubidy

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


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