_ArrayAdd 支持二维数组吗? [已解决]

xtanxin · 发表于 2011-5-27 09:31:46

本帖最后由 xtanxin 于 2011-5-28 00:36 编辑

UDF的数组函数有不少,功能很特色,可是好像有些只是支持一位数组.但是没有说明,很郁闷.特地来问问大家.

Ziya · 发表于 2011-5-27 10:25:40

@error: 1 - $avArray 不是数组
2 - $avArray 不是一维数组

说的很清楚啊,不是一维数组就会报错

netegg · 发表于 2011-5-27 11:22:37

下一版exe的帮助我会加进去的

tryhi · 发表于 2011-5-27 12:26:56

回复 1# xtanxin

你看一下那个函数你就会写一个加二维功能的了，用redim函数

netegg · 发表于 2011-5-27 13:16:07

回复 4# tryhi
添加好说，排序，删除维数/元素....涉及的玩意想想看还挺多的

tryhi · 发表于 2011-5-27 13:21:30

回复 5# netegg

新版的这些都有集成么？

netegg · 发表于 2011-5-27 13:33:00

回复 6# tryhi
看看情况，现在在翻译p侠那个库，抽空吧

222222 · 发表于 2011-5-27 14:01:08

;原版地址为超级版主afan的回复贴，此为原文照抄
;地址为：http://www.autoitx.com/thread-11646-1-1.html 第3楼
;修改了原函数“_ArrayAdd()”为“__ArrayAdd()”，增加支持2维数组及自动判断0号元素。
;操作1维、2维数组例子：

#include <Array.au3>
Local $avArray[10]
$avArray[0] = "Tom"
$avArray[1] = "Holger"
$avArray[2] = "Jon"
$avArray[3] = "Larry"
$avArray[4] = "Jeremy"
$avArray[5] = "Valik"
$avArray[6] = "Cyberslug"
$avArray[7] = "Nutster"
$avArray[8] = "JdeB"
$avArray[9] = "Tylo"
_ArrayDisplay($avArray, "原1维数组")
__ArrayAdd($avArray, "Brian")
_ArrayDisplay($avArray, "增加后")
Local $avArray[3][2] = [[2]]
$avArray[1][0] = "Holger"
$avArray[1][1] = "Holger111"
$avArray[2][0] = "Jon"
$avArray[2][1] = "Jon1111"
_ArrayDisplay($avArray, "原2维数组")
__ArrayAdd($avArray, "Brian", 'Brian111')
__ArrayAdd($avArray, "abcdefg", 'abcdefg111')
__ArrayAdd($avArray, "dgdhhf", 'fhdfhf111')
_ArrayDisplay($avArray, "增加后")

Func __ArrayAdd(ByRef $avArray, $vValue0, $vValue1 = '', $0_auto = 1)
      ;说明：在1维或2维数组末尾添加指定的值。（修改自原_ArrayAdd函数）
      ;Afan提示：$0_auto参数为1时自动判断0号元素的值是否为数组的数量-1，是则自动+1。
      If Not IsArray($avArray) Then Return SetError(1, 0, -1)
      Local $iUBound = UBound($avArray)
      If UBound($avArray, 0) = 1 Then
            If $0_auto And $avArray[0] = $iUBound-1 Then $avArray[0] += 1
            ReDim $avArray[$iUBound + 1]
            $avArray[$iUBound] = $vValue0
      ElseIf UBound($avArray, 0) = 2 Then
            If $0_auto And $avArray[0][0] = $iUBound-1 Then $avArray[0][0] += 1
            ReDim $avArray[$iUBound + 1][2]
            $avArray[$iUBound][0] = $vValue0
            $avArray[$iUBound][1] = $vValue1
      ElseIf UBound($avArray, 0) > 2 Then
            Return SetError(2, 0, -1)
      EndIf
      Return $iUBound
EndFunc ;==>__ArrayAdd

3mile · 发表于 2011-5-27 17:26:41

记得以前写过一个,请移步:
http://www.autoitx.com/forum.php ... amp;fromuid=7639113

xtanxin · 发表于 2011-5-28 00:34:36

ok,感谢各位帮助,是在是脑子闷的比较头疼了.

		自动登录	找回密码
密码			加入

[效率算法] _ArrayAdd 支持二维数组吗? [已解决]

相关帖子