Beiträge von ru642

Hallo Liebe Autoit Gemeinde

Ich möchte die neuste Bilddatei aus einem Ordner kopieren und umbennen.

Beispiel ich habe im Ordner Bilder folgendes Bild: Treasure Trail - Medium - 2017.12.26_13-40-38.png

Nun möchte ich dies in den Ordner Stream kopieren und den Zeitstempel löschen.

Wenn ein aktuelleres Bild kommt sollte dies natürlich überschrieben werden.

Im Ordner Bilder habe ich viele Bilder ca. 600.

Ich habe leider schon lange nichts mehr mit Autoit mehr gemacht und bin aktuell total ratlos wie ich das am besten mache.

Ich möchte keine Lösung sondern einen Denkanstoss welche Befehle ich benötige um das umzusetzten

Vielen Dank bereits im Voraus.

Euer Ru642

Zitat von Dreamworker

Hallo zusammen,
ich habe mal versucht, klappt leider nicht.

$arSearch=_findFilesWithString("s:\2017",".nef") oder auch $arSearch=_findFilesWithString("s:\2017",".nef") zu nutzen , beides geht nicht.

Das Programm hat ja folgende Funktion, es liest die Bildnamen ein die mit einem Stern gekennzeichnet sind aus der Datei Test.csv.
Danach kopiert er die Dateien .

Mir ist aufgefallen das du in beiden Fällen den * nicht verwendet hast. $arSearch=_findFilesWithString("s:\2017",".*nef") oder auch $arSearch=_findFilesWithString("s:\2017",".*nef")

Hallo Oscar
ich will die Nutzungsdauer wissen.
Am besten pro Tag darum auch das Datum.
So kann ich am besten rausfiltern wieviel eine Applikation über den Zeitraum von einer Woche oder Monat benutzt wurde.

Kann ich das Irgendwie austriksen in dem ich z.B. Time durch das Datum ersetzte und pro Benutzer ein File erstellen lasse ?

Global $sIniFile = @ScriptDir & '\Time\' & @UserName & '.ini'
Global $iProcTime = IniRead($sIniFile,'Protocol',@MDAY & "."& @MON & "."& @YEAR ,0)
AdlibRegister('_AddTime', 1000)
;HotKeySet('{ESC}', '_Exit')
While Sleep(1000)
WEnd
;Func _Exit()
;	If ProcessExists('firefox.exe') Then Return
;	IniWrite($sIniFile,'Protocol', 'Time', $iProcTime)
;	Exit
;EndFunc
Func _AddTime()
	If ProcessExists('notepad.exe') Then
		$iProcTime += 1
		ToolTip(_FormatTime($iProcTime))
		IniWrite($sIniFile,'Protocol',@MDAY & "."& @MON & "."& @YEAR, @UserName & ":" & _FormatTime ($iProcTime))
	EndIf
EndFunc
Func _FormatTime($iSec)
	Local $iHour, $iMin
	$iHour = Int($iSec / 3600)
	$iSec = Mod($iSec, 3600)
	$iMin = Int($iSec / 60)
	$iSec = Mod($iSec, 60)
	Return StringFormat('%02i:%02i:%02i', $iHour, $iMin, $iSec)
EndFunc   ;==>_FormatTime

Zitat von Dreamworker

$arSearch=_findFilesWithString("s:\2017","\d{4}-SUN-(.*nef)")

Hallo Dreamworker es ist die von mir zitierte Zeile die nach Dateien mit Endung *nef sucht.
Du wirst dich auf diesen Teil konzentrieren müssen: "\d{4}-SUN-(.*nef)")
Vielleicht mal "\d{4}-SUN-(.*nef)") durch "_SUN-(.*nef)") ersezten und mal schauen was passiert.
Dies müsste dann nur die Dateien nehmen die anderst (rum) beschriftet sind.

Um es den anderen im Forum leichter zu machen verwende bei Code bitte die Code Funktion.
Diese findest du im Editor ganz rechts und sieht so aus: </>
Danach in der Syntax Hervorhebung Autoit anwählen

Edit:
Die Dateien sind auch anderst aufgebaut:
2017-SUN-10743.nef
_SUN1409.nef

mfg Ru642

Hallo Oscar
ich habe nun deinen Script etwas erweitert.
Da ich noch nie mit Filewrite beschäftigt habe besteht noch eine Frage.
Wie genau kann ich verhindern das Einträge überschrieben werden.
Beispiel aktuell sieht das File folgendermassen aus:
[Protocol]
Time=17.08.2017/scr:00:00:22

Ich möchte nun aber verhidnern das die Zeit von Benutzer scr am nächsten Tag überschrieben wird + es kann auch ein anderer Benutzer den Script ausführen dann würde die ja auch wieder alles überschreiben.

Etwas in die Richtung und ich wäre glücklich bis zum Mond und zurück:

[Protocol]
Time=16.08.2017/mat:00:05:11
Time=17.08.2017/scr:00:00:22
Time=17.08.2017/mab:01:00:05
Time=18.08.2017/scr:00:10:22
usw.

Trotzdem schon vielen, vielen Dank für die unglaublich grosse Hilfe!

Aktueller Script:

Global $sIniFile = @ScriptDir & '\TimeProtocol.ini'
Global $iProcTime = IniRead($sIniFile, 'Protocol', 'Time', 0)
AdlibRegister('_AddTime', 1000)
HotKeySet('{ESC}', '_Exit')
While Sleep(1000)
WEnd
Func _Exit()
	If ProcessExists('firefox.exe') Then Return
	IniWrite($sIniFile, 'Protocol', 'Time', $iProcTime)
	Exit
EndFunc
Func _AddTime()
	If ProcessExists('firefox.exe') Then
		$iProcTime += 1
		ToolTip(_FormatTime($iProcTime))
		IniWrite($sIniFile, 'Protocol', 'Time', @MDAY & "."& @MON & "."& @YEAR & "/"& @UserName & ":" & _FormatTime ($iProcTime))
	EndIf
EndFunc
Func _FormatTime($iSec)
	Local $iHour, $iMin
	$iHour = Int($iSec / 3600)
	$iSec = Mod($iSec, 3600)
	$iMin = Int($iSec / 60)
	$iSec = Mod($iSec, 60)
	Return StringFormat('%02i:%02i:%02i', $iHour, $iMin, $iSec)
EndFunc   ;==>_FormatTime

Mfg Ru642

Hallo Oscar

ich habe nun bei der Func AddTime () den IniWrite($sIniFile, 'Protocol', 'Time', $iProcTime) auch noch hinzugefügt.
Nun wird ein ini-File erstellt und in dieses die Zeit hinzugefügt.
Nun habe ich festgestellt das im File keine Formatierung hh/mm/ss besteht.
Wie setzt man dies am besten um ?

Edit: Habe mir hier einfach die bereits bestehende Funktion _FormatTime zu nutze gemacht.

Global $sIniFile = @ScriptDir & '\TimeProtocol.ini'
Global $iProcTime = IniRead($sIniFile, 'Protocol', 'Time', 0)
AdlibRegister('_AddTime', 1000)
HotKeySet('{ESC}', '_Exit')
While Sleep(1000)
WEnd
Func _Exit()
	If ProcessExists('Notepad.exe') Then Return
	IniWrite($sIniFile, 'Protocol', 'Time', $iProcTime)
	Exit
EndFunc
Func _AddTime()
	If ProcessExists('Notepad.exe') Then
		$iProcTime += 1
		ToolTip(_FormatTime($iProcTime))
		IniWrite($sIniFile, 'Protocol', 'Time', $iProcTime)
	EndIf
EndFunc
Func _FormatTime($iSec)
	Local $iHour, $iMin
	$iHour = Int($iSec / 3600)
	$iSec = Mod($iSec, 3600)
	$iMin = Int($iSec / 60)
	$iSec = Mod($iSec, 60)
	Return StringFormat('%02i:%02i:%02i', $iHour, $iMin, $iSec)
EndFunc   ;==>_FormatTime

Hallo Oscar

deine Version gefällt mir sehr gut, wollte mich erst später dann mit dem Filewrite beschäftigen, wäre aber so oder so auf dieses zurückgekommen.

Leider habe ich noch ein schwerwiegendes Problem und zwar wird kein ini File erstellt.
Der Tooltip zeigt aber an das hochgezählt wird.

Edit: habe ich bereits selber hingekriegt

Hallo Kanashius
Danke für deinen Script, leider komme ich mit diesem leider überhaupt nicht mehr draus.
Ich habe den Script mal ausgeführt und dieser loggt brav alle fenster die ich öffne & schliesse.
In meinem Fall brauche ich nicht viel, nur 1 Programm soll geloggt werden.
Es geht darum dem Kunden die Nutzungsdauer des Programms zu verrechnen.
Desshalb muss diese irgendwie festgehalten werden.

Ich habe deinen auskommentierten Teil erneut in den Script eingepflegt und getestet erhalte aber eine Fehlermeldung.
Ich gehe mal davon aus das ein then zu viel ist ?

If true Then _ArraySearch($arFilter,$pname)<>-1 Then
If true Then _ArraySearch($arFilter,$pname)^ ERROR

Hier noch mein Versuch den ich vor deiner Nachricht erstellt hatte:

HotKeySet("{ESC}", "Terminate")
Func Terminate()
    Exit
EndFunc   ;==>Terminate


Local $aTime
Local $eTime
Local $activeProcess = 0
Local $activeRunning = 0






While 1
$Process = ProcessExists ("notepad.exe")
If $Process >0 Then
$activeProcess =1


If $activeProcess = 1 and $activeRunning = 0 Then
ConsoleWrite ($aTime)
$activeRunning =1
$aTime = @HOUR & ":" & @MIN & ":" & @SEC


If $activeProcess = 1 and $activeRunning = 1 and $Process = 0 Then
$activeProcess =0
$activeRunning =0
$eTime = @HOUR & ":" & @MIN & ":" & @SEC
Else
   Sleep (20)
$activeProcess =0
$activeRunning = 0
EndIf
EndIf
EndIf
WEnd

MFG Ru642

Hallo Alpines danke für deine Antwort.

Ich habe nun die Abfrage in die Schleife mit aufgenommen aber nun wird natürlich die Zeit immer wieder ausgegeben.
Wie kann ich das einmalig ausgeben ?

Hier mein angepasster Script:

HotKeySet("{ESC}", "Terminate")
Func Terminate()
    Exit
EndFunc   ;==>Terminate


Local $aTime
Local $eTime
Local $activeProcess = 0




While 1
If ProcessExists ("notepad.exe") Then
$activeProcess =1


If $activeProcess = 1 Then
$aTime = @HOUR & ":" & @MIN & ":" & @SEC
ConsoleWrite ($aTime)
$activeProcess = 0
Else
   Sleep (20)


EndIf
EndIf
WEnd

Hallo Liebe Autoit Community

Ich stehe leider mal wieder vor einem Problem.
Ich möchte je einen Zeitstempel schreiben wenn ein Programm (bei meinem Test notepad.exe) geöffnet / geschlossen wurde.
Ich denke man sieht was ich machen möchte die Variablen $aTime (Startzeit), $eTime (Endzeit) sollten per korrektem Script gefüllt werden.
Folgendes sind meine kläglichen Versuche:

HotKeySet("{ESC}", "Terminate")
Func Terminate()
    Exit
EndFunc   ;==>Terminate


Local $aTime
Local $eTime
Local $activeProcess = 0
ConsoleWrite ($activeProcess)


While 1
If ProcessExists ("notepad.exe") Then
$activeProcess =1
Else
   Sleep (20)
EndIf
WEnd


If $activeProcess = 1 Then
$aTime = @HOUR & ":" & @MIN & ":" & @SEC

Ich bedanke mich bereits im Voraus für eure wertvolle Hilfe!
Mfg Ru642

Perfekt vielen Dank an alle funktioniert nun wie gewünscht!

@Sonderbaar es funktionert

Aber wenn ich den Script starte zeigt es mir jedes mal den Array an kann man das irgendwie unterdrücken ?

Diese "komischen" Werte sind bereits die Dateinamen. Beispielsweise "A4H f 2S geheftet.json".
Die Dateiendung muss aber im Fenster nicht angegeben werden weil man ja danach sucht.

Folgendes Steht im ConsolWrite:

Items in the array: 24
23
A4H f 2S geheftet
A4H f 2S
A4H f doppelseitig geheftet
A4H f doppelseitig
A4H f geheftet
A4H f
A4H sw 2S geheftet
A4H sw 2S
A4H sw doppelseitig geheftet
A4H sw doppelseitig
A4H sw geheftet
A4H sw
A4Q f 2S geheftet
A4Q f 2S
A4Q f geheftet
A4Q f
A4Q sw 2S geheftet
A4Q sw 2S
A4Q sw geheftet
A4Q sw
Broschüre A4
Broschüre
RK-Deckblatt
>Exit code: 0 Time: 0.08779

Hallo Zusammen
wir haben im Geschäft zwei identische Ricoh Drucker.
Für diese haben wir sogenannte Ein-Klick-Voreinstellungen.
Sind Papiereinstellungen die man importieren kann und dann anwählen.
Nun kann man diese wie bereits angedeutet einlesen.
Leider haben wir ca 23 Voreinstellungen die wir jedes Mal einlesen müssen pro Drucker.
Die Import Funktion unterstützt kein Multi Import somit muss jedes der Files einzeln angeklickt und importiert werden.
Folgendes habe ich nun schon gemacht: die Funktion Anwaehlen funktionierte soweit.

Func Anwaehlen ()
;Warten bis das Fenster aktiv ist
WinActivate ("Liste Ein-Klick-Voreinstellungen verwalten")
Sleep (200)
;Klick Button Importieren
ControlClick("Liste Ein-Klick-Voreinstellungen verwalten", "", "[CLASS:Button; INSTANCE:7]")
Sleep(200)
;Senden des Filenamens im Textfeld
ControlSend ("Öffnen", "", "[CLASS:Edit; INSTANCE:1]", "$list")
Sleep (200)
;Betätigen des Öffnen Buttons
ControlClick("Öffnen", "", "[CLASS:Button; INSTANCE:1]")
EndFunc




Local $iMax
Local $list = "A4H f 2S geheftet|A4H f 2S|A4H f doppelseitig geheftet|A4H f doppelseitig|A4H f geheftet|A4H f|A4H sw 2S geheftet|A4H sw 2S|A4H sw doppelseitig geheftet|A4H sw doppelseitig|A4H sw geheftet|A4H sw|A4Q f 2S geheftet|A4Q f 2S|A4Q f geheftet|A4Q f|A4Q sw 2S geheftet|A4Q sw 2S|A4Q sw geheftet|A4Q sw|Broschüre A4|Broschüre|RK-Deckblatt"
Local $arr = StringSplit($list, "|")


If IsArray($arr) Then
     $iMax = UBound($arr); get array size


     ConsoleWrite("Items in the array: " & $iMax & @LF)


     For $i = 0 to $iMax - 1; subtract 1 from size to prevent an out of bounds error
         ConsoleWrite($arr[$i] & @LF)
     Next
EndIf

Nun möchte ich aber unter 9. den Array $list abrufen und pro durchlauf einen Dateinamen holen.
Leider habe ich schon echt lange nicht mehr mit Arrays gearbeitet und bin mir desshalb nicht mehr sicher wie ich das aufbauen soll.
Die If Abfrage habe ich mir aus der Hilfe kopiert soll natürlich am ende kein Consolwrite machen.
Ich hoffe ihr könnt mir helfen.
MFG Ru642

Hallo mumpel

das habe ich gerade in der englischen Hilfe gefunden:

#include <AutoItConstants.au3>


Example()


Func Example()
    ; Change the username and password to the appropriate values for your system.
    Local $sUserName = "Username"
    Local $sPassword = "Password"


    ; Run Notepad with the window maximized. Notepad is run under the user previously specified.
    Local $iPID = RunAs($sUserName, @ComputerName, $sPassword, $RUN_LOGON_NOPROFILE, "notepad.exe", "", @SW_SHOWMAXIMIZED)


    ; Wait 10 seconds for the Notepad window to appear.
    WinWait("[CLASS:Notepad]", "", 10)


    ; Wait for 2 seconds.
    Sleep(2000)


    ; Close the Notepad process using the PID returned by RunAs.
    ProcessClose($iPID)
EndFunc   ;==>Example

Aktuell startest du ja das notepad mit dem aktuellen User + dem hinterlegten Password. -> möglicherweise stimmen die nicht überein

Grüsse Ru642

Danke an ProgrammingDonkey das war der Grund habe nun die Variable in die Schleife genommen.
@alpines ist nix schlimmes meine Tastatur hat die möglichkeit per Random Button die Farbe zu wechseln auf irgendwas und wollte zum Spass diese per Autoit zu einer zufälligen Zeit drücken lassen
Danke für die schnelle Hilfe!
Mfg Ru642

Hallo Zusammen
ich möchte die Random Fuktion dazu benutzen einen Random Sleep Time zurückzugeben.
Bin aber aktuell etwas ratlos warum es mir nun die Random Nummer gespeichert hat und diese nicht erneut würfelt.

HotKeySet ("{ESC}","terminate")
Func terminate ()
   exit 0
EndFunc


$rt = random(500, 2000, 1)




while 1
MouseClick ("left")
Sleep($rt)
ConsoleWrite ($rt)
WEnd

Würde mich freuen wenn mir jemand das Licht am ende des Tunnels zeigen würde.
mfg Ru642

Vielen Dank für deinen Ansatz aber ich krige bei der ersten Zeile schon einen Syntax Error.

- ERROR: syntax error Global $a_Folders[]

Was mache ich hier noch falsch? Habe mir hierzu noch 3 Test Ordner eingerichtet und Test Files erstellt.

Die Platzierung ist schon korrekt. Bin leider etwas eingerostet.
Die Frage ist eher wie ich dies Realisieren kann.
Beispiele von Funktionen die sich verwenden lassen können.
Bin parallel dazu auch am schauen wie ich das machen kann.