منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

(30-06-14, 04:49 PM)aftfm كتب : [ -> ]جرب المثال مع الملف

التكرار يكون من بعد الاحرف

يا أخي يجب أن تكون أكثر دقة وأن توضح ماذا تريد بالتحديد والتفصيل !

يا اخوان انا لكم من الشاكرين

التكرار في المثال بشروط معينه

اي باستخدام

كود :

Regex.Match(ListBox1.Items(i).ToString, "((\d)[0-9-]+\w+)").Value.Trim

حمل البرنامج ومن ثم شغله واقراء الملف R2 الموجود في مجلد File المرفق مع المثال

بعد التجربة يتم ارسال المكرر في ListBox1 الى ListBox2

الى هنا لا يوجد مشاكل
مع العلم ان التكرار فقط بعد الاحرف
هذا النص الموجود في الملف R2

R-10-22-23
I-R-11-22-33
R-10-33-22
S-11-22-22
S-10-33-22

في هذه الحالة يكون المكرر هو
R-10-33-22
و
S-10-33-22

سيتم ارسال الى ListBox2
10-33-22

الان المطلوب
تحديد السطر في ListBox1
حسب الموجود في ListBox2

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

.....

فكرة منقولة

كود :

' تحديد السطر المكرر فقط باستثناء السطر الأصل

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

    Me.ListBox1.SelectionMode = SelectionMode.MultiSimple

    For i1 = 0 To Me.ListBox1.Items.Count - 2

        Dim t1 As String = Regex.Match(Me.ListBox1.Items(i1), "((\d)[0-9-]+\w+)").Value.Trim

        For i2 = i1 + 1 To Me.ListBox1.Items.Count - 1

            Dim t2 As String = Regex.Match(Me.ListBox1.Items(i2), "((\d)[0-9-]+\w+)").Value.Trim

            If t1 = t2 Then

                Me.ListBox1.SetSelected(i2, True)

                If Not Me.ListBox2.Items.Contains(t2) Then

                    Me.ListBox2.Items.Add(t2)

                End If

            End If

        Next

    Next

End Sub

.....

الف شكر هذا هو المطلوب Blush

اثابك الله وزادك علماً مميز يا vbnet Big Grin

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Motaz Alnuweiri

aftfm

vbnet

aftfm

aftfm