#include-once
#include <Array.au3>

; #FUNCTION# =============================================================================
;~ @jugador
;~ version 2.0
; Name...........: __ArrayColInsert_V2()
; =========================================================================================
Func __ArrayColInsert_V2(ByRef $aArray, $iColumn = 0, $ArrayFill = '', $NoofColumn = 1)
    If Not IsArray($aArray) Then Return SetError(1, 0, -1)
    If $NoofColumn < 1 Then Return SetError(1, 0, -2)
    Local $bArray[UBound($aArray, 1)][$NoofColumn]

    If IsArray($ArrayFill) Then
        If (UBound($aArray, 1) <> UBound($ArrayFill, 1)) Then  Return SetError(1, 0, -3)
        If UBound($ArrayFill, 2) = 0 Then
            _ArrayTranspose($ArrayFill)
            _ArrayTranspose($ArrayFill)
        Endif
        $bArray = $ArrayFill
    Endif

    If UBound($aArray, 2) = 0 Then
        _ArrayTranspose($aArray)
        _ArrayTranspose($aArray)
    Endif

    Local $iDim_1 = UBound($aArray, 1)
    Local $iDim_2 = UBound($aArray, 2)
    If $iColumn < 0 Or $iColumn > $iDim_2 Then Return SetError(3, 0, -1)

    ReDim $aArray[$iDim_1][$iDim_2 + UBound($bArray, 2)]
    For $k = 0 To UBound($bArray, 2) - 1
        For $i = 0 To $iDim_1 - 1
            For $j = ($iDim_2 + $k) To ($iColumn + $k) + 1 Step -1
                $aArray[$i][$j] = $aArray[$i][$j - 1]
            Next
            $aArray[$i][($iColumn + $k)] = $bArray[$i][$k]
        Next
    Next
    Return UBound($aArray, 0)
EndFunc