vb.net动态数组如何使用?

[newluodotnet]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr As IO.StreamReader
Dim x() As String
Dim i As Integer = 0
sr = IO.File.OpenText("c:\a.txt")
While sr.Peek <> -1
x(i) = sr.ReadLine()
i = i + 1
End While
sr.Close()
MsgBox(x(0)) '显行第第1行的内容
End Sub


我想把"a.txt"中的每一行内容读到数组x中,
运行时出错"
未处理的“System.NullReferenceException”类型的异常出现在 WindowsApplication16.exe 中
其他信息：未将对象引用设置到对象的实例。
"

[Ninputer]

你必须在使用前为数组分配内存
Dim x() As String

ReDim x(100) '重新指定大小
ReDim Preserve x(200) '重新指定大小，并保留数据

如果你不知道要放多少数据，那么不要用数组，使用ArrayList

Dim al As System.Collection.ArrayList

'....

Do Until sr.Peek = -1
al.Add(sr.ReadLine())
i += 1
Loop

• 打赏
• 举报

回复 赞

[Matthewzhong]

试试这样行不行

Dim sr As IO.StreamReader
Dim x(0) As String
Dim i As Integer
sr = IO.File.OpenText("c:\a.txt")
While sr.Peek <> -1
x(GetUpperBound(0)) = sr.ReadLine()
ReDim Preserve x(x.GetUpperBound(0) + 1)
End While
ReDim Preserve x(x.GetUpperBound(0) - 1)
sr.Close()
MsgBox(x(0)) '显行第第1行的内容

• 打赏
• 举报

回复 赞

[Ninputer]

楼上的代码代价无比的大，还是不要采用的好

• 打赏
• 举报

回复 赞

[xing0091]

我想问一下，如果先求出文件的行数再重新定义数组
然后再导入数据，这样做的效率是不是很慢，或者如楼上所说的代价很大？

• 打赏
• 举报

回复 赞

[Ninputer]

求出文件的行数也是非常慢的，最好不要这样。
用ArrayList的自动增长是一个可行的方式。但是ArrayList的填充和取出速度较慢。只有VB 2005的泛型才能解决问题

• 打赏
• 举报

回复 赞

[xDotNet]

要执行这个指定维数：redim x(n) 'n 是维数

第一次使用 dim x() 声明后的 x 对象为 nothing

• 打赏
• 举报

回复 赞

[Vsnetlx]

可以比较一下二种方式的执行效率，如果文件比较短，可先求出文件的行数再给数组赋一个初值应该是可行的

• 打赏
• 举报

回复 赞

[chenyu001]

Dim a() As String

ReDim a(100) '重新指定大小
ReDim Preserve a(200) '重新指定

数组就是这点了

• 打赏
• 举报

回复 赞

[qhdzh]

关注

• 打赏
• 举报

回复 赞

[Visual_Studio_Net]

Dim x() as string
Redim x(100)

• 打赏
• 举报

回复 赞

[chenhaohf]

用ArrayList

• 打赏
• 举报

回复 赞

[ny_nicholas]

學習

• 打赏
• 举报

回复 赞

[chun79]

给楼主两点建议：
（1）、如果先读取文件的行数再定义数组下标，也可以。根据我的实践经验，这样并不浪费时间，速度也很快。关键看你获取文件行数的方法。
（2）、您也可以采用读取一行，就动态定义一次数组的方法。但是要注意，采用保留以前读到数据的方法扩展。不过，我怀疑反复扩展影响程序的效率。

• 打赏
• 举报

回复 赞