- Offizieller Beitrag
Der Funktionsname erklärt eigentlich schon alles. Analog zum _ArrayDisplay( ) der 1-Dimensionalen Arrays lassen sich hiermit 2-Dimensionale Arrays ausgeben. Die Anzahl der Elemente in der zweiten Dimension ist dabei "theoretisch" nicht begrenzt und wird automatisch erkannt. Wenn es natürlich breiter werden würde als der Screen und die Daten in die nächste Zeile umgebrochen werden siehts nicht mehr übersichtlich aus.
Aber im allgemeinen sind wohl eher 2 Elemente in der 2. Dimension.
Im Gegensatz zu _ArrayDisplay( ) ist die Eingabe eines Titels optional. Das hab ich so oft vergessen, dass ich es lieber nur bei Bedarf eingebe.
Edit: Hab zur besseren Übersichtlichkeit noch Spaltenbezeichnung zugefügt.
Spoiler anzeigen
#include <array.au3>
Dim $ar2D[10][4]
$ar2D[0][0] = "Otto"
$ar2D[1][0] = "Otto"
$ar2D[2][0] = "Bernd"
$ar2D[3][0] = "Kurt"
$ar2D[4][0] = "otto"
$ar2D[5][0] = "Kurt"
$ar2D[6][0] = "Bernd"
$ar2D[7][0] = "Otto"
$ar2D[8][0] = "Kurt"
$ar2D[9][0] = "bernd"
$ar2D[0][1] = "meier"
$ar2D[1][1] = "meier"
$ar2D[2][1] = "McBee"
$ar2D[3][1] = "Becker"
$ar2D[4][1] = "Meier"
$ar2D[5][1] = "Schramm"
$ar2D[6][1] = "McBee"
$ar2D[7][1] = "Lorenz"
$ar2D[8][1] = "meier"
$ar2D[9][1] = "Gantzer"
$ar2D[0][2] = "Baum"
$ar2D[1][2] = "Strauch"
$ar2D[2][2] = "Gras"
$ar2D[3][2] = "Blume"
$ar2D[4][2] = "Käfer"
$ar2D[5][2] = "Fisch"
$ar2D[6][2] = "Katze"
$ar2D[7][2] = "Hund"
$ar2D[8][2] = "Reh"
$ar2D[9][2] = "Gans"
$ar2D[0][3] = "Gelb"
$ar2D[1][3] = "Grün"
$ar2D[2][3] = "Rot"
$ar2D[3][3] = "Orange"
$ar2D[4][3] = "Purpur"
$ar2D[5][3] = "Olive"
$ar2D[6][3] = "Nautik"
$ar2D[7][3] = "Blau"
$ar2D[8][3] = "Cyan"
$ar2D[9][3] = "Magenta"
_ArrayDisplay2D($ar2D)
[/autoit] [autoit][/autoit] [autoit];--------------------------------------------------------------------------------------------------
; Funktion _ArrayDisplay2D($ARRAY [,$TITLE=''])
;
; Beschreibung Anzeige 2-Dimensionaler Arrays mit "beliebiger" Größe der 2.ten Dimension
; begrenzt durch die Anzeigebreite des Bildschirms
;
; Parameter $ARRAY: Das anzuzeigende Array
; optional $TITLE: Titel des Ausgabefensters
;
; Erfordernisse Array 2-Dimensional
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;--------------------------------------------------------------------------------------------------
Func _ArrayDisplay2D($ARRAY, $TITLE="")
Local $str = "", $u = UBound($ARRAY,2)-1
For $i = 0 To $u
If $i = $u Then
$str &= @TAB & "[" & $i & "]" & @LF
Else
$str &= @TAB & "[" & $i & "]"
EndIf
Next
For $i = 0 To UBound($ARRAY)-1
If $i = 0 Then
$str &= "[" & $i & "] = "
Else
$str &= @LF & "[" & $i & "] = "
EndIf
For $k = 0 To $u
If $k = 0 Then
$str &= $ARRAY[$i][$k]
Else
$str &= @TAB & $ARRAY[$i][$k]
EndIf
Next
Next
MsgBox(0, $TITLE, $str)
EndFunc ; ==>_ArrayDisplay2D
