0

如果我有

Dim a As String() = ("One,Two").Split(",")

如何添加到该字符串?

4

2 回答 2

4

最简单的方法是将其转换为 List 然后添加。

Dim a As List(Of String) = ("One,Two").Split(",").ToList
a.Add("Three")

或者如果你真的想保留一个数组。

    Dim a As String() = ("One,Two").Split(",")
    Dim b as List(Of String) = a.ToList
    b.Add("Three")
    a=b.ToArray

这里有一些真正开箱即用的东西:

a = (String.Join(",", a) & ",Three").Split(",")
于 2012-07-10T20:59:23.300 回答
1

对于不同的方法,请尝试:

Dim a As String() = ("One,Two").Split(CChar(","))
Debug.Print(CStr(UBound(a)))
ReDim Preserve a(9)
Debug.Print(CStr(UBound(a)))

即时窗口的输出是:

1
9

注意:我不得不稍微改变你原来的行,因为我总是使用Option Strict On不允许隐式转换的。

于 2012-07-10T21:01:43.590 回答