找回密码
 加入
搜索
查看: 1271|回复: 3

数组拆分的问题?敬清高手帮忙!

[复制链接]
发表于 2009-2-25 21:02:38 | 显示全部楼层 |阅读模式
已有一个内含55个元素的一维数组,我要把它们11个划分为一组,再组成5个二维数组,我用for... to...next,没搞明白,倒把自己搞晕了,请问有没有按数量分组的命令,我是新新手,望大侠们赐教!!

[ 本帖最后由 axis000 于 2009-2-26 09:40 编辑 ]
 楼主| 发表于 2009-2-25 21:09:13 | 显示全部楼层
帮我看看,$temp是那个一维数组:

Dim $ccc[5][11]
For $u=1 To 5
        For $y=1 To 11
                $ccc[$u][$y]=$temp[5*$u]
        Next
       
Next

[ 本帖最后由 axis000 于 2009-2-25 21:11 编辑 ]
发表于 2009-2-26 09:13:41 | 显示全部楼层
#include<array.au3>
Dim $array[55],$b[5][11]
For $i=0 to 54
        $array[$i]=$i
Next
;----------------------------------------
For $i=0 to 4  
        For $j=0 to 10                
                $b[$i][$j]=$array[$j+$i*11]
        Next
Next
_ArrayDisplay($b)
;-----------------------------------------
For $i=0 to 54 Step 11
        for $j=0 to 10
                $b[$i/11][$j]=$array[$i+$j]
        Next
Next
_ArrayDisplay($b)                
;-----------------------------------------
Dim $n=-1
For $i=0 to 54 
        $n+=1
        $b[($i-$n)/11][$n]=$array[$i];$b[int($i/11)][$n]=$array[$i]也可以 
        If $n>=10 Then $n=-1
Next
_ArrayDisplay($b)
 楼主| 发表于 2009-2-26 09:39:53 | 显示全部楼层
多谢,多谢提供这么多.慢慢研究,还没有转过弯来.
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-18 22:11 , Processed in 0.076063 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表