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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 关于程序批量处理的问题，拜谢各位！
51/1返回列表
查看: 1265  |  回复: 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
奴灬: 金币+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的回帖
查看全部 7 个回答

匿名

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

奴灬

新虫 (小有名气)
引用回帖:
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的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭