Beiträge von Sascha123456
-
-
Jap klappt. Kannst du mir aber die Logik dahinter noch etwas näher bringen?
-
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?
-
-
-
Stimmt wenn sich der pfad ändert müsste ich eine andere zahl angeben, das weiß ich
Der Pfad bleibt aber gleich.
-
Hey Leute
ich hab es folgendermaßen gelöst
Local $sString = StringTrimLeft ($sLatestFile, 58)
MsgBox(64, "Info", $sString & " wurde entfernt!")
Und nein ich hab nicht abgeschaut
-
Hmm scheinbar hast du recht
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?
-
Hmm ne auch umgedreht löscht er nix
-
Ok deins funktioniert tadellos nur was hatte ich für einen Fehler
-
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?
-
Ja der plan war das bei "nein" die Variable $bLoeschungabbruch auf False geht und somit bei "If Not $bLoeschungabbruch Then" weiter läuft. Aber da muss ich wohl einen Denkfehler haben..ich stöbere mal nach!
-
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 nur ich raff einfach viele Funktionen noch net.
-
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.
-
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?
-
Ok das krieg ich net zam:(
-
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?
-
Ok interessant
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. -
Hat geklappt !
-
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?