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

السلام عليكم ورحمة الله وبركاتة 


لدي مصفوفتين :

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

PHP كود :

STARTONE
man
spare 


الثانية بالشكل دة ممكن تزيد ملهاش عدد عناصر محدد ايضا ولكن الشكل الثابت التالي 

PHP كود :

"STARTONE":Present
"STARTONE":
"spare":Present
"spare":22h5zgcw 


المطلوب دمج المصفوفتين بواحدة حيث الاتي :


المصفوفة رقم واحد الاولي اساس العلاقة .

1- تتم العملية بالبحث بالاسم الموجد بالمصفوفة الاولي عنة في المصفوفة الثانية حيث يراعي اذا لم يكن موجد بالثانية بيانات يتم اضافتة كما هو بالمصفوفة التي تدمج الاثنين معا .

2- اذا تم البحث عن الاسم في المصفوفة الاولي ووجد بالثانية يتم النظر للاتي اذا كانت صفتة بعد العلامة :  Present  او فارغ او لة كود 2215zzcw  هذة الصفات  متغير. 

-يتم التعامل معة كالاتي  اذا كان احد الصفتين بالمصفوفة التانية  الموجود لة Present  او فارغ  يعتبر في كلتاهما فارغ بمعني يضاف للمصفوفة المدمجة باسمة فقط من المصفوفة الاولي.

- اذا كان  بعد البحث بصفتة الموجدة بالمصففة الثانية الموجود لة Present  او فارغ  او كود 2215zzcw  يضاف للمصفوفة المدمجة باسمة + الكود .

تصبح اخير البيانات داخل المصفوفة المدمجة :


  STARTONE    
   man
   spare : 22h5zgcw


دة شكل المصفوفة 

PHP كود :

Dim tmpLista As New List(Of String)
    Dim tmpListb As New List(Of String)
Dim tmpListc As New List(Of String) 


دية طريقة المحاولة ولكن الفكرة فيها حاجة غلط عندي 
حاولت اعرضم بتيكست عشان اشوف النتيجة بس في غلط

PHP كود :

 For Each value As String In tmpLista
            For Each x As String In tmpListb
                Dim a As String = x.Remove(0, x.IndexOf(":"))
                If x.Contains(value) AndAlso a <> Nothing AndAlso a <> "Present" Then
                    tmpListc.Add(value + ":" + a)
                    'TextBox1.Text += value + ":" + a & vbNewLine

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

        Next