应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » VB文件读取的问题！！！急
北京石油化工学院2026年研究生招生接收调剂公告
141/2返回列表12下一页
查看: 1282  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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
回复此楼

» 收录本帖的淘帖专辑推荐

柴米油盐酱醋茶

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
致力于更合理、更有效、更准确地应用计算流体力学软件解决实际问题
1楼 2013-04-06 21:18:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

chelator

木虫 (小有名气)

【答案】应助回帖

感谢参与，应助指数 +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 才使用二维数组定义
赞一下(1人) 回复此楼
4楼2013-04-07 11:58:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

libralibra

至尊木虫 (著名写手)

骠骑将军

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +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)
赞一下 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
2楼2013-04-06 21:59:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huzijun888

铜虫 (小有名气)
引用回帖:
2楼: Originally posted by libralibra at 2013-04-06 21:59:05
你的用法涉及2个错误:
1.二维数组定义,必须用逗号分隔2个维度,例如Dim a(,) as Single,如果没有逗号Dim a() as Single声明的是一维数组

2.动态数组定义后,在长度不够时,需要Redim来扩容(vb如果是扩大数组,原来的 ...

兄弟，我搞不定啊！

1.首先，按照你说的第一条语句就直接报错了

2.我增加redim语句扩容还是下标越界

这是我现在的语句：
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)
   ReDim Preserve a(i, 1 To 3)
   Input #1, a(i, 1), a(i, 2), a(i, 3)
   i = i + 1
Loop
Close #1
End Sub
赞一下 回复此楼
致力于更合理、更有效、更准确地应用计算流体力学软件解决实际问题
3楼2013-04-07 10:22:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
引用回帖:
4楼: Originally posted by chelator at 2013-04-07 11:58:11
你用的是什么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 ...

+1
虽然这样有2个循环,但是保险.
赞一下 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
5楼2013-04-07 18:20:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huzijun888

铜虫 (小有名气)
我先把金币给你吧，我还是没搞出来，或许是我的版本不行。我下载新的版本看一下
赞一下 回复此楼
致力于更合理、更有效、更准确地应用计算流体力学软件解决实际问题
6楼2013-04-07 19:59:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chelator

木虫 (小有名气)
把数据给我，我编一下。
赞一下 回复此楼
7楼2013-04-08 09:02:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huzijun888

铜虫 (小有名气)
引用回帖:
7楼: Originally posted by chelator at 2013-04-08 09:02:02
把数据给我，我编一下。

文件在这里，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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chelator

木虫 (小有名气)
程序已做好，你的数据在某些行有四个数据，我删掉第三个数据。给个邮箱地址，我传给你。
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

huzijun888
9楼2013-04-10 11:41:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huzijun888

铜虫 (小有名气)
送红花一朵
引用回帖:
9楼: Originally posted by chelator at 2013-04-10 11:41:14
程序已做好，你的数据在某些行有四个数据，我删掉第三个数据。给个邮箱地址，我传给你。

huzijun888@126.com     非常感谢
赞一下 回复此楼
致力于更合理、更有效、更准确地应用计算流体力学软件解决实际问题
10楼2013-04-10 19:22:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 huzijun888 的主题更新
141/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 332求调剂 +17 小小孟... 2026-04-05 18/900 2026-04-06 09:51 by 蓝云思雨
[考研] 考研调剂 +5 美丽的youth_ 2026-04-04 6/300 2026-04-06 06:57 by houyaoxu
[考研] 专硕310求调剂 +5 捞捞我…. 2026-04-04 6/300 2026-04-04 23:33 by barlinike
[考研] 320求调剂 +3 一样圆 2026-04-04 3/150 2026-04-04 22:29 by 啵啵啵0119
[考研] 考研调剂 +5 四川王涛 2026-04-04 5/250 2026-04-04 22:18 by 啵啵啵0119
[考研] 085701求调剂 +7 龚禹铭 2026-04-04 8/400 2026-04-04 13:49 by 小小树2024
[考研] 357求调剂 +13 1050389037 2026-04-03 13/650 2026-04-03 22:27 by 无际的草原
[考研] 283求调剂 +3 jiouuu 2026-04-03 4/200 2026-04-03 13:28 by jiouuu
[考研] 抱歉 +5 田洪有 2026-03-30 5/250 2026-04-03 10:24 by linyelide
[考研] 一志愿深大085601材料工程专业（专硕）300分可以调剂去哪 +8 10160315 2026-04-02 8/400 2026-04-03 09:36 by hypershenger
[考研] 一志愿山东大学化学与化工学院材料与化工专硕，360分求调剂 +4 不愿透露姓名的� 2026-04-02 4/200 2026-04-03 09:29 by 遗忘消失的灆
[考研] 312求调剂 +6 小小墨123 2026-04-02 7/350 2026-04-03 07:32 by jsw79
[考研] 302求调剂 +9 zyx上岸！ 2026-04-02 9/450 2026-04-02 23:07 by 马儿快快地跑
[考研] 一志愿北京科技材料科学与工程288分，求调剂 +14 是辰啊 2026-04-02 14/700 2026-04-02 21:10 by dongzh2009
[考研] 一志愿北京科技大学085601材料工程英一数二初试总分335求调剂 +8 双马尾痞老板2 2026-04-02 9/450 2026-04-02 14:45 by 5896
[考研] 一志愿北交大材料工程总分358 +3 cs0106 2026-04-02 5/250 2026-04-02 11:37 by olim
[考研] 一志愿北交大材料工程总分358 +8 cs0106 2026-04-01 9/450 2026-04-02 10:36 by 不吃魚的貓
[考研] 354求调剂 +4 lxb598 2026-03-31 5/250 2026-04-02 09:55 by Jaylen.
[考研] 【求调剂】新能源材料本科，一志愿211，初试321 +6 求调剂学校， 2026-04-02 6/300 2026-04-02 09:41 by 晴空210210
[考研] 08生物与医药专硕初试346找调剂 +6 dianeeee 2026-04-01 7/350 2026-04-02 08:23 by guoweigw
信息提示
关闭
请填处理意见
关闭