数组的声明是否可以不说明这个数据组包含多少个数据
我现在想声明一个数据组,但是我不确定这个数据组有多少个数据,怎么办 Local $a需要更改时 ReDim 本帖最后由 skyfree 于 2012-2-12 09:10 编辑
Dim $a_Array
MsgBox(0 + 64, "信息", "当前数组上限为: " & UBound($a_Array))
Dim $r = "", $n = -1
While 1
$r = InputBox("重定义数组", "输入数组上限", "")
If @error = 1 And $r = "" Then
ExitLoop
Else
$n = Number($r)
If $n <= 0 Then
MsgBox(0 + 48, "注意", "请输入正确的数组上限")
Else
ExitLoop
EndIf
EndIf
WEnd
If $n > 0 Then
ReDim $a_Array[$n]
MsgBox(0 + 64, "信息", "重定义后数组上限为: " & UBound($a_Array))
EndIf
#include <string.au3>
_arrayadd 学习下!!!
页:
[1]