PDF Datei umbenennen aus Text

SCCSSF

Hallo,

bin über den Beitrag zu meiner Umsetzung gekommen. Leider ist dieser sehr als und geschlossen.
https://autoit.de/index.php/Thre…d-die/?pageNo=1

Benutze die pdftotext.exe von hier http://www.foolabs.com/xpdf/download.html

Und da ich das hier auch als Wissensdatenbank benutzte wollte ich meinen schlecht geschriebenen Code hier mal zurück geben.

Vielleicht kann es einer gebrauchen ? Und vielleicht hat einer noch lust den Code zu optimieren.

Gerade bei den Variablen für die Verzeichnisse stelle ich mich etwas schwer. Habe es zwar schon mal umgeschrieben allerdings habe ich es nicht Fehlerfrei zum laufen bekommen.

Ich hoffe es ist Ok wenn ich es hier so schreibe.

AutoIt

#include <Array.au3> 
#include <File.au3> 
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <MsgBoxConstants.au3>


Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)
Global Const $s_Path = "S:\zwischen\" ; Verzeichnis, in dem gesucht werden soll (ohne Backslash) 
Global Const $s_Path1 = "S:\fertig\" ; Verzeichnis, in dem gesucht werden soll (ohne Backslash) 
Global Const $s_Ext = '.pdf' ; Dateiendung, nach der gesucht werden soll... :P 
Global Const $s_Search = 'ABC' ; Das zu suchende Wort 
Global $a_Reg
$Form1 = GUICreate("Datei Umbennen", 200, 155, 192, 124)
$Setting_Menu = GUICtrlCreateMenu("Menü")
$Setting_exit = GUICtrlCreateMenuItem("Ende", $Setting_Menu)
GUICtrlSetOnEvent(-1,"_Exit")
$helpmenu = GUICtrlCreateMenu("?")
$Info = GUICtrlCreateMenuItem("Version",$helpmenu)
GUICtrlSetOnEvent(-1,"_showInfo")
$wachen = GUICtrlCreateButton("Umbennen", 8, 16, 180, 100)
GUICtrlSetFont(-1, 12, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_HIDE)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Minimize')
GUISetOnEvent($GUI_EVENT_MINIMIZE, '_Minimize')
TraySetOnEvent( -7, '_Restore')


While sleep(10000)
Filemove ("S:\", "S:\zwischen",1)
Local $search = FileFindFirstFile("S:\zwischen\*.pdf")
If $search <> -1 Then
$a_List = _FileListToArray ("S:\zwischen\", '*', 1) ; Ein Array aller Dateien im Ordner wird erstellt 


For $i = 1 To $a_List[0] 
If StringRight ($s_Path & '\' & $a_List[$i], StringLen ($s_Ext)) = $s_Ext Then 
;~ ; (-1) Falls die Dateiendung stimmt... 
RunWait('"S:\script\pdftotext.exe" ' & $s_Path & $a_List[$i],"",@SW_HIDE)
Filemove ("S:\zwischen\*.txt","S:\fertig\2.txt",1)


$a_Reg = StringRegExp (FileRead ("S:\fertig\2.txt"), $s_Search & '(.............)', 1) 
FileDelete("S:\fertig\2.txt") 
;~ ; (-1) ... wird nach dem Wort und drei nachfolgenden Zeichen gesucht 
 If IsArray ($a_Reg) Then 
;~ ; (-1) Falls das Wort gefunden wurde... 
FileMove ($s_Path & '\' & $a_List[$i], $s_Path1 & '\' & $a_Reg[0] & $s_Ext, 1) 
;~ ; (-1) ... wird die Datei umbenannt 
EndIf
EndIf 
Next	
EndIf
WEnd


Func _showInfo()
            MsgBox (0,"Info","Version 1.0 "&@CRLF&"08.12.2016")
EndFunc


Func _Exit()
    Exit
EndFunc


Func _Minimize()
    TraySetState(1)
    GUISetState(@SW_HIDE)
EndFunc


Func _Restore()
    TraySetState(2)
    GUISetState(@SW_SHOW)
EndFunc

Alles anzeigen

Gruß Steffen

SCCSSF

So durch meine Erkältung habe ich nun doch selber mal Zeit gehabt um den Code zu optimieren.

Wie erkenne ich ob ich zu viele <*.au3> integriert habe?

AutoIt

#include <Array.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <MsgBoxConstants.au3>
#include <Misc.au3>


If _Singleton("PDF-Name", 1) = 0 Then
	Exit
EndIf


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_Muell = "C:\testpdf\fertig\muell\"
Global Const $s_PDFtoText = "C:\testpdf\script\pdftotext.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()
WEnd


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, 1)
	FileMove($s_Path_fertig & "*.pdf", $s_Path_Muell, 1)
EndFunc   ;==>_Verschieben


Func _Startkopie()
	FileMove($s_Path_start, $s_Path_zwischen, 1)
	Global $search = FileFindFirstFile($s_Path_zwischen & "*.pdf")
	If $search <> -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 & "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

Alles anzeigen

**alpines**

Du kannst OrganizeIncludes verwenden oder einfach ein Include nach dem anderen raushauen und schauen ob du Fehlermeldungen kriegst.
Koda selbst fügt meist viel mehr Includes hinzu als eigentlich gebraucht werden, und wenn du dir einige Styles sogar merkst ($SS_CENTER = 1) kannst du sie sogar selber ersetzen und an Includes sparen.

An der Performance und Größe deines Scriptes wird sich allerdings nicht sehr viel ändern.

SCCSSF

@alpines Ich benutzte ISN Auto Studio da habe ich OrganizeIncludes nicht zum laufen bekommen. Muss ich mal noch schauen ob ich dafür noch eine Anleitung finde .

Mit Trial and Error habe ich das rausgeworfen.

; #include <Array.au3>
; #include <ButtonConstants.au3>
; #include <WindowsConstants.au3>
; #include <EditConstants.au3>
; #include <MsgBoxConstants.au3>

**alpines**

Du solltest an der Struktur eventuell noch ein bisschen pfeilen und einige Zeilen auseinanderziehen, das wirkt übersichtlicher und man kann sich leichter reinlesen.
Konventionen zur Variablennennung solltest du auch konsequent durchziehen.

Du schreibst ab und zu Global Const $s_Path_zwischen aber in den Funktionen schreibst du Sachen wie Global $search.
Du solltest niemals globale Variablen in Funktionen deklarieren. Das schmeißt nur unnötige Warnings und verlängert das Bugtracking.
Konstanten solltest du immer groß schreiben um sie leicher unterscheiden zu können. Global Const $S_PATH_ZWISCHEN
Auch Variablen innerhalb von Funktionen sollten den Konventionen folgen sofern es gerade keine minimalen temporären Variablen oder Zählervariablen sind.

Wenn dein Problem gelöst ist, dann setz doch bitte den Präfix des Threads auf [gelöst] (1. Beitrag bearbeiten).
Weitere Anregungen zur Struktur deines Scriptes sind nach wie vor trotzdem erwünscht (der grüne Haken soll es nicht absolut machen).

SCCSSF

@alpines

Habe mal den Code geändert. Das mit dem auseinanderziehen ist mir noch nicht 100% klar.

Bin gerade noch dabei eine PDF Funktion zum einbinden eines Briefpapiers einzubauen.

AutoIt

#include <File.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Misc.au3>




If _Singleton("PDF-Name", 1) = 0 Then
	Exit
EndIf


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

Alles anzeigen

**alpines**

Zitat von SCCSSF

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

Alles anzeigen

SCCSSF

@alpines

Danke werde es versuchen sauber zu schreiben.

Funktion ist

In einem Startverzeichnis kommen immer wieder PDF.

Sobald die dort sind wird ein String (Text) @@WA- gesucht. Dies geht ja nicht direkt, also wird die PDF erst in eine TXT gewandelt.

Diese wird dann durchsucht. Alles nach dem @@WA- wird genommen um die Datei umzubennen.

Dann mit es eine einfache Anpassung gibt und ich noch nicht weis was wir noch so alles damit machen. Sortiere ich die Dateien erst später.
So kann ich noch Funktion schnell ran hängen.

Eigentlich soll es Später als Dienst laufen. Die Gui ist nur da damit man aktuell schnell optisch sieht das es läuft.