如何将一个值追加到数组中的每一行(How to append a value to each row

正如标题所暗示的，你可以在阵列中的每一行挂值？ 比方说，我有有三个元素的数组。 每个元素（行）是由细胞中的下面的制备形成：

home, host, share

2（因为阵列中的部分0）总细胞=。 您可以将最后一个单元格，然后共享后，随意的值？ 这显然对数组的每一行。 在这样的方式有，例如：

line [0] => home, host, share, 3
line [1] => home, host, share, 3
line [2] => home, host, share, 3

你怎么能这样做呢？ 我要澄清的是阵列如此记载：

Dim array As New List(Of String)

我不希望现在有与该是一个int最后一个值没有问题...

Answer 1:

*有比这更好的办法......看到Plutonix例如答案。

你可以把它添加到年底就好了，但INT将被转换为字符串 ：

    Dim data As New List(Of String)
    data.Add("home1, host1, share1")
    data.Add("home2, host2, share2")
    data.Add("home3, host3, share3")

    For i As Integer = 0 To data.Count - 1
        data(i) = data(i) & ", " & i.ToString
    Next

    For Each entry As String In data
        Debug.Print(entry)
    Next

这将会是你来将其转换回一个int，当你分割的字符串到其未来的不同部分。

Answer 2:

如果你使用了正确的字词时，您的问题会更清晰。 有人问了这么多问题，他们张贴的答案之前，以确保您的数据表确实是一个System.Data.DataTable或者如果你的阵列是一个真正的数组。 在这种情况下不使用阵列（比作为变量名等）。 这是一个List(of String)或更一般的集合。

作为一个List(Of String)你不能“挂”或整数追加到它。 但你可以改变它持有类相关数据：

Class Foo               '  no idea what these are
    Public Property Home As String
    Public Property Host As String
    Public Property Share As String
    Public Property Value As Integer

End Class

Private myThings As New List(of Foo)

' add one thing:
Dim f As New Foo
f.Home  = ...
f.Host  = ...
f.Share = ...
f.Value = 3
myThings.Add(f)

现在，所有的4个数据项位于myThings(0) 为了让他们回来：

Console.WriteLine(myThings(0).Home)

有许多方法以折叠上面的代码。 这是因为它是用于说明目的。

---

myThings.Add(New Foo  With {.Home ="here", .Host="ziggy",
                          .Share="none", .Value=3})

myThings.Add(New Foo  With {.Home ="there", .Host="zoey",
                            .Share="all", .Value=5})

myThings(0)是在齐格记录， mytThings(1)是Zoey的记录。 你也可以使用一个构造函数的类（ Sub New ）接受指定参数和使其不那么罗嗦::

 ' requires a Sub New to assign the vars!
 myThings.Add(New Foo ("there", "zoey", "all", 5))

文章来源: How to append a value to each row of the array