| 查看: 1191 | 回复: 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 |
回复此楼» 收录本帖的淘帖专辑推荐
 柴米油盐酱醋茶 |
» 猜你喜欢
存款400万可以在学校里躺平吗
已经有37人回复
-
英文综述是否需要润色及查重
已经有5人回复
-
救命帖
已经有5人回复
-
限项规定
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
-
招博士
已经有3人回复
-
最失望的一年
已经有18人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
- 专业: 化学信息学
【答案】应助回帖
感谢参与，应助指数 +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
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
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件
5楼2013-04-07 18:20:48
huzijun888
铜虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 5769.2
- 散金: 200
- 红花: 2
- 帖子: 184
- 在线: 62.2小时
- 虫号: 1487784
- 注册: 2011-11-12
- 性别: GG
- 专业: 水力学与水信息学
6楼2013-04-07 19:59:31
chelator
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 4446.5
- 红花: 2
- 帖子: 284
- 在线: 76.4小时
- 虫号: 973752
- 注册: 2010-03-17
- 性别: GG
- 专业: 化学信息学
7楼2013-04-08 09:02:02
huzijun888
铜虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 5769.2
- 散金: 200
- 红花: 2
- 帖子: 184
- 在线: 62.2小时
- 虫号: 1487784
- 注册: 2011-11-12
- 性别: GG
- 专业: 水力学与水信息学
|
文件在这里，data.txt是一个三维坐标文件。。。要实现的功能是在文本框里输入（xmin，ymin）和（xmax,ymax）在delete Z里输入要删除的Z坐标（即读入文件的第三个数据），执行输出数据时把不在（xmin，ymin）和（xmax,ymax）所确定的平面范围内的点，还有Z坐标等于DELETE z的点都删除掉 |
» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : GAOCHENG.rar
2013-04-09 10:02:45, 46.15 K
8楼2013-04-09 10:07:12
chelator
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 4446.5
- 红花: 2
- 帖子: 284
- 在线: 76.4小时
- 虫号: 973752
- 注册: 2010-03-17
- 性别: GG
- 专业: 化学信息学
huzijun8889楼2013-04-10 11:41:14
huzijun888
铜虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 5769.2
- 散金: 200
- 红花: 2
- 帖子: 184
- 在线: 62.2小时
- 虫号: 1487784
- 注册: 2011-11-12
- 性别: GG
- 专业: 水力学与水信息学
10楼2013-04-10 19:22:24