PDA

View Full Version : آرایه و جستجو



sayana
چهارشنبه 17 دی 1382, 15:36 عصر
قبل از این که بقیه دعوام کنن خودم اعتراف میکنم سوال های ساده و مسخره ای هستن ولی باور کنین در حال حاضر به هیچ منبعی دسترسی ندارم
سوال اول آیا میشه در ویژوال بیسیک آرایه داشت ؟ ( مثلا مثل آرایه در پاسکال )
سول دوم : برای جستجو در اطلاعات یک combo box یا list box از چه دستوری یا کدی استفاده میکنیم؟

( توضیح : مثلا برای نوشتن برنامه ای درباره اطلاعات پرسنلی کارمندان یک شرکت که در چند شهر شعبه دارد و این که بخواهیم نام یک کارمند را جستجو کنیم که در کدام شهر است )

چهارشنبه 17 دی 1382, 19:57 عصر
تعریف آرایه :


Dim A() As Integer
Dim B(,) As String
Dim C(,) As Integer = {{11, 12}, {21, 22}, {31, 32}}


دستور زیر شماره ایندکس ردیفی که متن مورد جستجو با آن برابر است را بر می گرداند:


Me.ListBox1.FindString("Text for search")
Me.ComboBox1.FindString("Text for search")

marandi
جمعه 19 دی 1382, 23:38 عصر
سلام
برای جستجو در آرایه ها می تونی از متود IndexOf موجود در زیر کلاس Array استفاده کنی.
روند کار اینگونه است :



Dim myArray() As String = {"shasa", "marandi", "application", "software", "XML Base", "Win32"}
Dim myResultIndex As Integer = Array.IndexOf(myArray, "Win32")

Select Case myResultIndex
Case Is = -1
Debug.WriteLine("item not exist.")
Case Else
Debug.WriteLine("item " & myArray(myResultIndex) & " is exist.")
End Select



امیدوارم این مطلب هم کمکت کنه. در ضمن می تونی از array.LastIndexOf نیز استفاده کنی (جستجوی معکوس)

sayana
شنبه 20 دی 1382, 15:40 عصر
دستتون درد نکنه . ممنون :)