Beiträge von autoBert

Hallo BigRox,

im Entwicklerforum gibt es eine UDF dafür: https://www.autoitscript.com/f…=comments#comment-1389908.

Du kannst dir aber auch einmal ine Hilfe das Beispiel zu _GUIScrollBars_Init (besonders die ChildGui links unten) anschauen, vielleicht kommt di dab ja noch eine andere Idee,

mfg (auto-) Bert

Zitat von Lanealine

Ich suche nach einer Einstellung, dass mir in der Errormsg die Line ausgibt, in der das Script abgestürzt ist. (Line 8324 ist es nicht)

Du vergisst, dass die Include-Files mit eingebunden werden! Wenn du dein Skript durch den Au3-Stripper (/mo) laufen lässt, kannst du im gestripten File die Zeilen-Nr. mit Code einsehen.

Zitat von kyloe

Was ich immer noch nicht verstehe: Warum geht es mit dem exitloop nach dem else bei den Inputs "EAN" und "Menge", aber nicht bei Charge?

Nach EAN wird der Cursor mit CotrolClick auf das Chargen-Input gesetzt

Nach Menge wird die GUI gelöscht und neu aufgebaut, Cursor ist daher in EAN.

Wenn du nach Charge den Cursor mit ControlClick auf Menge setzt funktioniert auch das.

mfg (auto)Bert

Bin mir mittlerweile sicher das du Menge so wie Charge (dort macht du es) vorbereiten solltest:

    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]")
    ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]", "")

Der ControlClick setzt den Eingabecursor, das leere Eingabefeld scheint erwünscht.

mfg (auto)Bert

Dann ändere einmal zu:

     While 3
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Input2
                MsgBox(0, 'Input2', 'Eingabe erfolgt!', 5)
                $charge = GUICtrlRead($Input2)
                ; Erste Bedingung
                Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
                If @error Then
                    MsgBox(0, 'Input2', 'Eingabe fehlerhaft!')
                    ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
                    ; Zweite Bedingung
                    ;If StringLen($charge)<>8 Then
                    ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                    ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
                Else
                    ExitLoop
                EndIf
        EndSwitch
    WEnd 
    MsgBox(0, 'Input2', 'Eingabe richtig = EXITLOOP!!!', 5)
;    ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]")

Außerdem noch die beiden aderen sleeps etfernen, da unnötig.

Falls die MsgBox EXITLOOP erscheint sich aber trotzdem nichts tut einfach die letzte Zeile aktivieren. ContrrolClick verwendest du ja auch um in das Input für Charge zu wechseln.

mfg (auto)Bert

Diie Analyse von:

    While 3
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input2
            Sleep(500)
            $charge = GuiCtrlRead($Input2)
            ; Erste Bedingung
            Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
            If @error Then
                ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            ; Zweite Bedingung
            ;If StringLen($charge)<>8 Then
                ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            Else
                ExitLoop
            EndIf
    EndSwitch
    WEnd

lässt nur 2 Schlüsse zu:

1. Die Eingabe erfolgt nicht in $Input2 (unwarscheinlich, da es in den beiden anderen Inputs ja klappt)
2. Der StringRegExp löst einen Error aus (auch unwarscheinlich, da es an 2 anderen Arbeitsplätzen klappt)

Um das Geheimnis zu lüften kannst du zu Debugzwecken MsgBoxen einbauen:

    While 3
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Input2
            MsgBox(0, 'Input2', 'Eingabe erfolgt!')
            Sleep(500)
            $charge = GuiCtrlRead($Input2)
            ; Erste Bedingung
            Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
            If @error Then
                MsgBox(0, 'Input2', 'Eingabe fehlerhaft!')
                ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            ; Zweite Bedingung
            ;If StringLen($charge)<>8 Then
                ;ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
                ;ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
            Else
                MsgBox(0, 'Input2', 'Eingabe richtig = EXITLOOP!!!')
                ExitLoop
            EndIf
    EndSwitch
    WEnd

mfg (auto)Bert

Zitat von wuff100

vielen Dank, Du hast den Kaffeesatz hervorragend aufgegossen und verstanden!

Danke, aber da auch

Zitat von autoiter

Hauptsache ist aber, dass es sich hier gar nicht um flexible Werte handelt.

ReDim $aTMP[$imCol][2] ist immer gleich groß. Es ist immer $aTMP[UBound($aArray_Base, 2)][2]. Oder sehe ich das falsch? Wenn nicht, ist es ein Fehler, das in die Schleife zu packen. Es muss nur einmal ausgeführt werden.

Recht hat kannst du noch zu

#include <Array.au3>


Local $aArray


Local $aArray_Base[3][3] = [["Wert 1", "Wert 2", "Wert 3"], ["10", "20", "30"], ["40", "50", "60"]]

;_ArrayDisplay($aArray_Base, "2D array")

$imCol = UBound($aArray_Base, 2) ;$UBOUND_Columns
$imRow = UBound($aArray_Base, 1) ;$UBOUND_ROWS

Dim $aTMP[$imCol][2]

For $iRows = 1 To $imRow - 1 ;
    For $iCols = 0 To $imCol - 1
        $aTMP[$iCols][0] = $aArray_Base[0][$iCols]
        $aTMP[$iCols][1] = $aArray_Base[$iRows][$iCols]
    Next
    _ArrayDisplay($aTMP, $iRows)
Next

abändern, bingt noch einnige milliSekunden.

mfg (auto)Bert

Zitat von autoiter

Da hast wohl versehentlich die ReDim Zeile in die Schleife gepackt

war volle Absicht, kann (sollte?) mit DIM ersetzt werden.

Ich hab den Kaffesatz mal aufgegossen:

#include <Array.au3>


Local $aArray, $aTMP[2][2]


Local $aArray_Base[3][3] = [["Wert 1", "Wert 2", "Wert 3"], ["10", "20", "30"], ["40", "50", "60"]]

;_ArrayDisplay($aArray_Base, "2D array")

$imCol = UBound($aArray_Base, 2) ;$UBOUND_Columns
$imRow = UBound($aArray_Base, 1) ;$UBOUND_ROWS -1

For $iRows = 1 To $imRow - 1 ;
    ReDim $aTMP[$imCol][2]
    For $iCols = 0 To $imCol - 1
        $aTMP[$iCols][0] = $aArray_Base[0][$iCols]
        $aTMP[$iCols][1] = $aArray_Base[$iRows][$iCols]
    Next
    _ArrayDisplay($aTMP, $iRows)
Next

Das Skript liefert mit den gegebenenDaten das gewünschte Ergebnis. Ob der Aufguss auch stark genug für grössere Datenmengen ist musst du selbst austesten. Das Zwischenpeichern der UBound Dimensionen geschieht aus Performancegründen

mfg (auto)Bert

Zitat von Peter S. Taler

Hast Du zufällig Ahnung ob es außer den Umweg über den Browser ein html Print tool (Kommandozeile gibt?

ShellExecute mit $SHEX_PRINT beim Parameter verb sollte dies problemlos (ohne sichtbares Browser öffnen) tun.

Stehe anscheinend auf dem Schlauch, kannst du einmal das Ergebnis-Array posten und dazu die gewünschte Ausgabe-LV z.B. in Excel Tabelle.

B.t.w: wenn du ein Array willst, warum nimmst du nicht _SQLite_GetTable2d anstelle von _SQLite_Query?

mfg (auto)Bert

Zitat von SchlafMoon

Ich habe ein problem mit dem start stop knopf + wenn ich auf start gedrückt habe funktioniert das Programm aber so bald ich stop drücke oder versuche die Gui zu schließen geht das nicht

Das liegt an deiner Programmlogik. Hier ein kleines Skript:

;https://autoit.de/index.php?thread/83656-button-klick-erkennen-wenn-funktion-l%C3%A4uft-so-wie-ein-hotkey/&postID=669356#post669356
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>



$gui = GUICreate("KLeines 1 X 1", 400, 120)
$Start = GUICtrlCreateButton("&Start", 10, 10)
$PauseResume = GUICtrlCreateButton("&Pause", 10, 40)
$Anzeige = GUICtrlCreateLabel("Anzeige", 10, 90, 380)
GUISetState()

While 1
    _EventHandler()
WEnd


Func _EventHandler()
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start
            GUICtrlSetState($Start, $GUI_DISABLE)
            For $i = 1 To 10
                For $j = 1 To 10
                    $sToSend = $j & " * " & $i & " = " & $i * $j
                    GUICtrlSetData($Anzeige, $sToSend)
                    _MySleep(200)
                Next
            Next
            GUICtrlSetState($Start, $GUI_ENABLE)
        Case $PauseResume
            If GUICtrlRead($PauseResume) = "&Pause" Then
                GUICtrlSetData($PauseResume, "&Weiter")
                While GUICtrlRead($PauseResume) <> "&Pause"
                    _MySleep(50)
                WEnd
            Else
                GUICtrlSetData($PauseResume, "&Pause")
            EndIf
    EndSwitch
EndFunc   ;==>_EventHandler


Func _MySleep($iMSec)
    Local $iStart = TimerInit()
    Do
        _EventHandler()
    Until TimerDiff($iStart) >= $iMSec
EndFunc   ;==>_MySleep

welches demonstriert, wie eine Schleife pausiert und wieder fortgeführt werden kann. Wie du am Link in Zeile 1 siehst, bist du nicht der einzigste mit diesem Logik Problem.

mfg (auto)Bert

@Oscar's Starplayer benutzt diese Technik.

Stell doch einfach dein bisheriges Skript ein, dann ist es einfacher.

Ansonsten in der benutzten Func zum Ermitteln der Dateien (z. B.: _FileListToArrayRec) einfach den entsprechenden Schalter ($FLTAR_FileS) benutzen. Eine andere Möglichkeit, allerndings evtl langsamer, in der sicher benutzeten Schleife vor jedem Eintrag auf Datei bzw. Ordner prüfen.

mfg (auto)Bert

Zitat von Bitnugger

Das SSO steht für Single Sign-on und der unbekannte Benutzer bist Du!

Mir macht es nichts aus, mich noch einmal anzumelden. Und in der derzeitigen Umgebung, mit der gelegentlich künstlichen Hektik, macht das Entfernen der Anmeldedaten jetzt noch mehr Sinn!

Und es muß doch möglich sein das generierte Device über die Eingabeaufforderung zu entfernen.

mfg (auto)Bert

Bei Erfolg würdest du den Sinn einer Sandbox ad Absurdum führen. Falls du es trotzdem schaffst, nenne bitte das Produkt, damit andere diese Sandbox meiden können.

Zitat von chip

Aber der Dienst also solches IST trotzdem installiert.

Den Dienst kann ich im Takmanager nicht finden. Wenn ich keinen Account habe, brauche ich auch diese Hintrtür für M$ und Co. nicht. Wie gesagt die genneriche Anmeldungsdaten für den Benutzer kann ich löschen, jetzt hätte ich auch gerne noch das Device entfernt bevor irgend jemand ein Schlupfloch findet und darauf Zugriff erhält.

mfg (auto)Bert

Zitat von chip

Und wie hast du das bei Windows 10 gemacht? Microsoft OneDrive alias SkyDrive ist dort standardmäßig enthalten

Wenn man wenig Geld hat, muß man auch NEIN zu kostenlosen Angeboten sagen können. Und M$ ist so freundlich und fragt vorher.

mfg (auto)Bert

Zitat von chip

Ich vermute einmal du meinst den Account "SSO_POP_Device". Der wird automatisch von Windowsprogrammen (z.b. SkyDrive) angelegt welche "Windows Live Essentials" nutzen.

Genau dieses Device ist es. Ich habe aber (aus Kostengründen) keinen Onlinespeicher installiert und auch kein Programm aus der Aufzählung. Bei EMails benutze ich eine Alternative, Instant-Messenger, Fotogallerie etc. benötige ich nicht. Und was soll ein überzeugter Single + Rentner mit einer Kindersicherung (auf dem PC)?

Die generische Anmeldeinformation kann ich mittlerweikle erfolgreich automatisiert löschen, wie lösche ich das Device in der Eingabeaufforderung?

mfg (auto)Bert

Zitat von Musashi

Bei allen anderen Beispielen zu _FTP... steht korrekt : $sServer = 'ftp.csx.cam.ac.uk'

Damit erhält man dann auch das - korrekte- Rückgabearray :

das Array ist auch nicht kprrekt, es fehlen Erstellungsdatum und Zugriffsdatum. Seltsamerweise kommt jetzt das Modifik ationdatum, stattdesen wird das Erstellungsdatum unterschlagen. Doch ein Fehler in der _FTPEx.au3?