Array - ID zusammenfassen?

Sonderbaar

Hallo Freunde,

ich hätte da gerne mal wieder ne Hilfe von euch...

In einer Textdatei haben ich folgenden Inhalt.

ID|ANLEITUNG|PFAD

0001|1234|

0002|5678|

0001|9010|

0002|4234|

0003|2342|

0004|6546|

Mein Script packt sich die Datei, tüdelt das ganze zunächst in ein Array. Dann bearbeite ich mit einem Split dieses Array und verfrachte es wieder in ein neues Array.

Spoiler anzeigen

C

#include <file.au3>
#include <array.au>

Local $Array, $array3d[113][4]

_FileReadToArray(@ScriptDir & "\Anleitung.txt", $Array)
For $i = 1 to UBound($Array)-1
$aDimension = StringSplit($Array[$i], "|")
Consolewrite($aDimension[1] & @TAB & $aDimension[2] & @TAB & $aDimension[3] & @CRLF)
;~ _ArrayDisplay($aDimension)
$array3d[$i-1][0] = $aDimension[1]
$array3d[$i-1][1] = $aDimension[2]
$array3d[$i-1][2] = $aDimension[3]
Next
_ArrayDisplay($array3d)

$artikel_gui = GUICreate("IDs", 500, 400, 183, 115, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $WS_EX_WINDOWEDGE)
GUISetFont(10, 400, 0, 'Arial')
$eingabe_gui = GUICreate("Bitte wählen Sie die ID", 500, 400, 183, 115, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX), $WS_EX_WINDOWEDGE)
GUISetFont(10, 400, 0, 'Arial')
$combo_kostenstelle = GUICtrlCreateCombo("Hier ID wählen", 120, 80, 281, 25, default)
For $t = 1 to UBound($array3d)-1
GUICtrlSetData($combo_kostenstelle, $array3d[$t][0], "0000")
Next
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GuiDelete($artikel_gui)
            ExitLoop
    EndSwitch
WEnd
EndFunc

Alles anzeigen

Soweit so gut... jetzt möchte ich aber gerne, dass die Werte mit der gleichen ID quasi in eine Zeile zusammen gepackt werden. (wie auf dem Bild zu sehen)

pasted-from-clipboard.png

Muss ich im zweiten Array, nach den Werten aus dem ersten Array suchen? Oder wie bewerkstellige ich das am besten??? Gibts Vorschläge die das ganze saubere Lösen könnten?

Ziel soll nachher sein, dass ich in einer Combox die jeweilige ID auswähle (ich kriege es auch nicht hin, die ID-Werte aus dem Array da anzuzeigen) und dann die bis zu 4 Anleitungen, die dann in der jeweiligen Spalte hinter der ID stehen, in der GUI zur Anzeigen bringen kann.

Helft einem blöden bitte, was schlauer zu werden

**alpines**

Mit Arrays ist das ganze so eine Friemelei, da eine Id mehrere haben kann und andere Ids weniger aber diese trotzdem die entsprechenden Indizes belegen können.

Ein ganz einfacher straight-forward Ansatz wäre es wohl ein neues Array zu erzeugen mit der Größe 0.

Das iterierst das erste Array und schaust nach ob der aktuelle Index des 1. Arrays im zweiten schon vorhanden ist.

Wenn nicht, dann ReDimst du das ganze um eins (die zweite Dimension behält die Größe!)

Dann füllst du in den entsprechenden Eintrag vom 2. Array die Id ein und trägst dahinter die Nummer ein.

Sollte schon die Id im zweiten Array existieren, dann läufst du in der zweiten Dimension einfach von links nach rechts bis du ein Feld findest welches leer ist "" oder du Out-Of-Bounds bist.

Solltest du Out-Of-Bounds sein, kannst du die zweite Dimension ReDimmen (die Einträge gehen beim Vergrößern nicht verloren) und in den letzten Eintrag eintragen.

Solltest du nicht Out-Of-Bounds sein, trägst du es einfach in das erste leere Feld ein.

Dann machst du mit dem nächsten Index des 1. Array weiter.

Das ganze wäre mit Listen viel viel schöner, aber AutoIt hat leider keine Listen. Sogar mit Dictionaries wäre das ganze schöner zu lösen.

So hätte ich das ganze gemacht (Array-Variante). Je nach Datenmenge kann das langsam laufen und es gibt definitiv bessere Implementationen aber es läuft und es ist nicht allzu kompliziert.

In [0][0] steht die Id und in [0][1] irgendeine Zahl die dahinter gepackt wird.

AutoIt

#include <Array.au3>

Local $a[3][2] = [["ID 001", 4], ["ID 002", 6], ["ID 001", 2.5]]

$b = _SummarizeArray($a)
_ArrayDisplay($b)

Func _SummarizeArray($a)
    Local $b[0][2]

    For $i = 0 To UBound($a) - 1
        $bIdAlreadyExists = False

        For $j = 0 To UBound($b) - 1
            If $a[$i][0] = $b[$j][0] Then
                $bIdAlreadyExists = True
                ExitLoop
            EndIf
        Next

        If $bIdAlreadyExists Then
            ; $j beinhaltet den Index der ID für das 2. Array
            $bAddedSuccessfully = False

            For $k = 0 To UBound($b, 2) - 1
                If $b[$j][$k] == "" Then
                    $b[$j][$k] = $a[$i][1]
                    $bAddedSuccessfully = True
                    ExitLoop
                EndIf
            Next

            If Not $bAddedSuccessfully Then ;Out-Of-Bounds, müssen erweitern und einfügen
                ReDim $b[UBound($b)][UBound($b, 2) + 1]
                $b[$j][UBound($b, 2) - 1] = $a[$i][1]
            EndIf
        Else
            ReDim $b[UBound($b) + 1][UBound($b, 2)]
            $b[UBound($b) - 1][0] = $a[$i][0]
            $b[UBound($b) - 1][1] = $a[$i][1]
        EndIf
    Next

    Return $b
EndFunc

Alles anzeigen

Tuxedo

Du hast Glück weil ich gerade etwas Zeit übrig hatte.

Da du dich unnötig kompliziert ausgedrückt hast, hab ich nicht wirklich verstanden was du wolltest,

aber ich denke mein Script sollte in die richtige Richtung gehen.

An deine Bedürfnisse anpassen darfst du es selber.

Sonderbaar

Zitat von Tuxedo

Du hast Glück weil ich gerade etwas Zeit übrig hatte.

Da du dich unnötig kompliziert ausgedrückt hast, hab ich nicht wirklich verstanden was du wolltest,

aber ich denke mein Script sollte in die richtige Richtung gehen.

An deine Bedürfnisse anpassen darfst du es selber.

Ja danke zumindest wird die Combobox aus dem Array heraus bedient... ist quasi der zweite Teil meiner Frage

Echt wars so kompliziert? Ich versuche eigentlich immer alles so haarklein wie möglich zu formulieren, dass es (hoffentlich) jeder versteht...

Ganz unverständlich wars ja nicht, denn Alpines hat den ersten Teil geliefert... Danke dafür!