搜索自定義數據類以獲得結果

Question

我已經構建了一個自定義數據類來存儲IP地址詳細信息。

 Public Class IPAddressDataItem 

     Private _ID As Integer 
     Private _IP As String 
     Private _Name As String 

     Public Property ID() As Integer 
      Get 
       Return _ID 
      End Get 
      Set(ByVal value As Integer) 
       _ID = value 
      End Set 
     End Property 
     Public Property IP() As String 
      Get 
       Return _IP 
      End Get 
      Set(ByVal value As String) 
       _IP = value 
      End Set 
     End Property 
     Public Property Name() As String 
      Get 
       Return _Name 
      End Get 
      Set(ByVal value As String) 
       _Name = value 
      End Set 
     End Property\ 

     Public Sub New(ByVal id As Integer, ByVal ip As String, ByVal name As String) 
      _ID = id 
      _IP = ip 
      _Name = name 
     End Sub 

    End Class 

我想知道如何做的是搜索它的具體數據。

示例..我發送一個IP地址，它會將名稱返回給我。

有誰知道我會怎麼做？

Answer 1

首先，你需要把對象放在一個集合中。要做到這一點，你需要選擇一個數據結構（列表，ArrayList的，等等）

Dim Items as List(Of IPAddressDataItem) 

然後，您可以通過收集迭代，查找基於搜索條件的項目，並返回所需的數據。

Function GetName(ByVal IP As String) As String 
    For Each Item As IPAddressDataItem In Items 
     If Item.IP.CompareTo(IP) = 0 Then 
      Return Item.Name 
     End If 
    Next 
End Function 

現在，如果你有一個對象的實例，你可以直接訪問屬性。