Beiträge von Sascha123456

  • txt umschreiben in andere Form

    Hi ich bräuchte noch ein anderes Pattern für die Auftragsnummer :)

    Wenn sie wie gewohnt 12345/000 lautet kein Problem, allerdings kann sie zb auch 12345/000 P2 lauten.

    Das bisherige Pattern ist "Auftrag\s+(\d+/\d+)", 3)

    Ich hab mal geschaut unter StringRegExp, aber wie muss man das kombinieren? Kann ich da einfach Zeichentypen in dem String mit einfügen die er berücksichtigen soll?

  • Jüngste Datei löschen

    Hmm scheinbar hast du recht :D

    Und kann man die Anzeige des Pfades in der MsgBox, also MsgBox(64, "Info", $sLatestFile & " wurde entfernt!") , auch ohne Pfad anzeigen lassen? Also das nur der Dateiname angezeigt wird der gelöscht wurde?

  • Jüngste Datei löschen

    Zitat von Oscar

    Was willst Du denn erreichen?

    Soll die letzte Datei gelöscht werden, wenn die Messung nicht in Ordnung war oder wenn sie in Ordnung war?

    Wenn sie nicht in Ordnung war soll sie gelöscht werden :)

    Ich erreiche doch mit dem Status der Variablen ob es weiter läuft oder beendet wird, also true or false , oder irre ich mich da?

  • Jüngste Datei löschen

    Oh super danke das werde ich mir mir anschauen!

    Ich habe jetzt versucht das script von bItnugger noch ein wenig zu modifizieren, allerdings scheint es dort einen Fehler zu haben den ich nicht gefunden habe bisher.

    Es kommt keine Fehlermeldung, es passiert einfach nach der Msgbox nix mehr.

    #Include <File.au3>

    Local $sFilePath = "T:\21. Messtechnik\Zeiss\Zeiss_Skripting\caq_vorbereitung"

    If Not FileExists($sFilePath) Then Exit ConsoleWrite('! $sFilePath existiert nicht!' & @CRLF)

    Global $bLoeschungabbruch

    Switch MsgBox(64 + 4, "Bewertung", "War die Messung i.O?")

    Case 6 ; Messung als i.O bewertet

    $bLoeschungabbruch = True

    Case 7 ; Messung als n.i.O bewertet

    $bLoeschungabbruch = False

    EndSwitch

    If Not $bLoeschungabbruch Then

    Local $aFileList = _FileListToArray($sFilePath, "*", $FLTA_FILES)

    If @error Then Exit ConsoleWrite('! _FileListToArray Error: ' & @error & @CRLF)

    ; Erstellungsdatum der Dateien besorgen

    _ArrayColInsert($aFileList, 0)

    For $i = 1 To $aFileList[0][1] Step 1

    $aFileList[$i][0] = FileGetTime($sFilePath & $aFileList[$i][1], $FT_CREATED, $FT_STRING)

    If $aFileList[$i][0] = 0 Then Exit ConsoleWrite('! FileGetTime Error: ' & $sFilePath & $aFileList[$i][1] & @CRLF)

    Next

    _ArraySort($aFileList, 1, 1)

    For $i = 1 To $aFileList[0][1] Step 1

    ConsoleWrite(($i = 1 ? @CRLF & '! ' : $i = $aFileList[0][1] ? '- ' : '> ') & $aFileList[$i][0] & ' --> ' & StringRegExpReplace($aFileList[$i][0], '(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})', '\3.\2.\1 \4:\5:\6 ') & $aFileList[$i][1] & @CRLF)

    Next

    ConsoleWrite(@CRLF)

    FileDelete($sFilePath & $aFileList[1][1]) & MsgBox(16, "Info", "Letztes Protokoll wurde entfernt!") ; <-- jüngste Datei ;~ FileDelete($sFilePath & $aFileList[$aFileList[0][1]][1]) <-- älteste Datei

    EndIf


    Ich hab versucht mit einer Variblen ihm zu sagen ob er überhaupt löschen darf oder nicht, enstcheid durch die msgbox.

    Btw wie fügt ihr Skripte im Forum ein ohne dabei den Thread ewig lang werden zu lassen?

    PS: Englisch ist null problem :P nur ich raff einfach viele Funktionen noch net.

  • Jüngste Datei löschen

    Danke für eure Mühe, ich habe jetzt das Skript zunächst einmal versucht zu verstehen von Bitnugger (da das kürzer ist), jedoch verstehe ich nicht was Zeile 12, 13, 17 und 18 genau tut? Den rest verstehe ich wenn ich es mir genau anschaue. :)

  • Jüngste Datei löschen

    Guten Morgen,

    entschuldigt bitte ich hab dann gestern Feierabend gemacht und es nicht mehr weiter probiert.

    Allerdings hatte ich noch viel gegoogelt bzgl dem FileGetTime und den _Date-Funktionen aber ich steig net wirklich durch da ich ja kein Programmierer bin.

    Ich versuche aber es zu verstehen und gebe mir Mühe ,allerdings wenn ich eure Scripte nun ansehe...da wäre ich nie so drauf gekommen mit dem Wissensstand.

    Leider hab ich in der Arbeit auch nicht die Zeit mir das 8 std anzusehen sondern immer wieder mal daran zu basteln bzw auch Zuhause.

    Danke für eure Hilfe und nochmal sry wenn ich nen unverschämten Eindruck hinterließ!

    Btw gibt es Übungen für Autoit Grundlagen etc?

  • Jüngste Datei löschen

    Local Const $sFilePath = "C:\Users\benutzer\Desktop\Neuer Ordner"

    ; Listet alle Dateien auf im Pfad

    Local $aFileList = _FileListToArray($sFilePath, "*")

    ;zieht die Erstellzeit der Datei heraus

    Local $iFileGetTime = FileGetTime($sFilePath,2,1)

    FileDelete($sFilePath)

    Ich lese doch hiermit bereits die Erstellzeit der Dateien aus im vorgebenen Ordner und gebe das doch als string zurück..wenn ich richtig liege.

    Doch wie sage ich jetzt lösche mir die jüngste Datei der zurückgegeben Zeiten?

  • Trigger einbauen

    Ok interessant :D

    Ja die Funktion ist gegeben!

    Allerdings hänge ich jetzt an einem anderen Problem, wie ich ihm sagen kann nur das jüngste protokoll zu löschen...also die txt.

    Ich hab es bisher so :

    Switch MsgBox(64 + 4, "Bewertung", "War die Messung i.O?")

    Case 6 ; Messung als i.O bewertet

    Case 7 ; Messung als n.i.O bewertet

    Exit 0 & FileDelete("T:\21. Messtechnik\Zeiss\Zeiss_Skripting\caq_vorbereitung") & MsgBox(16,"Info", "Es wurden sämtliche Protokolle entfernt!")

    EndSwitch


    aber da löscht er mir ja alles.

  • txt umschreiben in andere Form

    Ich habe leider ein kleines Problem entdeckt beim auslesen der Artikelnummer.

    Wenn der Artikel 10102776.17 ist, ist das kein problem!

    Lautet er aber 10102776, dann kann er diesen nicht lesen?

    Ich schätze mal das .17 wird hier das Problem sein?

    Der string

    $aArtikel = StringRegExp($sFile, "Prüfplan\s+(\d+\.\d+)", 3)

    If Not UBound($aArtikel) Then _Error("Artikel")

    $sEndFile &= "ARTIKEL=" & $aArtikel[0] & @CRLF

    müsste vermutlich an dieser Stelle geändert werden \s+(\d+\.\d+)", 3), oder?