查看: 1626  |  回复: 6

奴灬

新虫 (小有名气)

[求助] 关于程序批量处理的问题,拜谢各位! 已有2人参与

在文本中,有一个如下的二维数组
a1,b1,c1,d1,e1……
a2,b2,c2,d2,e2……
a3,b3,c3,d3,e3……
a4,b4,c4,d4,e4……
:
:
该数组的行数和列数未知,因为是用户输入的,数组的每一行是程序中需要拿来计算的输入参数,各行的地位是一样的,仅仅只是对应的不同状态,我现在希望首先将这个二维数组读入程序,然后将每一行赋给一个一维数组,然后用下标取值法,来进行程序计算,然后再这一系列一维数组中进行循环。
有一下几个问题:
1.我的这个思路有没有问题?或者各位有更好的方法没有?
2.如果思路没有问题,请大牛帮我用代码实现一下,最好是有注解,我接触vb不久,比较小白!抱歉

发自小木虫Android客户端
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

★
jjdg: 金币+1, 感谢参与 2017-09-01 10:27:18
本帖仅楼主可见
2楼2017-09-01 09:31:25
已阅   申请程序强帖   回复此楼   编辑   查看我的主页

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
奴灬: 金币+30, ★★★很有帮助 2017-09-01 21:43:24
1.如果你一行赋值给一个一维数组,那又算哪门子的二维数组?回去好好看书。思维都是混乱的
2.因为行数未知,使用while wend 配合eof先读一遍文件,确定行数;因为列数未知,可使用字符串函数通过对”,“的计数确定一行中有多少数据,即得列数
3.如果你每一行列数相同,那么一个2维数组就可以把这些数据全部放进去;如果每一行列数不一样,那么,就只能一行设一个数组,这种情况下数组的个数由行数决定
努力学习!以正当途径!获得需要的知识!
3楼2017-09-01 10:26:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

奴灬

新虫 (小有名气)

引用回帖:
3楼: Originally posted by jjdg at 2017-09-01 10:26:11
1.如果你一行赋值给一个一维数组,那又算哪门子的二维数组?回去好好看书。思维都是混乱的
2.因为行数未知,使用while wend 配合eof先读一遍文件,确定行数;因为列数未知,可使用字符串函数通过对”,“的计数确定 ...

嗯,了解!不过还有个疑问,就是因为行数是程序识别出来的,我们实际上是不知道的有多少行,那么我要将行存入一维数组中,就要先定义这个与未知行数相等个数的一维数组,那么定义行数数量的数组怎么实现?谢谢!

发自小木虫Android客户端
4楼2017-09-01 10:51:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mdl9966

铁虫 (初入文坛)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
奴灬: 金币+20, ★★★很有帮助 2017-09-01 21:43:12
jjdg: 金币+2, 感谢参与 2017-09-03 11:36:13
Dim XXX() As String '定义动态数组
Dim n As Integer
n = 0
Open "文件.txt" For Input As #1
Do While Not EOF(1)
         n = n + 1
         ReDim Preserve XXX(n) '动态改变数组的规模
          Input #1, XXX(n) '将数据读取到数组里
Loop
Close #1
5楼2017-09-01 13:30:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

引用回帖:
4楼: Originally posted by 奴灬 at 2017-09-01 10:51:52
嗯,了解!不过还有个疑问,就是因为行数是程序识别出来的,我们实际上是不知道的有多少行,那么我要将行存入一维数组中,就要先定义这个与未知行数相等个数的一维数组,那么定义行数数量的数组怎么实现?谢谢!
...

因为不知道行数,所以使用除for next以外的循环配合eof来实现这个过程,你可以使用动态数组,不停地去修改元素个数;也可以跑2次,第一次得出行数做完定义,第二次纯粹去读入数据

» 本帖已获得的红花(最新10朵)

努力学习!以正当途径!获得需要的知识!
6楼2017-09-03 11:58:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

奴灬

新虫 (小有名气)

送红花一朵
引用回帖:
6楼: Originally posted by jjdg at 2017-09-03 11:58:39
因为不知道行数,所以使用除for next以外的循环配合eof来实现这个过程,你可以使用动态数组,不停地去修改元素个数;也可以跑2次,第一次得出行数做完定义,第二次纯粹去读入数据...

嗯,这个思路很好,谢谢!

发自小木虫Android客户端
7楼2017-09-03 14:53:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 奴灬 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[职场人生] 40+中年人失业后,还能找到好工作吗? +7 xqy2009 2026-10-13 8/400 2026-10-15 15:56 by aheyingwhg
[有机交流] 用NBS溴化时溶剂除了CCl4外还有什么 +3 18834002860 2026-10-12 6/300 2026-10-15 14:30 by 长沙摩尔信息科�
[基金申请] 申请科研项目纯靠实力能成功吗? 200+7 David1982 2026-10-13 11/550 2026-10-15 10:30 by zyqchem
[硕博家园] 极限拉扯,如何抉择 +11 Isak0320 2026-10-12 15/750 2026-10-14 21:55 by 猫鱼不是鱼
[论文投稿] 二审4个多月了还是Awaiting Reviewer Scores 10+3 纳斯达克ML 2026-10-11 4/200 2026-10-14 17:30 by babero
[有机交流] OpenAI又攻克数学难题了,离AI做有机合成还有多远? +8 wangyl_123 2026-10-10 13/650 2026-10-14 15:12 by zuesli
[教师之家] 课题组会帮你通过考核么? +4 好运来~9527 2026-10-10 7/350 2026-10-13 08:41 by xli1984
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷!
[有机交流] 各位大佬,路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
[有机交流] 我应该选哪条合成路线让实验成功率高一些? +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
请填处理意见