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

(20-06-20, 05:13 PM)ابراهيم ايبو كتب :  السلام عليكم ورحمة الله وبركاته 
اخي محمد ماكتبته هو لائحة وليس مصفوفة وهي قريبة جدا منها لكن يوجد بعض الفروقات بين خصائص اللائحة والمصفوفة 
منها مثلا المصفوفة يحدد طولها عند التعريف  او تسند القيم بدون تحديد الطول بينما اللائحة لانحدد طولها
 كما ان المصفوفة عندما نحذف احد قيمها يبقى مكانها محجوزا بينما اللائحة فلا وهناك اختلافات اخرى تابع هذا الرابط للتعرف اكثر
https://www.youtube.com/watch?v=dMgAg9pW...&index=146
المهم انا لم افهم ماتريد بالضبظ وبخاصة ان عناصر اللائحة الثانية تحتوي على ("") دبل كوتيشن
ناحية اخرى من ناحية تعدد الشروط حيث تختلف عبارة And عن AndAlso حيث الاولى تتحقق من كل الشروط تم تعمل ان كانت true بينما الثانية تتحقق من من الشروط تباعا وعند اول قيمة false تتوقف 
هذا السطر ايضا مالذي تريد منه
Dim a As String = x.Remove(0, x.IndexOf(":"))
ارجو المزيد من الايضاح
قمت بترتيب مااوردته مع تغيير السطر السابق الى اخذ القسم الاول 
لا اعلم ان كانت النتيجة هي المطلوبة

كود :

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)

       For Each value As String In tmpLista
           For Each x As String In tmpListb
               Dim a As String = x.Split(":").First ' هنا تم تغيير السطر الى جلب القسم الاول
               If x.Contains(value) And a <> Nothing And a <> "Present" Then
                   tmpListc.Add(value + ":" + a)
                   TextBox1.Text += value + ":" + a & vbNewLine

               Else
                   tmpListc.Add(value)
                   TextBox1.Text += value & vbNewLine
               End If
           Next

       Next
   End Sub

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

- المثال صحيح الي وضعتة حضرتك من حيث البيانات .

- اسف علي خطأي بخصوص اللائحة بكتابتها مصفوفة .

- الكود دة  لغرض  Dim a As String = x.Remove(0, x.IndexOf(":"))   حذف الاسم واستخلاص الوصف    spare:Present

- بخصوص السؤال انا لم افهم ماتريد بالضبظ وبخاصة ان عناصر اللائحة الثانية تحتوي على ("") دبل كوتيشن؟

ج : هيا لازم الائحة الثانية يكون فيها نفس الاسم من اللائحة الاولي داخل الكوتيشن مارك  لائحة 2 "spare"   لائحة 1 spare اما قصدي بالوصف فهو ياتي بعد الكوتيشن لكل اسم مشابهة spare:Present   الوصف هنا Present  او فارغ او كود .

البيانات بعد تجربة الكود الخاص بحضرتك ظهرت بالشكل دة 

كود :

STARTONE:STARTONE
STARTONE:STARTONE
STARTONE
STARTONE
man
man
man
man
spare
spare
spare:spare
spare:spare

والمفروض تكون كدة 

 STARTONE    
   man
   spare : 22h5zgcw