[aftfm]

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

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

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

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

الكود

كود :

 
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
أي المقارنة بينهما وبنفس شروط التكرار السابقة

[eng.khalidvb]

الســــــــــــــــــــــلام عليكم ورحمه الله وبركـــــــــــــــــــــــــــــاته
 
تفضل اخي قمت بعمل مثال بسيط يوضح ما تريد  
 
صور البرنامج
 

استخراج العناصر المتشابهة

 

 

 

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

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

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

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

[aftfm]

الف شكر اخي العزيز eng.khalidvb على الرد والمثال
المثال معمول بـ vb.net 2012
لا يعمل لدي لدي vb.net 2008 and 2010

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

---

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

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

المطلوب حسب السابق في الكود الذي في المشاركة الاولى

[aftfm]

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

في مشاركة سابقة في المنتدى القديم

[@@أبورائد@@]

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




أخ عاطف


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


الله يوفقك



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

[aftfm]

هذا مثال للمطلوب والف شكر اخي العزيز ابو رائد

[aftfm]

هل المثال واضح
أو السؤال واضح
ارجوا افادتي مشكورين

[sooriaty03]

(25-09-13, 10:57 PM)aftfm كتب : هل المثال واضح
أو السؤال واضح
ارجوا افادتي مشكورين

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

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

بالتوفيق

[aftfm]

بارك الله فيك اخي sooriaty03
على التنبيه لاني ارفقت مثال آخر


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

[aftfm]

لم يرد احد على موضوعي