'在循环遍历找图的过程中,有时候要找一个画面中不同位置的相同图片,然后要进行点击操作,如果我希望对这些数组进行排序那么就要先
'将这些数组集合到一个数组集中,而且通常不允许坐标重复。
’ 检查坐标是否已在数组中
Dim val,arr
arr = {null}
For i=0 to 13//假设循环13次
If 条件成立 Then //你自己规定条件,例如找到图片
'假如界面上只有一个符合条件的图片查找,但是循环又有13次,那么就有可能重复添加13个相同的数组,所以要检查
'假如说通过运算获得了一个数组
arr = Array(x, y)
'现在决定是否要将当前数组添加进数组集中
If 数组是否存在 = true Then
Exit For
Else
arr(i)=val()//循环添加新数组,val()应该是一个形如Array(x,y)的数组,不重复则添加这个数组
End If
End If
Next
Function 数组是否存在(val, arr)
Dim i
For i = 0 To UBound(arr)
If arr(i,0) = val(0) And arr(i,1) =val(1) Then
数组是否存在 = True
Exit Function
End If
Next
数组是否存在 = False
End Function
Function 排序()
'使用新得到的数组集进行排序的运算
End function