VB.NET 多次添加字符串数据，再转换成一个数组

在 VB.NET 中多次添加字符串数据并转换为数组，有几种常见的方法。以下是几种实现方式：

方法1：使用 List(Of String)（推荐）vb.net

' 创建字符串列表
Dim stringList As New List(Of String)()' 多次添加字符串数据
stringList.Add("字符串1")
stringList.Add("字符串2")
stringList.Add("字符串3")
stringList.Add("字符串4")' 转换为数组
Dim stringArray As String() = stringList.ToArray()' 验证结果
For Each str As String In stringArrayConsole.WriteLine(str)
Next

方法2：使用 ArrayList（较旧的方法）

' 创建ArrayList
Dim arrayList As New ArrayList()' 添加字符串
arrayList.Add("数据1")
arrayList.Add("数据2")
arrayList.Add("数据3")' 转换为字符串数组
Dim stringArray As String() = DirectCast(arrayList.ToArray(GetType(String)), String())

方法3：使用数组并重新调整大小

' 初始化数组
Dim stringArray As String() = {}' 多次添加数据
Array.Resize(stringArray, stringArray.Length + 1)
stringArray(stringArray.Length - 1) = "第一个字符串"Array.Resize(stringArray, stringArray.Length + 1)
stringArray(stringArray.Length - 1) = "第二个字符串"Array.Resize(stringArray, stringArray.Length + 1)
stringArray(stringArray.Length - 1) = "第三个字符串"

方法4：使用集合初始值设定项

' 使用集合初始值设定项一次性添加多个字符串
Dim stringList As New List(Of String) From {"苹果","香蕉","橙子","葡萄"
}' 转换为数组
Dim fruitsArray As String() = stringList.ToArray()

方法5：在循环中添加数据

' 创建列表
Dim numbersList As New List(Of String)()' 在循环中添加数据
For i As Integer = 1 To 10numbersList.Add("项目 " & i.ToString())
Next' 转换为数组
Dim numbersArray As String() = numbersList.ToArray()

完整示例

Imports System
Imports System.Collections.GenericModule ProgramSub Main()' 方法1：使用List(Of String)Dim namesList As New List(Of String)()namesList.Add("张三")namesList.Add("李四")namesList.Add("王五")Dim namesArray As String() = namesList.ToArray()Console.WriteLine("数组内容：")For Each name As String In namesArrayConsole.WriteLine(name)NextConsole.WriteLine("数组长度: " & namesArray.Length)End Sub
End Module

推荐建议

• 推荐使用 List(Of String)：这是最现代、最高效的方法，提供了灵活的添加、删除和转换功能

• 性能考虑：List(Of T) 在内部使用数组，但会自动处理大小调整，比手动调整数组大小更高效

• 类型安全：List(Of String) 提供编译时类型检查，而 ArrayList 需要类型转换

选择哪种方法取决于你的具体需求，但对于大多数情况，使用 List(Of String) 然后调用 .ToArray() 是最佳选择。