+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] حفظ عناصر المصفوفة (/showthread.php?tid=22341)
الصفحات:
1
2
حفظ عناصر المصفوفة - محمد اسماعيل - 31-10-17
اريد كود لاسناد قيم داخل المصفوفة من حلقة تكرارية واعادة البحث في القيم المسندة بالمصفوفة
انا حاولت بالكود دة ولا يعمل
Dim myArray() As string
Dim i As Integer
For i = 0 To 20
ReDim myArray(i & "bvs ")
Next
MsgBox(Array.IndexOf(myArray, "3"))
RE: حفظ عناصر المصفوفة - a.ahmed - 31-10-17
PHP كود :
Dim myArray(0) As String
For i = 0 To 20
ReDim Preserve myArray(i)
myArray(i) = i & "bvs"
Next
MsgBox(myArray.Contains("3bvs"))
RE: حفظ عناصر المصفوفة - محمد اسماعيل - 31-10-17
(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:
RE: حفظ عناصر المصفوفة - a.ahmed - 31-10-17
PHP كود :
MsgBox(Array.IndexOf(myArray, "3bvs"))
RE: حفظ عناصر المصفوفة - محمد اسماعيل - 31-10-17
(31-10-17, 09:16 PM)a.ahmed كتب :PHP كود :
MsgBox(Array.IndexOf(myArray, "3bvs"))
الكود اشتغل معايا في جزء بسيط اريد لو بحثت بالرقم 3 او 2 او اي عدد يظهر قيمة المتغير كاملا
لو 3 = 3 bvs
لو 2 = 2 bvs
لو 1 = bvs1
مع الاعتبار ان هناك مسافة بين الرقم والمتغير النصي
RE: حفظ عناصر المصفوفة - a.ahmed - 31-10-17
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)
RE: حفظ عناصر المصفوفة - محمد اسماعيل - 31-10-17
(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
RE: حفظ عناصر المصفوفة - a.ahmed - 31-10-17
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
RE: حفظ عناصر المصفوفة - محمد اسماعيل - 31-10-17
(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
جزاك اللة الف خير
وحفظ اللة والديك
RE: حفظ عناصر المصفوفة - a.ahmed - 31-10-17
الله