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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 关于程序批量处理的问题，拜谢各位！
71/1返回列表
查看: 1569  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

奴灬

新虫 (小有名气)

[求助] 关于程序批量处理的问题，拜谢各位！ 已有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客户端
回复此楼

» 猜你喜欢
1楼 2017-08-30 23:11:56
已阅   回复此楼   关注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维数组就可以把这些数据全部放进去；如果每一行列数不一样，那么，就只能一行设一个数组，这种情况下数组的个数由行数决定
赞一下(1人) 回复此楼
努力学习！以正当途径！获得需要的知识！
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
赞一下(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次，第一次得出行数做完定义，第二次纯粹去读入数据
赞一下(1人) 回复此楼

» 本帖已获得的红花（最新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的回帖
相关版块跳转 我要订阅楼主 奴灬 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 ero8OE6tv9cu 2026-09-02 4/200 2026-09-03 03:14 by rM1TE0WVDIIY
[博后之家] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 ero8OE6tv9cu 2026-09-02 6/300 2026-09-02 23:59 by rM1TE0WVDIIY
[基金申请] 为什么资助数各大高校都创新高，自己申请怎么就这么难 +14 Kittylucky 2026-08-27 15/750 2026-09-02 19:35 by liumei0601
[基金申请] 要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够 +9 瞬息宇宙 2026-08-31 17/850 2026-09-02 14:04 by anjeeshine
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 10/500 2026-09-02 11:35 by 大不刘6
[基金申请] 学科评审组评审是指会评吗？ +5 瞬息宇宙 2026-08-31 5/250 2026-09-02 10:13 by 雨冰共舞
[基金申请] 面上函评意见出来了，像什么等级？ 20+4 Tsingking1 2026-08-27 17/850 2026-09-01 19:51 by 超级无敌华子
[论文投稿] 小白求助 投论文要求的highlights应该如何写 5+3 l1963982152 2026-08-29 4/200 2026-09-01 09:04 by 北京莱茵编辑
[基金申请] 麻烦专家们看看评委们的意见（F口面上） +7 gdd2018 2026-08-28 12/600 2026-09-01 08:32 by 尼古拉斯小虫
[基金申请] 国社科又开始会评了，不知道这次命运如何 +7 雨打竹帘 2026-08-30 11/550 2026-08-31 23:16 by hittle2008
[基金申请] 基金未中，这种答复是模板吗？ +6 zhaosm1982 2026-08-27 7/350 2026-08-31 21:18 by qdxxmc
[基金申请] 面上意见出来了 +12 黄鸟于飞Chao 2026-08-29 23/1150 2026-08-31 18:57 by 黄鸟于飞Chao
[基金申请] 能否申诉？ +7 echo8914667 2026-08-30 8/400 2026-08-31 17:00 by yihongxu
[基金申请] 中青基了要发朋友圈吗？ +7 349506619 2026-08-28 7/350 2026-08-31 13:39 by 冼亮淀粉酶
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 为什么到现在没收到通知？ +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 我就是申请一个面上项目而已，这评审意见是按照杰青的条件评的吧？ +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
信息提示
关闭
请填处理意见
关闭