- 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
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)
_GetTestArray()
;==================================================================================================
; 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