| 查看: 1502 | 回复: 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 |
回复此楼» 收录本帖的淘帖专辑推荐
 柴米油盐酱醋茶 |
» 猜你喜欢
2026国自然函评费到账
已经有17人回复
-
让我中一个面上吧！
已经有15人回复
-
2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战
已经有5人回复
-
跳槽后在研项目怎么办？
已经有10人回复
-
什么时候开奖？
已经有10人回复
-
今天放榜吗？
已经有16人回复
-
93BebMhtakh前后11位开头都是大写
已经有8人回复
-
范进中举一文的中心思想
已经有4人回复
-
只有每年这种时候来逛逛小木虫
已经有26人回复
-
filecode，4个jtjc了
已经有16人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 200多个txt文件matlab读取问题
已经有18人回复
- 求助 Matlab 读取图上数据点 Data Cursor 显示数据问题
已经有6人回复
- srtm的tif数据读取问题！急！
已经有11人回复
- matlab读取图像的问题
已经有12人回复
- VB与solidworks代码问题
已经有3人回复
- 关于matlab中循环读取多个excel文件的问题？
已经有3人回复
- 关于ACCESS的一个简单问题
已经有7人回复
- 关于jade 5.0读取外部文件总出现invalid stepping angle问题的求助
已经有7人回复
- 一个VB工程的问题
已经有5人回复
- 请教一个matlab或者vb用对数显示数据的问题
已经有6人回复
- .net+ArcEngine“尝试读取或写入受保护的内存”错误该如何处理
已经有7人回复
- 【求助】vb.net中调用外部程序的问题
已经有3人回复
- 【求助】CListCtrl列表框中数据保存，读取问题？（楼主取消）
已经有5人回复
- 【求助】VB问题
已经有5人回复
- 【求助】vasp LDA+U 读取出错问题
已经有5人回复
- 【求助】VB如何读取txt文件~~
已经有12人回复
- 急！！！为什么JADE打不开我的实验数据？？
已经有15人回复
chelator
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 4446.5
- 红花: 2
- 帖子: 284
- 在线: 76.4小时
- 虫号: 973752
- 注册: 2010-03-17
- 性别: GG
- 专业: 化学信息学
huzijun8889楼2013-04-10 11:41:14
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
