vorhandenes Script "Vorgangsnummer" anpassen

[Betriebsdirektor]

Hallo zusammen,

ich habe hier im archivierten Forum ein super Script gefunden (danke @winniepuh77).
https://autohotkey.com/board/topic/1181 ... angsnummer

Kann man das Script so anpassen, dass es keine GUI benötigt und einfach auf Tastendruck die neue Vorgangsnummer ausspuckt? Meine bescheidenen Kenntnisse reichen leider nicht für eine Modifikation aus.


Viele Grüße, Betriebsdirektor

[just me]

Weil mir gerade langweilig ist, ein Versuch:

Code: Select all

#NoEnv
; In der Datei wird die zuletzt verwendete Vorgangsnummer abgelegt
Datei := A_ScriptDir . "\Vorgang.txt"
; Die Monate werden als "A" für Januar, "B" für Februar usw. dargestellt.
Monate := ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L"]
Return
; --------------------------------------------------------------------
^+v:: ; Strg+Shift+v -> Vorgangsnummer generieren
   Jetzt := A_Now
   FormatTime, Jahr, %Jetzt%, yy
   FormatTime, Monat, %Jetzt%, M
   Monat := Monate[Monat]
   Nummer := 0
   If FileExist(Datei)
      FileRead, LetzteNummer, %Datei%
   Else
      LetzteNummer := Jahr . Monat . "00"
   If ((Jahr . Monat) = SubStr(LetzteNummer, 1, 3))
      Nummer := SubStr(LetzteNummer, 4)
   Nummer++
   ; Die laufende Nummer ist 3-stellig, ggf. muss {:03} angepasst werden.
   Vorgang := Format("{:02}{:}{:03}", Jahr, Monat, Nummer)
   MsgBox, 36, Vorgang, Vorgangsnummer %Vorgang% übertragen?
   IfMsgBox, Yes
   {
      ToolTip, Hier muss Deine Aktion stehen!
      FileDelete, %Datei%
      FileAppend, %Vorgang%, %Datei%
   }
Return

[Betriebsdirektor]

Vielen Dank @just me,

ich stehe aber irgendwie auf dem Schlauch. Was meinst du mit

Code: Select all

 ToolTip, Hier muss Deine Aktion stehen!

?

Sorry, bin absoluter Anfänger und noch beim kleinen 1 mal 1.

P.S. die MsgBox wird nicht benötigt. Es kann direkt die Ausgabe erfolgen.

Viele Grüße, Betriebsdirektor