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 中
其他信息:未将对象引用设置到对象的实例。
"
...全文
1600 13 点赞 打赏 收藏 举报
写回复
13 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chun79 2004-09-16
给楼主两点建议:
(1)、如果先读取文件的行数再定义数组下标,也可以。根据我的实践经验,这样并不浪费时间,速度也很快。关键看你获取文件行数的方法。
(2)、您也可以采用读取一行,就动态定义一次数组的方法。但是要注意,采用保留以前读到数据的方法扩展。不过,我怀疑反复扩展影响程序的效率。
  • 打赏
  • 举报
回复
ny_nicholas 2004-09-16
學習
  • 打赏
  • 举报
回复
chenhaohf 2004-09-15
用ArrayList
  • 打赏
  • 举报
回复
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
  • 打赏
  • 举报
回复
相关推荐
发帖
VB
加入

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2004-04-30 08:16
社区公告
暂无公告