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

اريد كود لاسناد قيم داخل المصفوفة من حلقة تكرارية واعادة البحث في القيم المسندة بالمصفوفة

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

 Dim myArray() As string
        Dim i As Integer
        For i = 0 To 20
            ReDim myArray(i & "bvs ")
        Next
        MsgBox(Array.IndexOf(myArray, "3"))

[a.ahmed]

PHP كود :

Dim myArray(0) As String
For i = 0 To 20
    ReDim Preserve myArray(i)
    myArray(i) = i & "bvs"
Next
MsgBox(myArray.Contains("3bvs")) 


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

(31-10-17, 08:58 PM)a.ahmed كتب :

PHP كود :

Dim myArray(0) As String
For i = 0 To 20
    ReDim Preserve myArray(i)
    myArray(i) = i & "bvs"
Next
MsgBox(myArray.Contains("3bvs"))

الكود يعطي خطا 

Error    1    'Contains' is not a member of 'System.Array'.    E: 


PHP كود :

الكود يعطي خطا 

Error    1    'Contains' is not a member of 'System.Array'.    E: 


[a.ahmed]

PHP كود :

MsgBox(Array.IndexOf(myArray, "3bvs")) 


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

(31-10-17, 09:16 PM)a.ahmed كتب :

PHP كود :

MsgBox(Array.IndexOf(myArray, "3bvs")) 


الكود اشتغل معايا في جزء بسيط اريد لو بحثت بالرقم 3 او 2  او اي عدد  يظهر قيمة المتغير كاملا  

لو 3 =  3 bvs
لو 2 =  2 bvs

لو 1  =  bvs1

مع الاعتبار ان هناك مسافة بين الرقم والمتغير النصي

[a.ahmed]

PHP كود :

Dim myArray(0) As String
For i = 0 To 20
    ReDim Preserve myArray(i)
    myArray(i) = i & Space(1) & "bvs"
Next

Dim q = (From x In myArray Where x.Contains(3 & Space(1)) Select x).FirstOrDefault

MsgBox(q) 


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

(31-10-17, 09:35 PM)a.ahmed كتب :

PHP كود :

Dim myArray(0) As String
For i = 0 To 20
    ReDim Preserve myArray(i)
    myArray(i) = i & Space(1) & "bvs"
Next

Dim q = (From x In myArray Where x.Contains(3 & Space(1)) Select x).FirstOrDefault

MsgBox(q) 


خطاء

Error    1    Expression of type '1-dimensional array of String' is not queryable. Make sure you are not missing an assembly reference and/o

r namespace import for the LINQ provider.    E: 94    28    WindowsApplication1

[a.ahmed]

PHP كود :

Dim myArray(0) As String
For i = 0 To 20
    ReDim Preserve myArray(i)
    myArray(i) = i & Space(1) & "bvs"
Next

For i = 0 To myArray.Length - 1
    If myArray(i).StartsWith(3 & Space(1)) Then MsgBox(myArray(i))
Next 


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

(31-10-17, 09:49 PM)a.ahmed كتب :

PHP كود :

Dim myArray(0) As String
For i = 0 To 20
    ReDim Preserve myArray(i)
    myArray(i) = i & Space(1) & "bvs"
Next

For i = 0 To myArray.Length - 1
    If myArray(i).StartsWith(3 & Space(1)) Then MsgBox(myArray(i))
Next 


جزاك اللة الف خير

 وحفظ اللة والديك

[a.ahmed]

اللة
الله