找回密码  加入

AUTOIT CN

搜索
查看: 315|回复: 1

[效率算法] 多维数组计数的问题

[复制链接]
发表于 2019-3-11 12:43:23 | 显示全部楼层 |阅读模式
#include <Array.au3>

dim $arr[8][3]
$arr[0][0] = 'abc'
$arr[0][1] = '6'
$arr[1][0] = 'bcd'
$arr[1][1] = '5'
$arr[2][0] = 'cde'
$arr[2][1] = '5'
$arr[3][0] = 'def'
$arr[3][1] = '5'
$arr[4][0] = 'efg'
$arr[4][1] = '6'
$arr[5][0] = 'efg'
$arr[5][1] = '6'
$arr[6][0] = 'fgh'
$arr[6][1] = '5'
$arr[7][0] = 'ghi'
$arr[7][1] = '5'

_ArrayDisplay($arr)

如何统计出列子里面6下面的5数量.并和前面一个6进行对应呢?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2019-3-12 00:47:18 | 显示全部楼层

Dim $arr[8][3]
$arr[0][0] = 'abc'
$arr[0][1] = '6'
$arr[1][0] = 'bcd'
$arr[1][1] = '5'
$arr[2][0] = 'cde'
$arr[2][1] = '5'
$arr[3][0] = 'def'
$arr[3][1] = '5'
$arr[4][0] = 'efg'
$arr[4][1] = '6'
$arr[5][0] = 'efg'
$arr[5][1] = '6'
$arr[6][0] = 'fgh'
$arr[6][1] = '5'
$arr[7][0] = 'ghi'
$arr[7][1] = '5'
$s = ""
$M = ""
For $i = 0 To UBound($arr) - 1
        If $arr[$i][1] = "5" Then
                If $s = "" Then $M = $i
                $s += 1
        Else
                If $s And $M Then
                        $arr[$M - 1][2] = $s
                EndIf
                $s = ""
                $M = ""
        EndIf
Next
If $s And $M Then
        $arr[$M - 1][2] = $s
EndIf
_ArrayDisplay($arr)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2019-5-27 10:33 , Processed in 0.062500 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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