VB.NET

VB.NET RSS

VB.net search ArrayList

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Mar 2008

Posts: 26

Reputation: TheFueley is an unknown quantity at this point

Solved Threads: 0

TheFueley

Offline

Light Poster

VB.net search ArrayList

Jun 14th, 2009

How do you guys recommend searching an ArrayList for a specific string? My arraylist is defined as:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Public Shared VisioSwitchArray As New ArrayList()
 
    Public Structure switch
        Public HOSTNAME As String
        Public IP As String
        Public MODEL As String
        Public VLANS As String
        Public NEIs() As neighbor
    End Structure
 
    Public Structure neighbor
        Public IFACE As String
        Public DIST_IP As String
        Public DIST_IFACE As String
    End Structure
Public Shared VisioSwitchArray As New ArrayList()

    Public Structure switch
        Public HOSTNAME As String
        Public IP As String
        Public MODEL As String
        Public VLANS As String
        Public NEIs() As neighbor
    End Structure

    Public Structure neighbor
        Public IFACE As String
        Public DIST_IP As String
        Public DIST_IFACE As String
    End Structure

What I'm trying to compare is the IP string from the switch structure and the DIST_IP string from the neighbor structure. Problem is, using VisioSwitchArray.contains(some_ip_address) always returns false. I'm guessing it is searching for a matching switch object with in the list right?

Rivera

•

Join Date: Aug 2008

Posts: 710

Reputation: Teme64 will become famous soon enough

Solved Threads: 114

Teme64

Offline

Master Poster

Re: VB.net search ArrayList

Jun 14th, 2009

•

I'm guessing it is searching for a matching switch object with in the list right?

That's right.

You can't use Contains method in this case. You have to loop and cast to find the right value

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim i As Integer
 
For i = 0 To VisioSwitchArray.Count - 1
  If CType(VisioSwitchArray.Item(i), switch).IP = "10.0.0.2" Then
    ' Found
    Exit For
  End If
Next i
Dim i As Integer

For i = 0 To VisioSwitchArray.Count - 1
  If CType(VisioSwitchArray.Item(i), switch).IP = "10.0.0.2" Then
    ' Found
    Exit For
  End If
Next i