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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 7 916 22-10-17, 03:14 PM
آخر رد: رمضان محمد
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 392 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
Exclamation [VB.NET] جلب النص regex mervandzz 1 79 12-10-17, 08:08 PM
آخر رد: أحمد النجار
  تسجيل دخول موقع عن طريق Httprequest pos . للخبراء فقط kingofring 5 156 05-10-17, 01:39 AM
آخر رد: kingofring
  [VB.NET] اخذ نسخة احتياطية عن طريق المشروع محمد بوقزاحة 4 112 27-09-17, 10:48 AM
آخر رد: محمد بوقزاحة
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 58 08-09-17, 04:02 PM
آخر رد: Amjad
  [سؤال] كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس alims 8 173 04-09-17, 11:27 PM
آخر رد: alims
  [VB.NET] كيفية جلب مستند نصي من Resources الي Listbox e-coder 3 110 04-09-17, 07:28 AM
آخر رد: سعود
  الغاء تنفيذ الادخال عن طريق inputbox mo93 5 197 03-09-17, 01:38 AM
آخر رد: سعود
  نقل عناصر listbox الى textbox بـــكوما مفصولة srca100050 13 349 26-08-17, 06:33 PM
آخر رد: سعود

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


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