对未知大小的数组使用 ReDim

Question

我目前正在读取文件数据并将其拆分为 2 个数组（名称和年龄）。我将它们都创建为未知大小的数组。这是因为我可能会在我的数据文件中添加行，但如果我以这种方式使它们变暗（例如 name()），则会发生错误。但是我不确定在这种情况下如何使用 ReDim。

Dim o As Integer
Dim name() as string
Dim age() as integer

r = New System.IO.StreamReader("C:\Users\files\names.txt")
While r.Peek() <> -1
    v = r.ReadLine()
    temperary = v.Split(".")
    name(o) = temp(0)
    age(o) = temp(1)
    o = o + 1
End While
r.Close()
Catch ex As Exception
    Me.Close()
End Try

Answer 1

你不需要ReDim，使用List(Of String)，如果你最终需要一个数组，使用ToArray：

Dim names As New List(Of String)
Dim ages As New List(Of String)
r = New System.IO.StreamReader("C:\Users\files\names.txt")

While r.Peek() <> -1
    v = r.ReadLine()
    temp = v.Split(".")
    names.Add(temp(0))
    ages.Add(temp(1))
    o = o + 1
End While
' if you need arrays use names.ToArray() and/or ages.ToArray()

但我会使用List(Of User) 而不是User 是一个你必须创建的类，它至少有两个属性Name 和Age。