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

newluodotnet 2004-04-30 08:16:57
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 中
其他信息:未将对象引用设置到对象的实例。
"
...全文
1755 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
chun79 2004-09-16
  • 打赏
  • 举报
回复
给楼主两点建议:
(1)、如果先读取文件的行数再定义数组下标,也可以。根据我的实践经验,这样并不浪费时间,速度也很快。关键看你获取文件行数的方法。
(2)、您也可以采用读取一行,就动态定义一次数组的方法。但是要注意,采用保留以前读到数据的方法扩展。不过,我怀疑反复扩展影响程序的效率。
ny_nicholas 2004-09-16
  • 打赏
  • 举报
回复
學習
chenhaohf 2004-09-15
  • 打赏
  • 举报
回复
用ArrayList
Visual_Studio_Net 2004-09-15
  • 打赏
  • 举报
回复
Dim x() as string
Redim x(100)
qhdzh 2004-09-15
  • 打赏
  • 举报
回复
关注
chenyu001 2004-05-05
  • 打赏
  • 举报
回复
Dim a() As String

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

数组就是这点了
Vsnetlx 2004-05-02
  • 打赏
  • 举报
回复
可以比较一下二种方式的执行效率,如果文件比较短,可先求出文件的行数再给数组赋一个初值应该是可行的
xDotNet 2004-05-01
  • 打赏
  • 举报
回复
要执行这个指定维数:redim x(n) 'n 是维数

第一次使用 dim x() 声明后的 x 对象为 nothing
Ninputer 2004-05-01
  • 打赏
  • 举报
回复
求出文件的行数也是非常慢的,最好不要这样。
用ArrayList的自动增长是一个可行的方式。但是ArrayList的填充和取出速度较慢。只有VB 2005的泛型才能解决问题
xing0091 2004-05-01
  • 打赏
  • 举报
回复
我想问一下,如果先求出文件的行数再重新定义数组
然后再导入数据,这样做的效率是不是很慢,或者如楼上所说的代价很大?
Ninputer 2004-04-30
  • 打赏
  • 举报
回复
楼上的代码代价无比的大,还是不要采用的好
Matthewzhong 2004-04-30
  • 打赏
  • 举报
回复
试试这样行不行

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 2004-04-30
  • 打赏
  • 举报
回复
你必须在使用前为数组分配内存
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

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧