Habe mal den Code geändert. Das mit dem auseinanderziehen ist mir noch nicht 100% klar.
Na eben ein bisschen auflockern und nicht alles untereinander schreiben. Bei GUI Elementen ist das sehr einfach, alles was zu einem Control gehört schreibst du untereinander und für neue Controls lässt du einfach eine Zeile extra frei.
Auf die schnelle hab ich das mal so strukturiert (hätte es ggf. anders gemacht, kenne die Funktionalität jetzt nicht)
AutoIt
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
If _Singleton("PDF-Name", 1) = 0 Then Exit
Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)
Global Const $s_PATH_START = "c:\testpdf\"
Global Const $s_PATH_ZWISCHEN = "c:\testpdf\zwischen\"
Global Const $s_PATH_FERTIG = "C:\testpdf\fertig\"
Global Const $s_PATH_WA = "C:\testpdf\fertig\WA\"
Global Const $s_KENNZEICHEN_WA = "ab"
Global Const $s_PATH_LS = "C:\testpdf\fertig\LS\"
Global Const $s_KENNZEICHEN_LS = "LS"
Global Const $s_PATH_LS_ZWISCHEN = "C:\testpdf\fertig\LS\zwischen\"
Global Const $s_PATH_MUELL = "C:\testpdf\fertig\muell\"
Global Const $s_PDFTOTEXT = "C:\testpdf\script\pdftotext.exe"
Global Const $s_PDFPDF = "C:\testpdf\script\pdftk.exe"
Global Const $s_EXT = '.pdf'
Global Const $s_SEARCH = '@@WA-'
Global $a_REG
$Form1 = GUICreate("Datei Umbennen", 294, 135, 192, 124)
$Setting_Menu = GUICtrlCreateMenu("Menü")
$Setting_exit = GUICtrlCreateMenuItem("Ende", $Setting_Menu)
GUICtrlSetOnEvent(-1, "_Exit")
$helpmenu = GUICtrlCreateMenu("?")
$Info = GUICtrlCreateMenuItem("Version", $helpmenu)
GUICtrlSetOnEvent(-1, "_showInfo")
GUICtrlCreateLabel("PDF Umbennungstool",10,10,274,104,$SS_CENTER,-1)
GUICtrlSetFont(-1,22,700,0,"Tahoma")
GUICtrlSetBkColor(-1,"-2")
GUISetOnEvent($GUI_EVENT_CLOSE, '_Minimize')
GUISetOnEvent($GUI_EVENT_MINIMIZE, '_Minimize')
TraySetOnEvent(-7, '_Restore')
While Sleep(3 * 1000)
_Verschieben()
_StartKopie()
_PDFMerge()
WEnd
Func _PDFMerge()
;~ $s_SEARCHPDFMERGE = FileFindFirstFile($s_PATH_LS_ZWISCHEN & "*.pdf")
;~ If $s_SEARCHPDFMERGE <> -1 Then
;~ $a_LISTPDF = _FileListToArray($s_PATH_LS_ZWISCHEN, '*', 1)
;~ For $i = 1 To $a_ListPDF[0]
;~ RunWait($s_PDFPDF & ' "' & $s_PATH_LS_ZWISCHEN & $a_LISTPDF[$i] & '"', "", @SW_HIDE)
EndFunc
Func _Verschieben()
FileMove($s_PATH_FERTIG & $s_KENNZEICHEN_WA & "*.pdf", $s_PATH_WA, 1)
FileMove($s_PATH_FERTIG & $s_KENNZEICHEN_LS & "*.pdf", $s_PATH_LS_ZWISCHEN , 1)
FileMove($s_PATH_FERTIG & "*.pdf", $s_PATH_MUELL, 1)
EndFunc ;==>_Verschieben
Func _StartKopie()
FileMove($s_PATH_START, $s_PATH_ZWISCHEN, 1)
$s_SEARCH_ZWISCHEN = FileFindFirstFile($s_PATH_ZWISCHEN & "*.pdf")
If $s_SEARCH_ZWISCHEN <> -1 Then
$a_LIST = _FileListToArray($s_PATH_ZWISCHEN, '*', 1)
For $i = 1 To $a_LIST[0]
If StringRight($s_PATH_ZWISCHEN & $a_LIST[$i], StringLen($s_EXT)) = $s_EXT Then
RunWait($s_PDFTOTEXT & ' "' & $s_PATH_ZWISCHEN & $a_LIST[$i] & '"', "", @SW_HIDE)
FileMove($s_PATH_ZWISCHEN & "*.txt", $s_PATH_FERTIG & "2.txt", 1)
$a_REG = StringRegExp(FileRead($s_PATH_FERTIG & "2.txt"), $s_SEARCH & '(.*)', 1)
FileDelete($s_PATH_FERTIG & "2.txt")
If IsArray($a_REG) Then
FileMove($s_PATH_ZWISCHEN & $a_LIST[$i], $s_PATH_FERTIG & $a_REG[0] & $s_EXT, 1)
Else
FileDelete($s_PATH_ZWISCHEN & $a_LIST[$i])
EndIf
EndIf
Next
EndIf
EndFunc ;==>_Startkopie
Func _Showinfo()
MsgBox(0, "Info", "Version 1.4 " & @CRLF & "Steffen Förster" & @CRLF & "20.12.2016")
EndFunc ;==>_showInfo
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _Minimize()
TraySetState(1)
GUISetState(@SW_HIDE)
EndFunc ;==>_Minimize
Func _Restore()
TraySetState(2)
GUISetState(@SW_SHOW)
EndFunc ;==>_Restore
Nee, er schreibt auch die Geburtstagsmail an die Mitarbeiter im Hintergrund, Dank CronJob und AutoIt. Gerade bin ich dabei und schau, ob ich es hinbekomme, das ich mit AutoIt die PDF-Berichte ,die wir täglich erstellen und vorher die Daten raussuchen müssen, per Script ausfüllen zu lassen. Da ich die PDF selber nach Wordvorlage erstellt habe (wir haben das große Adobepaket mit Formulargestallter usw.), konnte ich gut merkende Feldnamen geben, was praktisch ist, wenn man mit einem solchen Programm arbeitet. Besser als vorher immer die Worddateien und die dann als PDF speichern. Ist meine persänliche Meinung.