PDA

View Full Version : سوال: جستجوی عنصر آرایه یک بعدی در بعد اول آرایه دو بعدی



setareh69
سه شنبه 22 آذر 1390, 23:56 عصر
سلام خسته نباشید
چطوری می تونیم عنصری در آرایه یک بعدی را در بعد اول آرایه دو بعدی جستجو کنیم؟؟
ممنون

farhadt
چهارشنبه 23 آذر 1390, 02:09 صبح
سلام خسته نباشید
چطوری می تونیم عنصری در آرایه یک بعدی را در بعد اول آرایه دو بعدی جستجو کنیم؟؟
ممنون

بسته به تعریف آرایه دو تا راه داره:

1- Dim arrInt(1, 5) As Integer
For indx As Integer = 0 To arrInt.GetUpperBound(0)
If arrInt(0, indx) = "Search Phrase" Then
'Result is arrInt(0,indx)
End If
Next

2- Dim arrInt(1)()
ReDim arrInt(0)(5)
ReDim arrInt(1)(5)
Dim indx As Integer = Array.IndexOf(arrInt(0), "Search Phrase")
'Result is arrInt(0)(indx)

setareh69
پنج شنبه 24 آذر 1390, 01:06 صبح
ممنون
من 2 آرایه دارم یکی یک بعدی و دیگری 2 بعدی است که یکسری عناصری که در ارایه اول هست در دومی تکرار شده میخوام عنصری از ارایه اول(یک بعدی) را که در ارایه دوم(دو بعدی) هست جستجو کنم. این کد برای این منظور استفاده می شود؟؟

farhadt
پنج شنبه 24 آذر 1390, 12:13 عصر
ممنون
من 2 آرایه دارم یکی یک بعدی و دیگری 2 بعدی است که یکسری عناصری که در ارایه اول هست در دومی تکرار شده میخوام عنصری از ارایه اول(یک بعدی) را که در ارایه دوم(دو بعدی) هست جستجو کنم. این کد برای این منظور استفاده می شود؟؟


Dim arrInt1(4) As Integer '1D
Dim arrInt2(3, 5) As Integer '2D
For k As Integer = 0 To arrInt1.Length - 1
'''''''''''Start - For Search in 2D Array
For i As Integer = 0 To arrInt2.GetUpperBound(0)
For j As Integer = 0 To arrInt2.GetUpperBound(1)
If arrInt2(i, j) = arrInt1(k) Then
'Result is arrInt(i,j) End IfNext
End If
Next
Next
''''''''''End - For Search in 2D Array
Next
End Sub

setareh69
پنج شنبه 24 آذر 1390, 23:58 عصر
واقعا ممنون . :تشویق:
خيلي لطف كرديد.
موفق باشيد.