[محمد اسماعيل]

(20-06-20, 11:49 PM)ابراهيم ايبو كتب : السلام عليكم اخي محمد
بالرغم من عدم فهمي لمت تريد تماما ولكن اليك الكود مع الانتباه بأن النتيجة ستكون بهذا الشكل لانه سيتحقق من العناصر كلها

كود :

STARTONE
man
spare:22h5zgcw
spare

وليس كما اسلفت انت 

كود :

STARTONE
man
spare:22h5zgcw

والكود اصبح هكذا

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim tmpLista As New List(Of String)
       tmpLista.add("STARTONE")
       tmpLista.add("man")
       tmpLista.add("spare")
       Dim tmpListb As New List(Of String)

       tmpListb.Add("STARTONE:Present")
       tmpListb.Add("STARTONE:")
       tmpListb.Add("spare:Present")
       tmpListb.Add("spare:22h5zgcw")

       Dim tmpListc As New List(Of String)
       Dim a As String = ""
       For Each valu As String In tmpLista
           For Each x As String In tmpListb
               a = x.Split(":").Last '   جلب القسم الاخير
               If x.Contains(valu) And a <> Nothing And a <> "Present" Then
                   tmpListc.Add(valu + ":" + a)
                   TextBox1.Text += valu + ":" + a & vbNewLine
               End If
           Next
           If a <> valu Then
               tmpListc.Add(valu)
               TextBox1.Text += valu & vbNewLine
           End If
       Next
   End Sub

بشكر حضرتك علي المتابعة 

- بخصوص شرح المطلوب هوا معقد شوية لانة مش دة كل شيء البيانات بتيجي من اكتر من ملف  وكل بيان لة شكل بخصوص كتابتة للاسم مختلف بس لازم يكون موجود الاسم.

- وانا صراحة اول مرة يتطلب مني تجميع بيانات فيها كمية الطلبات دية بس انا عشان أسهل الطلب بالموقع هنا  وضعت وصف بسيط للجزء الي بيظهر فية خطأ معايا.

- بالنسبة للنتيجة الاخير جيدة جدا اقدر احذف الي مش محتاجة من اللائحة الاخير التجميعية . 

وجزاكم الله خيرا عما قدمت .