Использование callbyname для проверки list.contains (x)

Question

Я пытаюсь использовать callbyname для записи общей функции, которая проверяет, содержит ли целевой список (targetListName) определенный элемент перед добавлением его в список. К сожалению, я не могу понять, как использовать .contains с callbyname. Цените любую помощь!

Это код, который я использую сейчас. Поставка и спрос - это оба списка (строки).

Public Sub addItem(ByVal item As String, ByVal targetListName As String) 
    Select Case targetListName.ToLower 
     Case "supply" 
      If supply.Contains(item) = False Then supply.Add(targetListName) 
     Case "demand" 
      If demand.Contains(item) = False Then supply.Add(targetListName) 
     Case Else 
      'bugcatch 
    End Select 
End Sub 

Я хотел бы идеально использовать что-то вроде этого, вместо:

Public Sub addItem(ByVal item As String, ByVal targetListName As String) 
    If CallByName(Me, targetListName, [Method]).Contains(item) = false Then 
     CallByName(Me, targetListName, [Set]).Add(item) 
    End If 
End Sub 

Answer 1

У вас может быть только словарь списков со строкой в ​​качестве ключа. Не уверен, что реальная польза от использования CallByName. Не могли бы вы подробнее рассказать о прецеденте и проблеме, которую вы пытаетесь решить?

Answer 2

К сожалению, функция CallByName не работает так. См http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.interaction.callbyname.aspx

Обходной может быть сделать это следующим образом:

Public Function getListByName(ByVal targetListName As String) As List(of Object) 
    Select Case targetListName.ToLower 
     Case "supply" 
      return supply 
     Case "demand" 
      return demand 
     Case Else 
      'bugcatch 
    End Select 
    return Nothing 
End Function 

Public Sub addItem(ByVal item As String, ByVal targetListName As String) 
    dim list As List(of Object) = GetListByName(targetListName) 
    If not list.Contains(item) Then 
     list.Add(item) 
    End If 
End Sub 

В качестве альтернативы вы можете использовать отражение, чтобы получить список:

Public Function getListByName(ByVal targetListName As String) As Object 
    dim field = Me.GetType().GetField(targetListName) 
    If field IsNot Nothing then 
     return field.GetValue(Me) 
    End If 
    return Nothing 
End Function 

Если возможно, я бы пойти с @ user2759880 предложение, если количество списков не меняется очень часто.