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

كيف استخرج التكرار من Listbox
عن طريق الـ Regex

الـ Listbox به الاسطر التالية

101-2012-04-07-0008-212-7896-P-85214-GG1
101-2012-04-07-0008-212-7896-P-85215-GG1
101-2012-04-07-0008-212-7896-P-85214-GG1
101-2012-04-07-0008-213-7896-P-85215-GG1

والتكرار بناء على المؤشر عليها باللون الاحمر
لكن السطرو الاول ترتيبه حسب الاسطر الباقية لكن عند تلوينه اختلف ترتريه
الرد }}}}
تم الشكر بواسطة:
#2
هل السؤال مفهوم أم هو مستحيل
الرد }}}}
تم الشكر بواسطة:
#3
حب انت عايز تمسح المكرر ف اللست بوكس ؟
الرد }}}}
تم الشكر بواسطة:
#4
نعم او انقلة الى لسب بوكس ا خرى ولكن المكرر حسب الشروط المذكورة
الرد }}}}
تم الشكر بواسطة:
#5
هذا الكود لن يسمح بتكرار اى محتوى موجود ف القائمة

كود :
Dim s As String = "0"
        For i As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items.Item(i) = TextBox1.Text Then
                s = "1"
            End If
        Next
        If s = "0" Then
            ListBox1.Items.Add(TextBox1.Text)
        Else
            MsgBox("المحتوى موجود ف القائمة", MsgBoxStyle.Critical)
        End If

الفكرة انو اما بتتغط اضافة محتوى مثلا موجود ف تكست بوكس 1 البرنامج يقوم بفحص محتويات الموجودة ف القائمة

وهناك سترنج يحمل القيمة 0 اذا وجد البرنامج المحتوى موجود ف القائمة يقوم بجعل قيمة هذا الاسترنج 1 وبعد الانتهاء من الفحص اذا كانت قيمة الاسترنج 0 كما هيا يقوم ب اضافة النحتوى الجديد اما اذا كانت 1 فتخرج رسالة خطا تنبهك ب ان المحتوى موجود ب الفعل ف القائمة
الرد }}}}
تم الشكر بواسطة:
#6
اشكرك اخي على الرد لكن المطلوب هو التشييك على ما بداخل الـ ListBox1
إن كان فيها مكرر حسب الشروط المطلوبة يتم حذف المكرر ووضعة في ListBox2
الرد }}}}
تم الشكر بواسطة:
#7
اتمنى ان يفيدك هذا

كود :
For i As Integer = 0 To ListBox1.Items.Count - 1
            Try
                Dim num As Integer = i
                For t As Integer = 0 To ListBox1.Items.Count - 1
                    If t = num Then
                    Else
                        Try
                            If ListBox1.Items.Item(t) = ListBox1.Items.Item(i) Then
                                ListBox1.Items.RemoveAt(t)
                            End If
                        Catch ex As Exception

                        End Try

                    End If
                Next

            Catch ex As Exception
                Exit For
            End Try

        Next
الرد }}}}
تم الشكر بواسطة:
#8
هذا الكود يقوم بحذف التكرارات من الـ Listbox :

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim DistinctObj = (From LBI As Object In ListBox1.Items Distinct Select LBI).Cast(Of String)().ToArray


        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(DistinctObj.ToArray)




    End Sub


****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#9
الف شكر جزاكم الله خير اخواني

لكني اريد حذف التكرار بناء على المتشابة في 101-2012-04-07-0008 هذا الجزء الأول والجزء الثاني من السطر 7896 والجزء الثالث في 85215
فقط في هذه الاجزءا من كل سطر إن تكرر يعتبر مكرر وإلا فلا يعبر مكرر



PHP كود :
101-2012-04-07-0008-212-7896-p-85215-gg1
 101
-2012-04-07-0008-212-7896-p-85214-gg1
 101
-2012-04-07-0008-213-7896-p-85215-gg1 
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم هذا الكود
كود :
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ModifiedList As New List(Of String)
        For I = 0 To ListBox1.Items.Count - 1
            Dim SplitText As String() = 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
                ListBox2.Items.Add(ListBox1.Items.Item(I))
                ListBox1.Items.RemoveAt(I)
            End If
            ModifiedList.Add(NewText)
        Next
    End Sub
End Class

بالتوفيق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 84 18-02-17, 02:19 PM
آخر رد: Amrjamil
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 52 12-02-17, 08:06 PM
آخر رد: مساعدة
  [سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت youssef1 10 206 11-02-17, 12:56 AM
آخر رد: hassan
  [VB.NET] الاتصال بقاعدة البيانات عن طريق real Ip engmedomed@gmail.com 1 98 02-02-17, 11:44 PM
آخر رد: nabil.1710
  Random من listbox Mohamed20 9 177 01-02-17, 01:18 AM
آخر رد: Mohamed20
  [VB.NET] total number listbox +8 3asfa~mdmra 2 82 31-01-17, 07:54 PM
آخر رد: 3asfa~mdmra
  البحث قى listbox Mohamed20 1 88 27-01-17, 07:12 AM
آخر رد: مساعدة
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 2 96 25-01-17, 04:06 PM
آخر رد: riad21
  عاوز كتاب كل الاكواد الخاصة بالربط عن طريق المعالج araxis 2 154 23-01-17, 02:15 PM
آخر رد: أبووسم
  [VB.NET] اتصال بقاعدة بيانات mysql عن طريق الانترنت kirama 2 128 21-01-17, 04:01 PM
آخر رد: thevirus

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


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