数组删除元素后出错,麻烦帮忙看下,谢谢 [已解决]
本帖最后由 骗子 于 2012-11-7 10:26 编辑很奇怪,为什么会报错呢,而且出错的地方也没准
我的想法是建立一个 数组,然后随机一个序号删除里面的一个元素,直到清空数组为止
但是运行以后总是报错,实在头大了.
Local $aIE
$aIE = ''
For $i = 0 To 33
ReDim $aIE[$i + 1]
$aIE[$i] = $i
Next
_ArrayDisplay($aIE)
While 1
$xuhao = Random(0, UBound($aIE), 1)
ConsoleWrite(UBound($aIE) &' '&$aIE[$xuhao]&@CRLF)
FileWrite('sdf.txt', $aIE[$xuhao] & @CRLF)
_ArrayDelete($aIE, $xuhao)
If UBound($aIE) < 2 Then ExitLoop
WEnd
"H:\???\VPN\ES vpn\??????.au3" (15) : ==> ???????????????????.:
ConsoleWrite(UBound($aIE) &' '&$aIE[$xuhao]&@CRLF)
ConsoleWrite(UBound($aIE) &' '&^ ERROR $xuhao = Random(0, UBound($aIE)-1, 1)
页:
[1]