INIRead -> Array -> vergleichen -> INIWrite

Hi @all

Möchte diverse Werte aus 4 INI Dateien auslesen, diese miteinander vergleichen und zusammengefasst in eine neue INI setzen. Leider hapert es an der ganzen Array Geschichte, sodass ich net weiter komme. Das hier sind die Ansätze um die Werte erstmal zu bekommen...

#include <Array.au3>

Local $sFiles[5] = [[4], ["1.ini"], ["2.ini"], ["3.ini"], ["4.ini"]]

Local $aSection[5][2] = [[4, ""], ["VARIABLE", "drive"], ["DEFAULTS", "typ"], ["COUNTRY", "country"], ["BASIS", "Wert"]]

Local $sArray[1]


    For $i = 1 To UBound($sFiles) - 1

        If FileExists(@ScriptDir & "\" & $sFiles[$i]) Then

            For $j = 1 To UBound($aSection) - 1

                    $read = IniRead(@ScriptDir & "\" & $sFiles[$i], $aSection[$j][0], $aSection[$j][1], "")
                    If Not @error Then

                        ; ???

                    EndIf

            Next

        EndIf
    Next

Das was ausgelesen wird, soll verglichen werden (Array?). Im Normalfall sind die ersten 3 Keys identisch und der Letzte unterschiedlich.

1.INI -> C: C DE 1
2.INI -> C: C DE 2
3.INI -> C: C DE 3
4.INI -> C: C DE 4

Zusammengefasst sollte es dann so ausschauen.

[VARIABLE]
drive=C:
typ=C
country=de
wert=1,2,3,4

Hoffe das jemand von Euch eine Idee dazu hat? Danke schonmal...

Zitat von alpines

Der Ansatz ist ja schon mal nicht schlecht, alle Dateien durchgehen und die Ergebnisse abspeichern.

Vom Abspeichern ist das noch weit entfernt Es soll ja geprüft werden ist die Datei vorhanden, wenn ja die Werte auslesen und daraufhin ein Array mit den Werten erstellen.

Wenn ich vorher eines erstelle, jedoch eine/mehrere/alle INI Dateien nicht vorhanden sind bleibt das ja alles leer?!

Zitat von alpines

Nur hast du keine Ahnung wie du die Vergleiche anstellen sollst, aber das ist kein Problem.

Das ist dann das nächste Übel...

Thx 4 reply. Hab noch ein bißchen probiert und "gekürzt" und bekomme die Werte nun im Array angezeigt...

#include <Array.au3>

Local $sFiles[4] = [["1.ini"], ["2.ini"], ["3.ini"], ["4.ini"]]

Local $aSection[4][2] = [["VARIABLE", "drive"], ["DEFAULTS", "typ"], ["COUNTRY", "country"], ["BASIS", "Wert"]]

Local $sArray[4][4]


    For $i = 0 To UBound($sFiles) - 1

        If FileExists(@ScriptDir & "\" & $sFiles[$i]) Then

            For $j = 0 To UBound($aSection) - 1

                    $read = IniRead(@ScriptDir & "\" & $sFiles[$i], $aSection[$j][0], $aSection[$j][1], "")
                    If Not @error Then

                        $sArray[$i][$j] = $read

                    EndIf

            Next

        EndIf
    Next

_ArrayDisplay($sArray)

Primitiv, ich weis - aber die Werte stehen erstmal drin. Habe $sArray auf [4][4] gesetzt, weil das die max. zu erwartende Menge ist. Wenn das automatisch erweitert werden soll, wird das doch per ReDim gelöst (habe auf der HP von bug-fix gelesen und es so verstanden?!). Von Errorhandling mal ganz abgesehen. Mühsam ernährt sich das Eichhörnchen bzw. im dem Fall das Wiesel

alpines

Wenn dann möchte ich es doch richtig wissen, mit so halben Sachen gebe ich mich auch net zufrieden Wenn ich das so mache u. ne Datei fehlt, habe ich ne leere Zeile drin. Da weis ich net inwieweit es das Verleichen beeinträchtigt? Das ist jetzt mit ReDiM Option so wie ich es auf der Seite von BugFix entnehmen konnte. Den wert= für die neue INI konnte ich damit schon ermitteln.

#include <array.au3>

Local $sFiles[4] = [["1.ini"], ["2.ini"], ["3.ini"], ["4.ini"]]

Local $aSection[4][2] = [["VARIABLE", "drive"], ["DEFAULTS", "typ"], ["COUNTRY", "country"], ["BASIS", "Wert"]]

Local $sArray[1][4]

Local $drive, $typ, $country, $basis

    For $i = 0 To UBound($sFiles) - 1

        If FileExists(@ScriptDir & "\" & $sFiles[$i]) Then

            For $j = 0 To UBound($aSection) - 1

                    $read = IniRead(@ScriptDir & "\" & $sFiles[$i], $aSection[$j][0], $aSection[$j][1], "")
                    
                    If Not @error Then
                        If $read <> "" Then
                            If $sArray[Ubound($sArray)-1][$j] <> '' Then
                                ReDim $sArray[Ubound($sArray)+1][4]
                            EndIf

                            $sArray[Ubound($sArray)-1][$j] = $read
                        EndIf
                    EndIf
            Next
        EndIf
    Next

;_ArrayDisplay($array


For $k = 0 To UBound($sArray) - 1

    $basis &= $sArray[$k][3] & ","

Next

ConsoleWrite(StringTrimRight($basis, 1) & @CRLF)

Wie gesagt, funktioniert - ob es korrekt ist entzieht sich meiner Kentniss. Wenn einer der sich damit auskennt Fehler sieht oder weis wie man es kürzen kann, wäre ich dankbar dafür!

Werde jetzt erstmal noch ein bißchen lesen u. probieren wie ich die Werte vergleichen kann. Als Ausgangswert möchte ich dazu die erste Zeile des Array's ( $sArray[0][x] ) verwenden.

Zitat von alpines

So wie du das gelöst hast kann man das deutlich kürzen.

Wenn man das nötige Know-How hat mit Sicherheit! Hab grad geschaut, ich habs net

Zitat von alpines

Was ist denn wenn die letzte Datei als drive kein C: hat sondern D:? Dein Skript vergleicht doch nichts, das liest einfach nur den Wert in BASIS aus und hängt sie alle hintereinander,

Dann würde das Programm schon beim Starten Fehlermeldungen bringen, weil es den Dateiordner net lokalisieren/laden kann. Theoretischer Weise müssten VARIABLE, DEFAULTS und COUNTRY in jeder INI identisch sein! Da wäre der Vergleich rein rhethorisch - damit ich mich besser fühle und wieder was dazu gelernt habe. Nur bei Basis kommen unterschiedliche Werte raus, die einfach nur zusammen gefügt werden müssen.

Zitat von alpines

Wo speicherst du denn was ab? Wo überprüfst du ob da unterschiedliche Werte vorhanden sind?

Soweit bin ich doch noch nich Was ich für die zu erstellende INI brauch möchte ich in Local $drive, $typ, $country, $basis speichern. Wie ich es vergleiche, danach such ich jetzt, bis dahin sind die Werte im Array.