【发布时间】:2012-07-10 20:50:53
【问题描述】:
如果我有
Dim a As String() = ("One,Two").Split(",")
如何添加到该字符串?
【问题讨论】:
如果我有
Dim a As String() = ("One,Two").Split(",")
如何添加到该字符串?
【问题讨论】:
最简单的方法是将其转换为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(",")
【讨论】:
对于不同的方法,请尝试:
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。
【讨论】: