vb.net - リストをメソッドに渡し、値に対してループします

Question

厳密に型指定されたクラス コレクション List を関数に渡し、そのクラス コレクションのプロパティをループして、それらのプロパティ値の文字列に無効な XML 文字が含まれていないかどうかを確認する必要があります。上記のシナリオを実行する方法のサンプルを教えてください。

Answer 1

これを行うには多くの方法があります

オブジェクトのリストを使用するか、</p>

Dim T As List(Of mClass) = New List(Of mClass)
MyFunction(T)

Dim T2 As List(Of mClass2) = New List(Of mClass2)
MyFunction(T2)


Private Sub MyFunction(ByVal myList As List(Of Object))
    For Each MyCls In myList
        If TypeOf MyCls Is mClass Then
            Dim cInst As mClass = DirectCast(MyCls, mClass)
            cInst.P = 
        ElseIf TypeOf MyCls Is mClass2 Then
            Dim cInst As mClass2 = DirectCast(MyCls, mClass2)
            cInst.A = 
        End If
    Next
End Sub

または、リストをオブジェクトとして渡すだけです-

Dim T As List(Of mClass) = New List(Of mClass)
MyFunction(T)

Dim T2 As List(Of mClass2) = New List(Of mClass2)
MyFunction(T2)


Private Sub MyFunction(ByVal myList As Object)
    If TypeOf myList Is List(Of mClass) Then
        Dim cInst As List(Of mClass) = DirectCast(myList, List(Of mClass))
        For Each MyCls As mClass In cInst
            MyCls.P = 
        Next
    ElseIf TypeOf myList Is List(Of mClass2) Then
        Dim cInst As List(Of mClass2) = DirectCast(myList, List(Of mClass2))
        For Each MyCls As mClass2 In cInst
            MyCls.A = 
        Next
    End If
End Sub

これが役立つもう1つのこと 必要に応じて、Paraの変数データ型を定義できます

Dim T As Integer
Dim T2 As String
MyFunction(Of Integer)(T)
MyFunction(Of String)(T2)

Private Sub MyFunction(Of AnyNameForType)(ByVal myList As AnyNameForType)

End Sub

Answer 2

Dim T As List(Of mClass) = New List(Of mClass)
myfunction(T)


Private Function MyFunction(ByVal myList As List(Of mClass))
    For Each MyCls As mClass In myList
        MyCls.mProperty = 
    Next
End Function