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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  [VB.NET] listbox تلوين عدد من هذه الأسماء mervandz 3 420 18-11-23, 01:35 AM
آخر رد: sniper2030
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 287 10-11-23, 07:12 PM
آخر رد: justforit
  تشغيل الماكرو عن طريق اكواد الفجوال نيمو 0 271 03-11-23, 11:14 AM
آخر رد: نيمو
  كود عدم التكرار yossefsaad370 1 252 27-10-23, 12:13 PM
آخر رد: mrfenix93
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 517 03-08-23, 03:41 PM
آخر رد: moh61
  [سؤال] تشغيل راديو عن طريق الانترنت أبوسعود 5 716 01-07-23, 10:34 PM
آخر رد: asmarsou
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  ربط جهازين عن طريق الانترنت (public ip) mom22jo 5 1,967 15-05-23, 12:25 AM
آخر رد: ابو محمد محمد محمد

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


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