[Motaz Alnuweiri]

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

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

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

[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

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

[vbnet]

.....

فكرة منقولة

كود :

' تحديد السطر المكرر فقط باستثناء السطر الأصل
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

.....

[aftfm]

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

[aftfm]

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