| 查看: 1166 | 回复: 13 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
huzijun888铜虫 (小有名气)
|
[求助]
VB文件读取的问题！！！急
|
|
|
我有一个TXT文件想用VB编个小程序来处理一下，请问在VB里如何把这个data.txt读入，并且每行数据分别赋值给a(i,i) a(i,2) a(i,3)直至文件中的数据被读取完。下面是我的思路，被提示下标越界，求指点！！！ Private Sub Command1_Click() Dim a() As Single, i As Long i = 1 Open "data.txt" For Input As #1 Do While Not EOF(1) Input #1, a(i, 1), a(i, 2), a(i, 3) i = i + 1 Loop Close #1 End Sub  未命名.jpg |
回复此楼» 猜你喜欢
假如你的研究生提出不合理要求
已经有3人回复
-
所感
已经有3人回复
-
要不要辞职读博？
已经有7人回复
-
不自信的我
已经有11人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有10人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有26人回复
chelator
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 4446.5
- 红花: 2
- 帖子: 284
- 在线: 76.4小时
- 虫号: 973752
- 注册: 2010-03-17
- 性别: GG
- 专业: 化学信息学
13楼2013-04-11 09:33:57
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢参与 2013-04-07 01:49:33
huzijun888: 金币+6, ★★★★★最佳答案, 非常感谢，耐心解答 2013-04-07 19:59:13
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢参与 2013-04-07 01:49:33
huzijun888: 金币+6, ★★★★★最佳答案, 非常感谢，耐心解答 2013-04-07 19:59:13
|
你的用法涉及2个错误: 1.二维数组定义,必须用逗号分隔2个维度,例如Dim a(,) as Single,如果没有逗号Dim a() as Single声明的是一维数组 2.动态数组定义后,在长度不够时,需要Redim来扩容(vb如果是扩大数组,原来的数据不会丢失) 因此,你需要做的是,重新定义a为二维数组,并且在循环中不停redim a(length_of_a+1,1 to 3) |
2楼2013-04-06 21:59:05
huzijun888
铜虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 5769.2
- 散金: 200
- 红花: 2
- 帖子: 184
- 在线: 62.2小时
- 虫号: 1487784
- 注册: 2011-11-12
- 性别: GG
- 专业: 水力学与水信息学
3楼2013-04-07 10:22:50
chelator
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 4446.5
- 红花: 2
- 帖子: 284
- 在线: 76.4小时
- 虫号: 973752
- 注册: 2010-03-17
- 性别: GG
- 专业: 化学信息学
【答案】应助回帖
感谢参与，应助指数 +1
|
你用的是什么VB，若是VB6 Preserve只能增加最后一维空间 ReDim Preserve a(3, i) 建议先计算行数 dim LineNum As Long dim TextLine as String LineNum = 0 Open "data.txt" For Input As #1 Do While Not EOF(1) LineInput #1, TextLine LineNum =LineNum + 1 Loop Close #1 再申请数组 Redim A(LineNum，3) Open "data.txt" For Input As #1 Do While Not EOF(1) Input #1, a(i, 1), a(i, 2), a(i, 3) i = i + 1 Loop Close #1 另VB.NET 才使用二维数组定义 |
4楼2013-04-07 11:58:11