Beiträge von BugFix

Zitat von Alina

FileMove

Nimm lieber

1. FileCopy

2. (wenn die Quelle nicht mehr gebraucht wird) FileDelete

Zitat von Alina

die ausgewählte Datei vorher.abc in nachher.123 (Beispielname) umbenennen und mit diesem Dateinamen dann bei $sFileRead weiter arbeiten

Was ist der Sinn? Wenn du eine andere Datei, als die ausgewählte verarbeiten willst (diese muss demzufolge bereits existieren!), dann lass doch diese Datei auswählen.

Oder ist die ausgewählte ein Template und soll als Arbeitsdokument demzufolge einen anderen Namen erhalten? In diesem Fall:

$selectedTemplate = FileOpenDialog(....)
$workingFile = "Working\Document\Path"
FileCopy($selectedTemplate, $workingFile, $FC_CREATEPATH)

Zitat von Alina

FileRename hat autoit ja nicht

Kannst du dir schnell erstellen

Func _FileRename($_sSource, $_sDestination, $_bSourceDelete=True)
    If Not FileExists($_sSource) Then Return SetError(1,0,0) ; $_sSource not exists
    If Not FileCopy($_sSource, $_sDestination, $FC_CREATEPATH) Then
        Return SetError(2,0,0) ; $_sDestination exists
    Else
        If $_bSourceDelete Then FileDelete($_sSource)
    EndIf
    Return 1
EndFunc

Zitat von Alina

nur an den Dateinamen (ohne Dateiendung)

$path = "Dir1\Dir2\file.Name.ext"
$posLetzterBS = StringInStr($path, "\", 0, -1)
$fileExt = StringTrimLeft($path, $posLetzterBS)

$posDot = StringInStr($fileExt, ".", 0, -1) ; letzten "." suchen, Dateiname darf Punkt enthalten
$fileName = StringLeft($fileExt, $posDot -1)
ConsoleWrite("@@_Debug_line" & @TAB & @TAB & @ScriptLineNumber & "   var: $fileName --> " & $fileName & @LF)

Schau dir in der Hilfe mal an:

FileRead

StringSplit

und für die GUI:

GuiCreate

GuiCtrlCreateEdit - kannst die Daten aber auch als Label anzeigen lassen: GUICtrlCreateLabel

GUICtrlSetData

Zitat von AspirinJunkie

als hättest du es geschafft die Funktionalität simpler und effektiver umzusetzen als bei meiner JSON_Get.

Danke für die Blumen - aber nicht wirklich.

_JSON_Query ist quasi _JSON_Get mit der Möglichkeit statt Indizes Bedingungen für die Arrays zu übergeben.

Im Prinzip mache ich nur Folgendes:

• sind Bedingungen in den Array-Pattern enthalten?

wenn nein: Return _JSON_Get mit dem übergebenen Pattern (Man braucht also _JSON_Get nicht mehr aufrufen, macht _JSON_Query sowieso)

wenn ja:

• erste Arrayposition mit Bedingung im Pattern suchen

• den Teil des Patterns davor (repräsentiert das Array) mit _JSON_Get abfragen - liefert das Array

• durch dieses Array iterieren und vergleichen ob der Schlüssel an der Indexposition den Wert aus der Bedingung liefert - wenn ja: das ist der gesuchte Index

• im Ausgangspattern die Bedingung mit dem gefundenen Index ersetzen

• das Ganze wiederholen bis keine Bedingung mehr gefunden wird

Jetzt enthält das Pattern statt der Bedingungen die zugehörigen Indizes.

Mit diesem Pattern rufe ich jetzt _JSON_Get auf

Zitat von AspirinJunkie

Ich würde diesen Denkansatz spontan gerne verwenden um die JSON_Get-Syntax, nach deiner Zustimmung, um eine Filterfähigkeit zu erweitern, anstatt eine Extra-Funktion mit hinzuzufügen (Credits natürlich entsprechend anpassen).

Kannst Du gerne tun.

Zitat von AspirinJunkie

Im Grunde überlege ich auch die Funktion namentlich von JSON zu trennen, da die Funktion JSON_Get als auch deine JSON_Query() eigentlich gar nicht auf JSON beschränkt ist sondern allgemein verschachtelte AutoIt-Strukturen behandeln kann.

Da ist was dran. Ich hatte auch schon überlegt, wie ich das SQL-ähnlich gestalten kann, um auch komplex Filtern zu können, z.B. aus einer JSON / einer Map / einem Array ... mit Personendaten (sagen wir mal: "Name", "Vorname", "Geschlecht", "Alter", "PLZ", "Ort", "Strasse", "Nr", "Beruf", "Jahreseinkommen") wollen wir alle Männer unter 40 mit einem jährl. Einkommen von XYZ im PLZ-Gebiet 10... abfragen. Wir können also zwischen 0 und n Ergebnisse bekommen - das Ergebnis dann wiederum in einer brauchbaren Form ausgeben (enumeriertes Array, Map, Dictionary...).

Die Syntax kann man tatsächlich extrem zusammenstreichen:

select - braucht man nicht, ist das einzige Ziel beim Filtern

fields - ja, das muss sein

from table - braucht man auch nicht, ist immer rückbezüglich auf die Position im Pattern

where - das Schlüsselwort ist auch unnütz, na klar kommen nun die Bedingungen

conditions - genau, das brauchen wir

Bleibt nur die Gestaltung der Operatoren, da liebäugele ich mit den C++/Phyton Operatoren: and = &&, or = Doppelte-Pipe (wird vom Editor als Smiley gezeigt), not = !. (Symbole sind m.M.n. einfacher/eindeutiger zu Parsen, als Worte). Zusätzlich natürlich: < = > und auch contains - wobei ich dafür wiederum auch ein Symbol verwenden würde, vielleicht: ?

Damit sollten eigentlich wesentliche Filteroperationen möglich sein. Es wird sicher nur etwas aufwändig, die Auswertelogik zu gestalten (Berücksichtigung aller Klammerausdrücke, Rangfolge der Operatoren). Aber es hat ja auch keiner behauptet, dass sowas ein Spaziergang sei.

Hi AspirinJunkie ,

ich habe mal eine zusätzliche Funktion erstellt, die es erlaubt anstelle von einem Index für ein Array, eine Bedingung zur Identifizierung des Index zu übergeben.
Solange ein Array nur Werte enthält, ist das uninteressant. Habe ich aber Schlüssel-Wert Auflistungen, kann ich anhand des Wertes eines Schlüssels den Eintrag im Array lokalisieren.

Bisher würde ich mir das Array ausgeben lassen und dann das Array weiter abfragen.

Ich fand es aber reizvoll die Bedingungen der Auswahl anstelle des Index zu übergeben und direkt auf den Inhalt zuzugreifen. Das funktioniert in der Form auch verschachtelt.

Hier mal mein Bsp. JSON

{
  "date": "2022-11-10",
  "author": "BugFix",
  "errorlist": [
    {
      "err": 1,
      "name": "NO_BATTERY",
      "special": [
        {
          "voltage": 12.5,
          "model": "alpha"
        },
        {
          "voltage": 15,
          "model": "beta"
        },
       {
          "voltage": 24,
          "model": "gamma"
        }      ]
    },
    {
      "err": 2,
      "name": "DISPLAY_ERR",
      "special": [
        {
          "voltage": 12.5,
          "model": "delta"
        },
        {
          "voltage": 15,
          "model": "epsilon"
        },
        {
          "voltage": 24,
          "model": "zeta"
        }
      ]
    }
  ]
}

Hier meine Funktion

#include "JSON_Dictionary.au3"
; #FUNCTION# ======================================================================================
; Name ..........: _JSON_Query
; Description ...: Call function for _Json_Get that converts passed conditions into the corresponding array indices.
;                  DictionaryKey1.DictionaryKey2.[Condition_4_Determining_The_Index].DictionaryKey3...
;                  Condition: "key_in_array = value"
; Syntax ........: _JSON_Query(ByRef $o_Object, $s_Pattern)
; Parameters ....: $o_Object      - a nested AutoIt datastructure (Arrays, Dictionaries, basic scalar types)
;                  $s_Pattern     - query pattern like described above
; Return values .: Success - Return the queried object out of the nested datastructure
;                  Failure - Return "" and set @error to:
;                        @error = 1 - pattern is not correct
;                              = 2 - keyname query to none dictionary object
;                              = 3 - keyname queried not exists in dictionary
;                              = 4 - index query on none array object
;                              = 5 - index out of array range
; Author ........: BugFix
; =================================================================================================
Func _JSON_Query(ByRef $o_Object, $s_Pattern)
    ; check for index-condition, replace condition with its index
    Local $sCondPattern = '\[([\D\S][^\]]+)\]', $aSplitCond, $sPatternNew = $s_Pattern, $sPatternPart, $aTmp
    If StringRegExp($s_Pattern, $sCondPattern) Then
        Local $iOffset = 1, $aCondition
        While True
            $aCondition = StringRegExp($sPatternNew, $sCondPattern, 1, $iOffset)
            If @error Then
                ExitLoop
            Else
                $iOffset = @extended
                $sPatternPart = StringLeft($sPatternNew, $iOffset -1) ; gets: DictionaryKey1.DictionaryKey2.[Condition4DeterminingTheIndex]
                $sPatternPart = StringLeft($sPatternPart, StringInStr($sPatternPart, '.[', 0, -1) -1) ; gets: DictionaryKey1.DictionaryKey2
                $aTmp = _JSON_Get($o_Object, $sPatternPart)
                ; now search the index by condition
                $aSplitCond = StringRegExp($aCondition[0], '\s*(.+)\s*=\s*(.+)', 1)
                For $i = 0 To UBound($aTmp) -1
                    If $aTmp[$i].Item($aSplitCond[0]) = $aSplitCond[1] Then
                        $iOffset -= (StringLen($aSplitCond[0]) - StringLen($i))
                        $sPatternNew = StringReplace($sPatternNew, $aCondition[0], $i)
                        ExitLoop
                    EndIf
                Next
            EndIf
        WEnd
        $s_Pattern = $sPatternNew
;~         ; ConsoleWrite("@@_Debug_line" & @TAB & @TAB & @ScriptLineNumber & "   var: $sPatternNew --> " & $sPatternNew & @LF)
    EndIf
    Return _JSON_Get($o_Object, $s_Pattern)
EndFunc   ;==>_JSON_Query


Global $sJson = _
'{' & @CRLF & _
'  "date": "2022-11-10",' & @CRLF & _
'  "author": "BugFix",' & @CRLF & _
'  "errorlist": [' & @CRLF & _
'    {' & @CRLF & _
'      "err": 1,' & @CRLF & _
'      "name": "NO_BATTERY",' & @CRLF & _
'      "special": [' & @CRLF & _
'        {' & @CRLF & _
'          "voltage": 12.5,' & @CRLF & _
'          "model": "alpha"' & @CRLF & _
'        },' & @CRLF & _
'        {' & @CRLF & _
'          "voltage": 15,' & @CRLF & _
'          "model": "beta"' & @CRLF & _
'        },' & @CRLF & _
'        {' & @CRLF & _
'          "voltage": 24,' & @CRLF & _
'          "model": "gamma"' & @CRLF & _
'        }' & @CRLF & _
'      ]' & @CRLF & _
'    },' & @CRLF & _
'    {' & @CRLF & _
'      "err": 2,' & @CRLF & _
'      "name": "DISPLAY_ERR",' & @CRLF & _
'      "special": [' & @CRLF & _
'        {' & @CRLF & _
'          "voltage": 12.5,' & @CRLF & _
'          "model": "delta"' & @CRLF & _
'        },' & @CRLF & _
'        {' & @CRLF & _
'          "voltage": 15,' & @CRLF & _
'          "model": "epsilon"' & @CRLF & _
'        },' & @CRLF & _
'        {' & @CRLF & _
'          "voltage": 24,' & @CRLF & _
'          "model": "zeta"' & @CRLF & _
'        }' & @CRLF & _
'      ]' & @CRLF & _
'    }' & @CRLF & _
'  ]' & @CRLF & _
'}' & @CRLF


Global $oJson = _JSON_Parse($sJson)
If @error Then ConsoleWrite('@error: ' & @error & @CRLF)

ConsoleWrite("err=2.model=epsilon.voltage: " & _JSON_Query($oJson, "errorlist.[err=2].special.[model=epsilon].voltage") & @CRLF)

Zitat von Moombas

Wenn man ein ArrayofStruct hat, dieses "einfach" zu speichern.

Ich vermute das man dafür eine eigene Fumnktion bauen muss, richtig?

Die ist doch enthalten im Bsp.: _WriteData

• JSON Datei in einer Anwendung erstellen

• Daten Hinzufügen

• Daten Ändern

import std/[json, os]
import winim/lean # für msgBox

#-------------------------------------------------------------------------------
proc msgBox(caption, text: string, flag: int = 0) =
  let
    lpcaption = newWideCString(caption, caption.len)
    lptext = newWideCString(text, text.len)
    uType = cast[UINT](flag)
  MessageBox(0, cast[LPCWSTR](lptext), cast[LPCWSTR](lpcaption), uType)
#-------------------------------------------------------------------------------


let jsonFile = "test.JSON"
var parsedJson: JsonNode


if fileExists(jsonFile):  # bestehende JSON lesen
  parsedJson = parseFile(jsonFile)
else:                     # JSON erstellen
  parsedJson = %* {"date": "2022-11-10", "author": "BugFix"}


msgBox("Inhalt \"parsedJson\" nach Start", parsedJson.pretty(), 64)


# Daten hinzufügen (wenn noch nicht vorhanden)
if not parsedJson.contains("errorlist"):
  parsedJson["errorlist"] = %* [{"err": 1, "name": "NO_POWER"}, {"err": 2, "name": "DISPLAY_ERR"}]
  msgBox("Inhalt \"parsedJson\" nach Hinzufügen", parsedJson.pretty(), 64)


# Daten ändern: Change "name" bei "err: 1"
for jsne in parsedJson["errorlist"].getElems():
  if jsne["err"].getInt() == 1:
    if jsne["name"].getStr() == "NO_POWER":
      jsne["name"] = newJString("NO_BATTERY")
      msgBox("Inhalt \"parsedJson\" nach Änderung", parsedJson.pretty(), 64)
    break


# in Datei schreiben
writeFile(jsonFile, pretty(parsedJson))

Zitat von Moombas

wäre bei PLZ nicht int anstatt char besser?

Nein: Es gibt PLZ, die mit "0" beginnen.

Zitat von Moombas

Dauert das denn signifikannt länger?

Was passiert beim ReDim:

- Speicherplatz in neuer Größe anfordern

- Daten vom alten Speicherplatz an den neuen Speicherplatz kopieren

- alten Speicher freigeben

D.h., mit jedem Element das hinzukommt, wird ein Element mehr kopiert beim ReDim. Für kleine Größen sicher nicht relevant, aber wenn das anwächst wird es spürbar.

Und selbst wenn du es nicht unbedingt spürst, ist es für meinen Geschmack einfach unschön. (Und in Zeiten, wo man von Nachhaltigkeit spricht: Das kostet auch Energie. )

Zitat von Moombas

Wäre es nicht besser auch dieses Array dynamisch zu vergrößern anstatt einen fix-wert zu nutzen, der sich ja immer ändern kann?

Bei Arrays, wo die finale Größe immer gleich ist mach ich das auch so aber bei welchen wie hier die unter bestimmten Bedingungen eine andere Größe haben können mag ich den dynamischen Gedanken wesentlich lieber.

Wenn viele Einträge zu erwarten sind, sollte man das kontinuierliche Vergrößern des Array (_ArrayAdd, ReDim) vermeiden. Jede dieser Aktionen braucht gefühlt mehr Zeit als der Rest des Skriptes.

Wenn man nicht weiß, wieviel Einträge zu erwarten sind, legt man erst mal eine fiktive Größe von 1000 vor (kann auch 10.000 sein, tut niemandem weh). Und nach jeder Vergrößerung des Zählers prüft man, ob dieser Wert erreicht wurde. Wenn ja, wird an dieser Stelle ein ReDim mit Erweiterung des Array um die Blockgröße vorgenommen. Somit sind die Vorteile von fixem Array und Dynamik vereint.

Kann dann so aussehen:

Global $iBlockSizeArray = 500
Global $iCountArray = 0
Global $aResult[$iBlockSizeArray][2]

For $a In $b
    If $iCountArray +1 > UBound($aResult) Then ReDim $aResult[UBound($aResult) +$iBlockSizeArray][2]
    ; .. Code
    $aResult[$iCountArray][0] = ....
    $aResult[$iCountArray][1] = ....
    $iCountArray += 1
Next

Zitat von hipfzwirgel

oder der Variante von Bugfix fallen die Zeilen ab Nr. 77 weg...

Wenn du die Startgröße erweiterst, wird alles angezeigt.

Local $aBiosArray[200][2]  ; hier z.B. 400 statt 200

Probier mal so:

Func LEN_BiosSettings()

    Local $wbemFlagReturnImmediately = 0x10
    Local $wbemFlagForwardOnly = 0x20
    Local $colItems = ""
    Local $strComputer = "localhost"
    Local $aBiosArray[200][2]
    Local $nCount = 0, $sSetting, $aSplit
    Local $a_String


    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\WMI")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Lenovo_BiosSetting", "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            $sSetting = $objItem.CurrentSetting
            If $sSetting <> "" Then
                $aSplit = StringSplit($sSetting, ",")
                $aBiosArray[$nCount][0] = $aSplit[1]
                $aBiosArray[$nCount][1] = $aSplit[2]
                $nCount += 1
            EndIf
        Next
        ReDim $aBiosArray[$nCount+1][2]
    Else
        MsgBox(0, "WMI-Ausgabe", "Keine WMI-Objekte gefunden für Klasse: " & "Lenovo_BiosSetting")
    EndIf

    _ArrayDisplay($aBiosArray)


EndFunc   ;==>LEN_BiosSettings

Zitat von BugFix

Ich weiß nicht, ob geänderte Anzeigeeinstellungen (Zoom, Schriftdarstellung etc.) darauf Einfluss haben können

Zitat von HoT

Nachdem ich einen 32Zoll Monitor habe, habe ich die Windows Anzeigeeinstellungen bei Skalierung und Anordnung auf 150% stehen.

Als ich sie auf 100% eingestellt habe hat alles so funktioniert, wie es sollte.

Mein Reden.

Programm:   349,215,1175,1021  B: 826, H: 806
Bild:       253,168,871,823    B: 618, H: 655
Differenz:  -96,-47              -208,   -151

Das ist nicht nur verschoben, sondern auch die Größe ist verändert.

Ich weiß nicht, ob geänderte Anzeigeeinstellungen (Zoom, Schriftdarstellung etc.) darauf Einfluss haben können. Aber irgendwas scheint bei dir nicht "normal" eingestellt.

Zitat von HoT

Das heißt, er hat links und oben zuviel aufgenommen, dafür unten und rechts zu wenig.

Kann ich nicht nachvollziehen.

Also um nicht aneinander vorbeizureden:

Ausgeführt wird der Code aus Post #3. Ein Screenshot von eben diesem Code im Browserfenster wird erstellt.

Mein "Bild.jpg" zeigt dann exakt den markierten Bereich.

Vor allem können wir uns dem Problem nicht nähern, wenn du nicht alle Informationen zusammen angibst. Du schreibst "Orginalkoordinaten wären:..." - erwähnst aber nicht die Koordinaten, die vom Skript ausgegeben werden. Anhand der Differenz kann man evtl. Schlussfolgerungen auf dein Problem ziehen.

Zitat von HoT

Aber wie im Beispiel zu sehen ist, sind die Koordinaten verschoben.

Da ich nicht weiß, wie dein gesamter Screen aussieht, ist für mich nicht ersichtlich, dass dort etwas verschoben ist.

200 px von links, 200 px von oben, Breite x Höhe: 1000 x 1400 passt zu deinem geposteten Bildausschnitt. Der linke Rand ist definitiv OK, der obere Rand ist natürlich davon abhängig, an welche Position du den dort zu sehenden Post gerade gescrollt hattest.

Zitat von HoT

Woran könnte dies liegen?

Schau dir mal die Optionen für die Koordinaten an:

au3windowinfo.png

Leichenschänder

Und: Wasser löst auch das Problem des TE. Hätte er es sich kalt über den Kopf gegossen, wäre ihm der Gedanke einer Google Suche selbst gekommen.

Ein Beitrag, der sogar für Off-Topic zu sehr Off-Topic ist.