如何在vb.net中將項目添加到空字符串數組

Question

在下面的代碼中，我從com接口對象獲取一個主體列表作為一個對象。 我想將它們添加到我的字符串數組中，然后計划進行比較。 但是我不知道如何將它們添加到列表中。

Option Strict On
Option Explicit On
Imports simpackcomslvLib

Public Class TestClass

    Public Shared Sub Method1()
        Dim listBodyA As ScrNamedObjectList = Globals.SpckModel.getBodyList(False)
        Dim listBodyB As IScrNamedObjectList = Globals.Server.Spck.openModel("C:\Users\USER\Desktop\TestModels\main_model\MN_SIMPACK_demo1.spck").getBodyList(False)

        Dim A() As String
        Dim B() As String


        For i As Integer = 0 To listBodyA.count - 1
            A = A.Concat({listBodyA.item(i).name.ToString}).ToArray
        Next

        WriteMessage("A elements not in B: " + String.Join(", ", A.Except(B)))
        WriteMessage("B elements not in A: " + String.Join(", ", B.Except(A)))
        WriteMessage("Elements in both A & B: " + String.Join(", ", A.Intersect(B))

    End Sub

這是我試圖獲取對象的每個項目以添加字符串數組的代碼，但是它不起作用。

  For i As Integer = 0 To listBodyA.count - 1
        A = A.Concat({listBodyA.item(i).name.ToString}).ToArray
    Next

Answer 1

您可以使用此代碼從兩個列表中提取屬性名稱

Dim A() As String = listBodyA.Select(Function (v) v.Name).ToArray()
Dim B() As String = listBodyB.Select(Function (v) v.Name).ToArray()

這將返回一個包含兩個列表中所有Name值的數組，並且您不需要事先知道要存儲在兩個數組中的項目數，因為它的最終目標數組是由ToArray實例化方法自動創建的