get every other value of string array - arrays

Question

I am trying to populate a combo box with every other element of an array
the array contains data like this
(0) server
(0) sqlInstance
(1) server
(1) sqlInstance
(2) server
(2) sqlInstance
I want all sqlInstance values to be added to the combo box. Not sure how to do it other than maybe another array.
Thanks
Private Sub GetSQLServers()
Dim oSQLApp As New SQLDMO.Application
Dim oServerNames As SQLDMO.NameList
Dim strServer As String
Dim ServerArr() As String
oServerNames = oSQLApp.ListAvailableSQLServers()
For i = 0 To oServerNames.Count
strServer = (oServerNames(i))
ServerArr = strServer.Split("\")
txtSQLHost.Text = ServerArr(0)
For Each s As String In ServerArr
'value of server instance
cbxSQLServerNames.Items.Add(s)
Next
Next i
End Sub
This is working, I'm pretty sure it is not the best way
The combo box fills with sqlInstances only
The txtbox has the server
oServerNames is server\sqlInstance
Private Sub GetSQLServers()
Dim oSQLApp As New SQLDMO.Application
Dim oServerNames As SQLDMO.NameList
Dim strServer As String
Dim ServerArr() As String
Dim sn As Integer = 1
oServerNames = oSQLApp.ListAvailableSQLServers()
For i = 0 To oServerNames.Count
strServer = (oServerNames(i))
ServerArr = strServer.Split("\")
txtSQLHost.Text = ServerArr(0)
For Each s As String In ServerArr
'value of server instance
If ((sn Mod 2) = 0) Then
cbxSQLServerNames.Items.Add(s)
sn = sn + 1
Else
sn = sn + 1
End If
Next
Next i
End Sub
Using this now..
Thanks
Private Sub GetSQLServers()
Dim oSQLApp As New SQLDMO.Application
Dim oServerNames As SQLDMO.NameList
Dim strServer As String
Dim ServerArr() As String
oServerNames = oSQLApp.ListAvailableSQLServers()
For i = 0 To oServerNames.Count
strServer = (oServerNames(i))
ServerArr = strServer.Split("\")
txtSQLHost.Text = ServerArr(0)
For Each item In oServerNames
Dim parts = item.Split("\")
Dim instance = parts(1)
cbxSQLServerNames.Items.Add(instance)
Next
Next i
End Sub

Answer 1

Try this:
For i = 0 To oServerNames.Count - 1 Step 2
Dim serverInstance = oServerNames(i) & "\" & oServerNames(i + 1)
cbxSQLServerNames.Items.Add(serverInstance)
Next i
The Count - 1 because, if you are count 10 items, you are counting from 0 to 9.
After looking at the source of your question, you say the array looks likes this:
(0) server
(0) sqlInstance
(1) server
(1) sqlInstance
(2) server
(2) sqlInstance
This is not possible. There can not be multiple items with the same index. Something is missing here...
If the array look like this:
(0) server\sqlInstance
(1) server\sqlInstance
(2) server\sqlInstance
You can do that:
For Each item In oServerNames
Dim parts = item.Split("\")
dim instance = parts(1)
cbxSQLServerNames.Items.Add(instance)
Next