Pulling items out of an Array
If I have MyArray(100) and wanted to pull out all elements that begin with a particular letter, how would that be done?
Who is Participating?
This Function will return an ArrayList containing the elements starting with the searchParam variable
Private Function GetElements(ByVal searchParam As String) As ArrayList
Dim i As Integer
Dim al As New ArrayList
For i = 0 To MyArray.GetUpperBound(0)
If (CType(MyArray(i), String).StartsWith(searchP
al.Add(MyArray(i))
End If
Next
Return al
End Function
Private Function GetElements(ByVal searchParam As String) As ArrayList
Dim i As Integer
Dim al As New ArrayList
For i = 0 To MyArray.GetUpperBound(0)
If (CType(MyArray(i), String).StartsWith(searchP
al.Add(MyArray(i))
End If
Next
Return al
End Function
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
All Courses
From novice to tech pro — start learning today.
-
Course of the Month5 days, 14 hours left to enrollMonitoring and Operating a Private Cloud with System Center 2012 R2 273 lessons
Public Class Form1
Inherits System.Windows.Forms.Form
Private myArray() As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Put some test data in our array
Dim temp As String
temp = "cat,dog,elephant,cougar,c
myArray = Split(temp, ",")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim match As String
Dim matches As ArrayList = getEntries("c")
For Each match In matches
' do something with each match
Debug.WriteLine(match)
Next
End Sub
Private Function getEntries(ByVal beginningWith As String) As ArrayList
Dim entries As ArrayList = New ArrayList
Dim i As Integer
For i = 0 To myArray.GetUpperBound(0)
If myArray(i).StartsWith(begi
entries.Add(myArray(i))
End If
Next i
Return entries
End Function
End Class