Test Array erstellen

    • Offizieller Beitrag

    Hi,
    wenn man mit Arrays arbeitet, braucht man ja auch Testdaten zum Probieren.
    Bisher habe ich dann jedesmal in einer Schleife ein Testarray befüllt. Sind zwar (bei 1D) nur 3 Zeilen Code, aber das war mir dann doch zuviel :D
    Deshalb habe ich eine allgemeine Funktion zur Erstellung von 1D/2D-Arrays mit Testdaten geschaffen.
    Vielleicht für den Einen oder Anderen von Nutzen.

    Verringert den Aufruf auf:

    [autoit]

    $a1Dim = _GetTestArray(10)
    $a2Dim = _GetTestArray(10, 5)

    [/autoit]
    _GetTestArray()
    [autoit]

    ;==================================================================================================
    ; Funktion _GetTestArray($iUbDim1 [, $iUbDim2=0, $sValue='Wert ']])
    ; Beschreibung Gibt ein 1D- oder 2D-Array mit Testdaten zurück
    ; Parameter $iUbDim1 Anzahl Elemente 1. Dimension
    ; optional $iUbDim2 Anzahl Elemente 2. Dimension; wird kein Wert oder Wert < 2 übergeben,
    ; dann wird ein 1D-Array erzeugt; Standard: 0 = 1D-Array
    ; optional $sValue Standard: "Wert $i" bzw. "Wert $i/ $k"; $i bzw $k werden immer angefügt
    ; Autor BugFix ([email='bugfix@autoit.de'][/email])
    ;==================================================================================================
    Func _GetTestArray($iUbDim1, $iUbDim2=0, $sValue='Wert ')
    Local $i, $k, $2ndDim = False
    Local $aOut[$iUbDim1]
    If $iUbDim2 > 1 Then
    $2ndDim = True
    ReDim $aOut[$iUbDim1][$iUbDim2]
    EndIf
    For $i = 0 To $iUbDim1 -1
    If $2ndDim Then
    For $k = 0 To $iUbDim2 -1
    $aOut[$i][$k] = $sValue & $i & '/ ' & $k
    Next
    Else
    $aOut[$i] = $sValue & $i
    EndIf
    Next
    Return $aOut
    EndFunc ;==>_GetTestArray

    [/autoit]