is there any substitute automatically replace
for example
Code:
Func a4300705601(ByRef $a2f31502f3a, $a423180411e)
If NOT IsArray($a2f31502f3a) Then Return SetError(1, 0, 0)
Local $a5431705e37 = UBound($a2f31502f3a, 1) - 1
If NOT $a5431705e37 Then
$a2f31502f3a = ""
Return 0
EndIf
If $a423180411e < 0 Then $a423180411e = 0
If $a423180411e > $a5431705e37 Then $a423180411e = $a5431705e37
Switch UBound($a2f31502f3a, 0)
Case 1
For $a1e31901646 = $a423180411e To $a5431705e37 - 1
$a2f31502f3a[$a1e31901646] = $a2f31502f3a[$a1e31901646 + 1]
Next
ReDim $a2f31502f3a[$a5431705e37]
Case 2
Local $a4031a01d01 = UBound($a2f31502f3a, 2) - 1
For $a1e31901646 = $a423180411e To $a5431705e37 - 1
For $a2331b00917 = 0 To $a4031a01d01
$a2f31502f3a[$a1e31901646][$a2331b00917] = $a2f31502f3a[$a1e31901646 + 1][$a2331b00917]
Next
Next
ReDim $a2f31502f3a[$a5431705e37][$a4031a01d01 + 1]
Case Else
Return SetError(3, 0, 0)
EndSwitch
Return $a5431705e37
EndFunc
writes so that it automatically code
Code:
Func _ARRAYDELETE(ByRef $AVARRAY, $IELEMENT)
If NOT IsArray($AVARRAY) Then Return SetError(1, 0, 0)
Local $IUBOUND = UBound($AVARRAY, 1) - 1
If NOT $IUBOUND Then
$AVARRAY = ""
Return 0
EndIf
If $IELEMENT < 0 Then $IELEMENT = 0
If $IELEMENT > $IUBOUND Then $IELEMENT = $IUBOUND
Switch UBound($AVARRAY, 0)
Case 1
For $I = $IELEMENT To $IUBOUND - 1
$AVARRAY[$I] = $AVARRAY[$I + 1]
Next
ReDim $AVARRAY[$IUBOUND]
Case 2
Local $ISUBMAX = UBound($AVARRAY, 2) - 1
For $I = $IELEMENT To $IUBOUND - 1
For $J = 0 To $ISUBMAX
$AVARRAY[$I][$J] = $AVARRAY[$I + 1][$J]
Next
Next
ReDim $AVARRAY[$IUBOUND][$ISUBMAX + 1]
Case Else
Return SetError(3, 0, 0)
EndSwitch
Return $IUBOUND
EndFunc