Jump to content

draco105457

Members
  • Posts

    2
  • Joined

  • Last visited

draco105457's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. how can i repair the script in the Post ? my script in the BOX is damaged
  2. a 2-Dimensional Version of _ArrayAdd i hope someone need the Script #region #### Includes ============================================================================================================ #include-once #include <array.au3> #endregion ====================================================================================================================== #cs #CURRENT# ===================================================================================================================== _ArrayAdd_2dim #CURRENT# ===================================================================================================================== #ce ; #Function - _ArrayAdd_2dim ====================================================================================================================================== ; Parameters ....: $avArray = Array to add with additional Array ; $newARRAY = aditional Array ; Error .........: 1 = Master Array is no Array ; 2 = add. Array is no Array ; 3 = Master Array is no 2D Array ; 4 = add. Array is no 2D Array ; Return ........: 0 = All OK ; Description ...: to ad a 2dimensional Array to another 2 dimensional Arry ; ========================================================================================================================================================================== Func _ArrayAdd_2dim(ByRef $avArray, $newARRAY) If Not IsArray($avArray) Then Return SetError(1, 0, -1) If Not IsArray($newARRAY) Then Return SetError(2, 0, -1) If UBound($avArray, 0) <> 2 Then Return SetError(3, 0, -1) If UBound($newARRAY, 0) <> 2 Then Return SetError(4, 0, -1) Local $i, $j,$jj ;################################################################## ;### check which Array is the Biggest ;################################################################## If UBound($avArray,2) > UBound($newARRAY,2) then $newdim = UBound($avArray,2) If UBound($avArray,2) < UBound($newARRAY,2) then $newdim = UBound($newARRAY,2) ;################################################################## ;### Redim the Array Size ;################################################################## ReDim $avArray[(UBound($avArray,1))+(UBound($newARRAY,1))][$newdim] ; 1 Array zeile hinzufügen ;################################################################## ;### add the Array ;################################################################## for $i = (UBound($avArray)-1) to (UBound($avArray))-(UBound($newARRAY)) Step -1 $j = UBound($newARRAY)-$jj-1 for $k = 0 to (UBound($newARRAY,2)-1) ConsoleWrite('+$avArray['&$i&']['&$k&'] = $newARRAY['&$j&']['&$k&']'&@CRLF) $avArray[$i][$k] = $newARRAY[$j][$k] Next ConsoleWrite(@CRLF) $jj +=1 Next ;~ _ArrayDisplay($avArray) return(0) EndFunc_ArrayAdd_2dim.au3
×
×
  • Create New...