将 ReDim 用于未知大小的阵列



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

Dim o As Integer
Dim name() as string
Dim age() as integer
r = New System.IO.StreamReader("C:Usersfilesnames.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

你不需要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:Usersfilesnames.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是您必须创建的类,该类至少具有两个属性NameAge