VB.NET怎么实现递增添加字符串

[hlyao668]

比如数组AA中已经有的内容:
...

98
75
43
数据1
数据2
数据3
4400
5589
2256

1921

...
现在我想每按一次按钮就递增添加一条内容如(数据4)
注:前面的内容是已经有的,不能改变顺序,不能删除多余项,只要递增添加有相同内容的项

[threenewbee]

用正则表达式取数字，然后+1

[hlyao668]

引用 2 楼 caozhy 的回复:

dim num = Val(Regex.Match(字符串, "\d+").Value) num = num + 1 MsgBox (字符串.Replace(num.ToString(), "") + num.ToString())

版主能否给出详细的代码,正则表达式我不熟悉,请赐教,谢谢

[threenewbee]

dim num = Val(Regex.Match(字符串, "\d+").Value) num = num + 1 MsgBox (字符串.Replace(num.ToString(), "") + num.ToString())

[hlyao668]

还有人有别的办法吗

[qbilbo]

 '传统VB方法
Dim AA() As String = {"A1", "A2", "A3"}
ReDim Preserve AA(UBound(AA) + 1)
AA(UBound(AA)) = "A4"
Console.WriteLine(String.Join(",", AA))

 'VB.Net方法
Dim BB As List(Of String) = {"B1", "B2", "B3"}.ToList()
BB.Add("B4")
Console.WriteLine(String.Join(",", BB))

[楚狂歌]

用stringbuilder应该比较省资源

[proThickness]

Dim group As New List(Of String)
group.Add("数组4")

这样？