-- Modul Dateien verschieben ohne vorhandene Dateien zu überschreiben 
-- Version 0.0.0	Stand: 08.09.2010 
 
-- Quell Verzeichnis (Ordner) auswählen aus dem die Dokumente kommen 
-- Ziel Verzeichnis (Ordner) wählen wohin die Dateien verschoben werden sollen 
-- Erstes Dokument finden und in eine Variable speichern 
-- Dokumentname vom Pfad trennen 
-- Prüfen ob das Dokument im Ziel Verzeichnis existiert 
-- Wenn es existiert dann 
-- soll am ende des Dokumentenname eine zweistellige Zahl am Ende angehangen werden 
-- Wenn es nicht existiert dann 
-- soll es einfach in das Zielverzeichnis verschoben werden 
-- zurück nach oben um das nächste Dokument in die Variable zu speichern 

-- Modul Dateien verschieben ohne vorhandene Dateien zu überschreiben 
-- Version 0.0.1	Stand: 08.09.2010 
 
-- Quell Verzeichnis (Ordner) auswählen aus dem die Dokumente kommen 
set quellOrdner to (choose folder with prompt "Wähle den Quellordner aus") as Unicode text 
 
-- Ziel Verzeichnis (Ordner) wählen wohin die Dateien verschoben werden sollen 
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das verschieben der Dateien") as Unicode text 
 
-- Erstes Dokument finden und in eine Variable speichern 
-- Variablen zurücksetzen 
-- Alle Dokument-Namen des Ouellordners in eine Liste schreiben (ohne unsichtbare Dateien) 
-- Ermittlung der Anzahl Dokumente  
-- Anfang: Schleife Dokumente ermitteln 
 
 
 
-- Ende: Schleife Dokumente ermitteln 
 
 
 
-- Dokumentname vom Pfad trennen 
-- Prüfen ob das Dokument im Ziel Verzeichnis existiert 
-- Wenn es existiert dann 
-- soll am ende des Dokumentenname eine zweistellige Zahl am Ende angehangen werden 
-- Wenn es nicht existiert dann 
-- soll es einfach in das Zielverzeichnis verschoben werden 
-- zurück nach oben um das nächste Dokument in die Variable zu speichern 

-- Modul Dateien verschieben ohne vorhandene Dateien zu überschreiben 
-- Version 0.0.2	Stand: 08.09.2010 
 
-- Quell Verzeichnis (Ordner) auswählen aus dem die Dokumente kommen 
-- "Snow Leopard:Users:michael:Documents:OCR PDF:" 
set quellOrdner to (choose folder with prompt "Wähle den Quellordner") as Unicode text 
 
-- Ziel Verzeichnis (Ordner) wählen wohin die Dateien verschoben werden sollen 
"Snow Leopard:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das verschieben der Dateien") as Unicode text 
 
-- Alle Dokument-Namen des Ouellordners in eine Liste schreiben (ohne unsichtbare Dateien) 
set alleDokumente to list folder quellOrdner without invisibles 
 
-- Erstes Dokument finden und in eine Variable speichern 
-- Variablen zurücksetzen 
 
-- Ermittlung der Anzahl Dokumente  
-- Anfang: Schleife Dokumente ermitteln 
 
 
 
-- Ende: Schleife Dokumente ermitteln 
 
 
 
-- Dokumentname vom Pfad trennen 
-- Prüfen ob das Dokument im Ziel Verzeichnis existiert 
-- Wenn es existiert dann 
-- soll am ende des Dokumentenname eine zweistellige Zahl am Ende angehangen werden 
-- Wenn es nicht existiert dann 
-- soll es einfach in das Zielverzeichnis verschoben werden 
-- zurück nach oben um das nächste Dokument in die Variable zu speichern 

-- Modul Dateien verschieben ohne vorhandene Dateien zu überschreiben 
-- Version 0.0.3	Stand: 09.09.2010 
 
-- Quell Verzeichnis (Ordner) auswählen aus dem die Dokumente kommen 
-- "Snow Leopard:Users:michael:Documents:OCR PDF:" 
set quellOrdner to (choose folder with prompt "Wähle den Quellordner") as Unicode text 
 
-- Ziel Verzeichnis (Ordner) wählen wohin die Dateien verschoben werden sollen 
"Snow Leopard:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das verschieben der Dateien") as Unicode text 
 
-- Alle Dokument-Namen des Ouellordners in eine Liste schreiben (ohne unsichtbare Dateien) 
-- {"Astron - Bedienungsanleitung - Deckenventilator-1.pdf", "OCR Erkennung"} 
set alleDokumente to list folder quellOrdner without invisibles 
 
-- Variablen zurücksetzen 
-- Ermittlung der Anzahl Dokumente  
-- (2) 
set dokumentAnzahl to count of alleDokumente 
 
-- Erstes PDF Dokument finden und in eine Variable speichern 
repeat with pdfSchleife from 1 to dokumentAnzahl -- Beginn: Schleife Dokumentmanipulation 
end repeat 
 
 
 
-- Ermittlung der Anzahl Dokumente  
-- Anfang: Schleife Dokumente ermitteln 
 
 
 
-- Ende: Schleife Dokumente ermitteln 
 
 
 
-- Dokumentname vom Pfad trennen 
-- Prüfen ob das Dokument im Ziel Verzeichnis existiert 
-- Wenn es existiert dann 
-- soll am ende des Dokumentenname eine zweistellige Zahl am Ende angehangen werden 
-- Wenn es nicht existiert dann 
-- soll es einfach in das Zielverzeichnis verschoben werden 
-- zurück nach oben um das nächste Dokument in die Variable zu speichern 

-- Modul Dateien verschieben ohne vorhandene Dateien zu überschreiben 
-- Version 0.0.4	Stand: 09.09.2010 
 
-- Quell Verzeichnis (Ordner) auswählen aus dem die Dokumente kommen 
-- "Snow Leopard:Users:michael:Documents:OCR PDF:" 
set quellOrdner to (choose folder with prompt "Wähle den Quellordner") as Unicode text 
 
-- Ziel Verzeichnis (Ordner) wählen wohin die Dateien verschoben werden sollen 
"Snow Leopard:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das verschieben der Dateien") as Unicode text 
 
-- Alle Dokument-Namen des Ouellordners in eine Liste schreiben (ohne unsichtbare Dateien) 
-- {"Astron - Bedienungsanleitung - Deckenventilator-1.pdf", "OCR Erkennung"} 
set alleDokumenteQuelle to list folder quellOrdner without invisibles 
-- {"Astron - Bedienungsanleitung - Deckenventilator-1.pdf"} 
set alleDokumenteZiel to list folder zielOrdner without invisibles 
 
-- Variablen zurücksetzen 
-- Ermittlung der Anzahl Dokumente  
set dokumentAnzahl to count of alleDokumenteQuelle -- (2) 
 
-- Erstes PDF Dokument finden und in eine Variable speichern 
repeat with pdfSchleife from 1 to dokumentAnzahl -- Beginn: Schleife Dokumente ermitteln 
	set dokumentNameQuelle to (item pdfSchleife of my alleDokumenteQuelle) 
	if dokumentNameQuelle ends with ".pdf" then -- nur PDF Elemente werden weitergeleitet 
		-- "Astron - Bedienungsanleitung - Deckenventilator-1.pdf" 
		set quellDokument to dokumentNameQuelle 
	end if 
	-- Prüfen ob das Dokument im Ziel Verzeichnis existiert 
	-- Wenn es existiert dann 
	if (quellDokument as text) contains alleDokumenteZiel then 
		-- soll am Ende des Dokumentenname eine zweistellige Zahl am Ende angehangen werden 
		display dialog "ist im Zielverzeichnis vorhanden" 
	else 
		-- Wenn es nicht existiert dann 
		display dialog "ist im Zielverzeichnis nicht enthalten" 
		-- soll es einfach in das Zielverzeichnis verschoben werden 
	end if 
	 
	-- zurück nach oben um das nächste Dokument in die Variable zu speichern	 
end repeat -- Ende: Schleife Dokumente ermitteln 

 
-- Version 0.0.4	Stand: 09.09.2010 
 
-- Quell Verzeichnis (Ordner) auswählen aus dem die Dokumente kommen 
-- "Snow Leopard:Users:michael:Documents:OCR PDF:" 
set quellOrdner to (choose folder with prompt "Wähle den Quellordner") as Unicode text 
 
-- Ziel Verzeichnis (Ordner) wählen wohin die Dateien verschoben werden sollen 
"Snow Leopard:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das verschieben der Dateien") as Unicode text 
 
-- Alle Dokument-Namen des Ouellordners in eine Liste schreiben (ohne unsichtbare Dateien) 
-- {"Astron - Bedienungsanleitung - Deckenventilator-1.pdf", "OCR Erkennung"} 
set alleDokumenteQuelle to list folder quellOrdner without invisibles 
-- {"Astron - Bedienungsanleitung - Deckenventilator-1.pdf"} 
set alleDokumenteZiel to list folder zielOrdner without invisibles 
 
-- Variablen zurücksetzen 
-- Ermittlung der Anzahl Dokumente  
set dokumentAnzahl to count of alleDokumenteQuelle -- (2) 
 
-- Erstes PDF Dokument finden und in eine Variable speichern 
repeat with pdfSchleife from 1 to dokumentAnzahl -- Beginn: Schleife Dokumente ermitteln 
	set dokumentNameQuelle to (item pdfSchleife of my alleDokumenteQuelle) 
	if dokumentNameQuelle ends with ".pdf" then -- nur PDF Elemente werden weitergeleitet 
		-- "Astron - Bedienungsanleitung - Deckenventilator-1.pdf" 
		set quellDokument to dokumentNameQuelle 
	end if 
	-- Prüfen ob das Dokument im Ziel Verzeichnis existiert 
	-- Wenn es existiert dann 
	if (quellDokument as text) contains alleDokumenteZiel then 
		-- soll am Ende des Dokumentenname eine zweistellige Zahl am Ende angehangen werden 
		display dialog "ist im Zielverzeichnis vorhanden" 
	else 
		-- Wenn es nicht existiert dann 
		display dialog "ist im Zielverzeichnis nicht enthalten" 
		-- soll es einfach in das Zielverzeichnis verschoben werden 
	end if 
	 
	-- zurück nach oben um das nächste Dokument in die Variable zu speichern	 
end repeat -- Ende: Schleife Dokumente ermitteln" 

-- Modul Dateien verschieben ohne vorhandene Dateien zu überschreiben 
-- Version 0.0.5	Stand: 09.09.2010 
 
-- Variablen zurücksetzen 
-- set quellOrdner to "" 
-- set zielOrdner to "" 
 
-- Quell Verzeichnis (Ordner) auswählen aus dem die Dokumente kommen 
-- "Snow Leopard:Users:michael:Documents:OCR PDF:" 
set quellOrdner to (choose folder with prompt "Wähle den Quellordner") as Unicode text 
 
-- Ziel Verzeichnis (Ordner) wählen wohin die Dateien verschoben werden sollen 
-- "Snow Leopard:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das verschieben der Dateien") as Unicode text 
 
-- Variablen 
-- Alle Dokument-Namen des Ouellordners in eine Liste schreiben (ohne unsichtbare Dateien) 
repeat 
	set alleDokumenteQuelle to list folder quellOrdner without invisibles 
	set alleDokumenteZiel to list folder zielOrdner without invisibles 
	 
	set aktuellesDokument to item 1 of alleDokumenteQuelle 
	 
	if aktuellesDokument = "" then 
		-- ende des Scriptes 
		exit repeat 
	end if 
	 
	if aktuellesDokument ends with ".pdf" then 
		display dialog " ja ist ein PDF" 
		if alleDokumenteZiel contains aktuellesDokument then 
			-- Dokument umbenennen 
			-- Dokument verschieben 
		else 
			-- Dokument verschieben 
			try 
				tell application "Finder" 
					move file (quellOrdner & aktuellesDokument) to (zielOrdner & aktuellesDokument) 
				end tell 
			end try 
			 
		end if 
	else 
		display dialog "nein ist kein PDF" 
		-- zurück 
	end if 
end repeat 

if (quellDokument as text) contains alleDokumenteZiel then 

if alleDokumenteZiel contains quellDokument then 

set aktuellesDokument to item 1 of alleDokumenteQuelle 

tell application "Finder" 
  move file (quellOrdner & aktuellesDokument) to (zielOrdner & aktuellesDokument) 
end tell 

  move file (quellOrdner & aktuellesDokument) to folder zielOrdner 

set quellOrdner to (choose folder with prompt "Wähle den Quellordner") as Unicode text 
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das Verschieben der Dateien") as Unicode text 
set dokList to list folder quellOrdner without invisibles 
set aktuellesDokument to item 1 of dokList 
 
tell application "Finder" 
  if exists (file (zielOrdner & aktuellesDokument)) then 
    display dialog "Datei existiert" 
    -- die Datei ist schon vorhanden; also umbenennen und erst dann verschieben 
  else 
    display dialog "Datei existiert noch nicht" 
    -- die Datei gibt es dort noch nicht, also verschieben 
    try 
      tell application "Finder" to move file (quellOrdner & aktuellesDokument) to folder zielOrdner 
    end try 
  end if 
end tell 

set quellOrdner to (choose folder with prompt "Wähle den Quellordner") as Unicode text 
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das Verschieben der Dateien") as Unicode text 
set dokList to list folder quellOrdner without invisibles 
set aktuellesDokument to item 1 of dokList 
 
try 
  alias (zielOrdner & aktuellesDokument) 
  display dialog "Datei existiert" 
    -- die Datei ist schon vorhanden; also umbenennen und erst dann verschieben 
on error 
  display dialog "Datei existiert noch nicht" 
  -- die Datei gibt es dort noch nicht, also verschieben 
  try 
    tell application "Finder" to move file (quellOrdner & aktuellesDokument) to folder zielOrdner 
  end try 
end try 

set quellOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:" 
set zielOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
 
set alleDokumente to list folder quellOrdner without invisibles 
-- {"Astron - Bedienungsanleitung - Deckenventilator 1 Kopie 2.pdf", "Astron - Bedienungsanleitung - Deckenventilator 1 Kopie 3.pdf", "Astron - Bedienungsanleitung - Deckenventilator 1 Kopie 4.pdf", "Astron - Bedienungsanleitung - Deckenventilator 1 Kopie.pdf", "Astron - Bedienungsanleitung - Deckenventilator 1.pdf", "Astron - Bedienungsanleitung - Deckenventilator.pdf", "OCR Erkennung"} 
 
set pdfListe to (every item of alleDokumente whose name ends with ".pdf") 

set quellOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:" 
set zielOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
 
set alleDokumente to list folder quellOrdner without invisibles 
-- {"Astron - Bedienungsanleitung - Deckenventilator 1 Kopie 2.pdf", "Astron - Bedienungsanleitung - Deckenventilator 1 Kopie 3.pdf", "Astron - Bedienungsanleitung - Deckenventilator 1 Kopie 4.pdf", "Astron - Bedienungsanleitung - Deckenventilator 1 Kopie.pdf", "Astron - Bedienungsanleitung - Deckenventilator 1.pdf", "Astron - Bedienungsanleitung - Deckenventilator.pdf", "OCR Erkennung"} 
 
try 
	-- soll nur PDF Daten in das Zielverzeichnis kopieren 
	tell application "Finder" 
		move (every item of quellOrdner & alleDokumenteQuelle whose name ends with ".pdf") to zielOrdner 
	end tell 
end try 

set quellOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:" 
set zielOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
 
tell application "Finder" 
  set pdfListe to every file of folder quellOrdner whose file type is "PDF " 
end tell 

set quellOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:" 
set zielOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
 
tell application "Finder" 
  set pdfListe to name of (every file of folder quellOrdner whose file type is "PDF ") 
end tell 

set quellOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:" 
set zielOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
 
tell application "Finder" 
  set pdfListe to every file of folder quellOrdner whose kind is "Adobe PDF document" 
end tell 

set quellOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:" 
set zielOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
 
tell application "Finder" 
  set pdfListe to name of (every file of folder quellOrdner whose kind is "Adobe PDF document") 
end tell 

set quellOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:" 
set zielOrdner to "Mac Mini:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
 
try 
  tell application "Finder" 
    move (every file of folder quellOrdner whose kind is "Adobe PDF document") to zielOrdner 
  end tell 
end try 

-- Modul Dateien verschieben ohne vorhandene Dateien zu überschreiben 
-- Version 0.0.7	Stand: 09.09.2010 
 
-- Quell Verzeichnis (Ordner) auswählen aus dem die Dokumente kommen 
set quellOrdner to (choose folder with prompt "Wähle den Quellordner") as Unicode text 
-- Ziel Verzeichnis (Ordner) wählen wohin die Dateien verschoben werden sollen 
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das verschieben der Dateien") as Unicode text 
 
-- Alle PDF Dokument-Namen des Ouellordners in eine Liste schreiben 
tell application "Finder" 
	-- set pdfListe to every file of folder quellOrdner whose kind is "Adobe PDF document" 
	set pdfListe to name of (every file of folder quellOrdner whose file type is "PDF ") 
end tell 
 
-- Anzahl der PDF Dateien herausfinden 
set anzahlDateien to count pdfListe 
 
repeat with pdfSchleife from 1 to anzahlDateien 
	set aktuellesDokument to item pdfSchleife of pdfListe 
	 
	tell application "Finder" 
		if exists (file (zielOrdner & aktuellesDokument)) then 
			display dialog "Datei existiert" 
			-- die Datei ist schon vorhanden; also umbenennen und erst dann verschieben  
		else 
			--display dialog "Datei existiert noch nicht" 
			-- die Datei gibt es dort noch nicht, also verschieben  
			try 
				-- tell application "Finder" to move file (quellOrdner & aktuellesDokument) to folder zielOrdner 
				move file (quellOrdner & aktuellesDokument) to folder zielOrdner 
			end try 
		end if 
	end tell 
end repeat 

try 
  alias (zielOrdner & aktuellesDokument) 

-- Modul Dateien verschieben ohne vorhandene Dateien zu überschreiben 
-- Version 0.0.8	Stand: 09.09.2010 
 
-- Quell Verzeichnis (Ordner) auswählen aus dem die Dokumente kommen 
set quellOrdner to "System Mini:Users:michael:Documents:OCR Dateien:" 
-- set quellOrdner to (choose folder with prompt "Wähle den Quellordner") as Unicode text 
-- Ziel Verzeichnis (Ordner) wählen wohin die Dateien verschoben werden sollen 
set zielOrdner to "System Mini:Users:michael:Documents:OCR Ablage:" 
-- set zielOrdner to (choose folder with prompt "Wähle den Zielordner für das verschieben der Dateien") as Unicode text 
 
-- Alle PDF Dokument-Namen des Ouellordners in eine Liste schreiben 
tell application "Finder" 
	-- set pdfListe to every file of folder quellOrdner whose kind is "Adobe PDF document" 
	set pdfListe to name of (every file of folder quellOrdner whose file type is "PDF ") 
end tell 
 
-- Anzahl der PDF Dateien herausfinden 
set anzahlDateien to count pdfListe 
 
repeat with pdfSchleife from 1 to anzahlDateien 
	set aktuellesDokument to item pdfSchleife of pdfListe 
	tell application "Finder" 
		if exists (file (zielOrdner & aktuellesDokument)) then 
			-- Die Datei ist schon vorhanden 
			-- display dialog "Datei existiert" 
			-- Zerlegung der Textitems durch den Punkt "."   
			set AppleScript's text item delimiters to "." 
			set tempDokument to text items of aktuellesDokument -- Zerlege den Dateiname 
			-- Zerlegung der Textitems zurücksetzen  
			set AppleScript's text item delimiters to {""} 
			set tempDokument to reverse of tempDokument -- Anhang nach vorne bringen 
			set anHang to "." & item 1 of tempDokument -- speichere den Anhang 
			set tempDokument to rest of tempDokument -- Angang wegnehmen 
			set fZahl to 1 as string 
			if length of fZahl < 2 then 
				set fZahl to "0" & fZahl as text 
			end if 
			 
			-- Datei umbenennen 
			set neuesDokument to tempDokument & " " & fZahl & anHang as text 
			set NeueDatei to zielOrdner & neuesDokument as alias 
			set aktuelleDatei to quellOrdner & aktuellesDokument as alias 
			-- display dialog aktuellesDokument 
			-- display dialog neuesDokument 
			 
			tell application "Finder" 
				-- denke noch nach	 
				 
			end tell 
			(* 
			-- die Datei verschieben 
			tell application "Finder" 
				-- try 
				move file (quellOrdner & aktuellesDokument) to folder zielOrdner 
				-- end try 
			end tell *) 
			-- die Datei verschieben 
		else 
			--display dialog "Datei existiert noch nicht" 
			-- die Datei gibt es dort noch nicht, also verschieben  
			try 
				-- tell application "Finder" to move file (quellOrdner & aktuellesDokument) to folder zielOrdner 
				move file (quellOrdner & aktuellesDokument) to folder zielOrdner 
			end try 
		end if 
	end tell 
end repeat 

set aktuellesDokument to "Deckenventilator.pdf" 
set AppleScript's text item delimiters to "." 
set anHang to text item -1 of aktuellesDokument 
set AppleScript's text item delimiters to {""} 
anHang 

set aktuellesDokument to "Deckenventilator.pdf" 
set alterName to text 1 thru -5 of aktuellesDokument 
 
set aZahl to 1 
set fZahl to text -2 thru -1 of ("0" & aZahl) 
 
set neuerName to alterName & " " & fZahl & ".pdf" 

set quellOrdner to "System Mini:Users:michael:Documents:OCR Dateien:" 
set zielOrdner to "System Mini:Users:michael:Documents:OCR Ablage:" 
 
tell application "Finder" 
	set pdfListe to name of (every file of folder quellOrdner whose file type is "PDF ") 
end tell 
 
set aktuellerName to item 1 of pdfListe 
 
set alterName to text 1 thru -5 of aktuellerName 
set aZahl to 1 
set fZahl to text -2 thru -1 of ("0" & aZahl) 
 
set neuerName to alterName & " " & fZahl & ".pdf" 
 
set aktuellesDokument to (quellOrdner & aktuellerName) as alias 
 
tell application "Finder" 
	set name of aktuellesDokument to neuerName 
end tell 

set curName to "test.pdf" 
 
if curName ends with ".pdf" then 
  set msg to "Das Suffix lautet \".pdf\"" 
else 
  set msg to "Der Dateiname endet nicht mit \".pdf\"" 
end if 

-- Modul Dateien verschieben ohne vorhandene Dateien zu überschreiben 
-- Version 0.0.10	Stand: 11.09.2010 
-- Kommentar: Umbenennung von gleichen Dateien geht jetzt 
-- Kommentar: verschieben der Dateien in den Ziel Ordner geht jetzt 

set fZahl to text -2 thru -1 of ("0" & aZahl) 

log fZahl 

set aktuelleDatei to "2002 Schriftverkehr ohne OCR 01" 
 
set anZahl to count of aktuelleDatei 
repeat with aZahl from 1 to anZahl 
	set bb to "-" & aZahl 
	-- display dialog bb 
	set Zeichen to (character bb of aktuelleDatei) 
	-- display dialog Zeichen 
	-- if zeichen eine Zahl then 
	-- speichere die Zahl 
	-- else 
	-- wenn Zeichen keine Zahl ist dann 
	-- gefundene Zeichen zusammensetzen  
end repeat 
 
-- von der aktuellen Datei die Zahl entfernen  
-- gefundene Zahl um eins erhöhen 
-- der aktuellen Datei die erhöhte Zahl zufügen 
-- das PDF kurzel anhängen 
-- Prüfen ob die Datei schon existiert 
-- wenn nicht dann verschieben in zielverzeichnis 
-- Wenn ja zurück zu Datei einlesen 

property quellOrdner : "Mac Mini:Users:michael:Documents:OCR PDF:" 
property zielOrdner : "Mac Mini:Users:michael:Documents:OCR PDF:OCR Erkennung:" 
 
-- der Dateiname 
set aktuellerName to "2002 Schriftverkehr ohne OCR 01.pdf" 
 
-- das Alias der Datei 
set aktuellesDokument to (quellOrdner & aktuellerName) as alias 
 
-- prüfen, ob diese Datei schon im Zielordner existiert 
set istDort to checkFile(aktuellerName) 
 
-- wenn diese Datei im Zielordner vorhanden ist ... 
if istDort then 
  -- Suffix abschneiden 
  set alterName to text 1 thru -5 of aktuellerName 
  -- Zeichen zählen 
  set nChars to count alterName 
  -- Name an 'aText' übergeben (falls keine Zahl am Ende) 
  set aText to alterName 
  -- Zahlen-Variable initialisieren 
  set aZahl to "" 
   
  -- rückwärtslaufende Schleife durch den Namen 
  repeat with i from nChars to 1 by -1 
    -- prüfen, ob das Zeichen eine Ziffer ist 
    if character i of alterName is not in "0123456789" then 
      -- nur wenn der Zählerwert kleiner als die Anzahl Zeichen ist 
      if i is less than nChars then 
        set aText to text 1 thru i of alterName 
        set aZahl to text (i + 1) thru nChars of alterName 
        set nZahl to count aZahl 
      end if 
      exit repeat 
    end if 
  end repeat 
   
  -- Zahl hochzählen 
  -- wenn keine vorhanden, bei 1 beginnen 
  if aZahl is "" then 
    set ctr to 1 
    repeat while istDort 
      set fZahl to text -2 thru -1 of ("0" & ctr) 
      set neuerName to aText & " " & fZahl & ".pdf" 
      set istDort to checkFile(neuerName) 
      set ctr to ctr + 1 
    end repeat 
    -- die Datei umbenennen 
    try 
      tell application "Finder" to set name of aktuellesDokument to neuerName 
    end try 
    -- sonst, wenn Zahl vorhanden, diese umwandeln 
  else 
    set aZahl to (aZahl as integer) + 1 
    repeat while istDort 
      set fZahl to text -nZahl thru -1 of ("0000000" & aZahl) 
      set neuerName to aText & fZahl & ".pdf" 
      set istDort to checkFile(neuerName) 
      set aZahl to aZahl + 1 
    end repeat 
    -- die Datei umbenennen 
    try 
      tell application "Finder" to set name of aktuellesDokument to neuerName 
    end try 
  end if 
end if 
 
--  die Datei verschieben (ob umbenannt oder nicht) 
try 
  tell application "Finder" to move file aktuellesDokument to folder zielOrdner 
end try 
 
on checkFile(aktuellerName) 
  try 
    alias (zielOrdner & aktuellerName) 
    return true 
  on error 
    return false 
  end try 
end checkFile 

property quellOrdner : "Mac Mini:Users:michael:Documents:OCR Scans:" 
property zielPfad : "Mac Mini:Users:michael:Documents:OCR Ablage:" 
 
-- der Dateiname ohne Pfad 
set aktuellerName to "2002 Rechnung  ohne OCR.pdf" 
 
-- Pfadergänzung für ZielOrdner 
property zielOrdner : zielPfad & "OCR Erkennung:" 
 
-- Aufrufen des Handlers prüfen des Dateinamens 
pruefeDateiName(aktuellerName) 
 
-- Handler Bibliotheken 
 
on pruefeDateiName(aktuellerName) 
	-- das Alias der Datei mit Pfad  
	set aktuellesDokument to (quellOrdner & aktuellerName) as alias 
	 
	-- prüfen, ob diese Datei schon im Zielordner existiert  
	set istDort to pruefeDatei(aktuellerName) 
	 
	-- wenn diese Datei im Zielordner vorhanden ist ...  
	if istDort then 
		-- Suffix abschneiden  
		set alterName to text 1 thru -5 of aktuellerName 
		-- Zeichen zählen  
		set nChars to count alterName 
		-- Name an 'aText' übergeben (falls keine Zahl am Ende)  
		set aText to alterName 
		-- Zahlen-Variable initialisieren  
		set aZahl to "" 
		 
		-- rückwärtslaufende Schleife durch den Namen  
		repeat with i from nChars to 1 by -1 
			-- prüfen, ob das Zeichen eine Ziffer ist  
			if character i of alterName is not in "0123456789" then 
				-- nur wenn der Zählerwert kleiner als die Anzahl Zeichen ist  
				if i is less than nChars then 
					set aText to text 1 thru i of alterName 
					set aZahl to text (i + 1) thru nChars of alterName 
					set nZahl to count aZahl 
				end if 
				exit repeat 
			end if 
		end repeat 
		 
		-- Zahl hochzählen  
		-- wenn keine vorhanden, bei 1 beginnen  
		if aZahl is "" then 
			set ctr to 1 
			repeat while istDort 
				set fZahl to text -2 thru -1 of ("0" & ctr) 
				set neuerName to aText & " " & fZahl & ".pdf" 
				set istDort to pruefeDatei(neuerName) 
				set ctr to ctr + 1 
			end repeat 
			-- die Datei umbenennen  
			try 
				tell application "Finder" to set name of aktuellesDokument to neuerName 
			end try 
			-- sonst, wenn Zahl vorhanden, diese umwandeln  
		else 
			set aZahl to (aZahl as integer) + 1 
			repeat while istDort 
				set fZahl to text -nZahl thru -1 of ("0000000" & aZahl) 
				set neuerName to aText & fZahl & ".pdf" 
				set istDort to pruefeDatei(neuerName) 
				set aZahl to aZahl + 1 
			end repeat 
			-- die Datei umbenennen  
			try 
				tell application "Finder" to set name of aktuellesDokument to neuerName 
			end try 
		end if 
	end if 
	 
	--  die Datei verschieben (ob umbenannt oder nicht)  
	try 
		tell application "Finder" to move file aktuellesDokument to folder zielOrdner 
	end try 
	return {neuerName} 
end pruefeDateiName 
 
 
on pruefeDatei(aktuellerName) 
	try 
		alias (zielOrdner & aktuellerName) 
		return true 
	on error 
		return false 
	end try 
end pruefeDatei 

if textBlock = "" then 
	property zielOrdner:zielPfad&ocrEngine 

property quellOrdner : "Mac Mini:Users:michael:Documents:OCR Scans:" 
set zielPfad to "Mac Mini:Users:michael:Documents:OCR Ablage:" 
 
-- der Dateiname ohne Pfad 
set aktuellerName to "2002 Rechnung  ohne OCR.pdf" 
 
if aktuellerName contains "2002" then 
	-- Pfadergänzung für ZielOrdner 
	set zielOrdner to zielPfad & "OCR Erkennung:" 
	-- Aufrufen des Handlers prüfen des Dateinamens 
	pruefeDateiName(aktuellerName, zielOrdner) 
end if 
 
 
-- Handler Bibliotheken 
 
on pruefeDateiName(aktuellerName, zielOrdner) 
	-- das Alias der Datei mit Pfad  
	set aktuellesDokument to (quellOrdner & aktuellerName) as alias 
	 
	-- prüfen, ob diese Datei schon im Zielordner existiert  
	set istDort to pruefeDatei(aktuellerName, zielOrdner) 
	 
	-- wenn diese Datei im Zielordner vorhanden ist ...  
	if istDort then 
		-- Suffix abschneiden  
		set alterName to text 1 thru -5 of aktuellerName 
		-- Zeichen zählen  
		set nChars to count alterName 
		-- Name an 'aText' übergeben (falls keine Zahl am Ende)  
		set aText to alterName 
		-- Zahlen-Variable initialisieren  
		set aZahl to "" 
		 
		-- rückwärtslaufende Schleife durch den Namen  
		repeat with i from nChars to 1 by -1 
			-- prüfen, ob das Zeichen eine Ziffer ist  
			if character i of alterName is not in "0123456789" then 
				-- nur wenn der Zählerwert kleiner als die Anzahl Zeichen ist  
				if i is less than nChars then 
					set aText to text 1 thru i of alterName 
					set aZahl to text (i + 1) thru nChars of alterName 
					set nZahl to count aZahl 
				end if 
				exit repeat 
			end if 
		end repeat 
		 
		-- Zahl hochzählen  
		-- wenn keine vorhanden, bei 1 beginnen  
		if aZahl is "" then 
			set ctr to 1 
			repeat while istDort 
				set fZahl to text -2 thru -1 of ("0" & ctr) 
				set neuerName to aText & " " & fZahl & ".pdf" 
				set istDort to pruefeDatei(neuerName, zielOrdner) 
				set ctr to ctr + 1 
			end repeat 
			-- die Datei umbenennen  
			try 
				tell application "Finder" to set name of aktuellesDokument to neuerName 
			end try 
			-- sonst, wenn Zahl vorhanden, diese umwandeln  
		else 
			set aZahl to (aZahl as integer) + 1 
			repeat while istDort 
				set fZahl to text -nZahl thru -1 of ("0000000" & aZahl) 
				set neuerName to aText & fZahl & ".pdf" 
				set istDort to pruefeDatei(neuerName, zielOrdner) 
				set aZahl to aZahl + 1 
			end repeat 
			-- die Datei umbenennen  
			try 
				tell application "Finder" to set name of aktuellesDokument to neuerName 
			end try 
		end if 
	end if 
	 
	--  die Datei verschieben (ob umbenannt oder nicht)  
	try 
		tell application "Finder" to move file aktuellesDokument to folder zielOrdner 
	end try 
	return {neuerName} 
end pruefeDateiName 
 
 
on pruefeDatei(aktuellerName, zielOrdner) 
	try 
		alias (zielOrdner & aktuellerName) 
		return true 
	on error 
		return false 
	end try 
end pruefeDatei 

-- aktuelleDatei als Alias definieren 
		tell application "Finder" 
			set aktuelleDatei to (quellOrdner & aktuellerName) as alias 
		end tell 

open (quellOrdner & aktuellerName) -- Öffnen aktuelles Dokument 
open aktuelleDatei -- statt quellordner & aktuellerName 

-- zwei Variablen als 'global' definieren 
global quellOrdner 
global zielOrdner 
 
-- Auswahl des Quellordners   
set quellOrdner to (choose folder with prompt "Wähle den Quellordner mit PDF-Dateien") as Unicode text 
-- Auswahl des Zielordners   
set zielOrdner to (choose folder with prompt "Wähle den Zielordner für die PDF-Dateien") as Unicode text 

property quellOrdner : "Pfad:zum:Quellordner:" 
property zielOrdner : "Pfad:zum:Zielordner:" 
 
try 
  alias quellOrdner 
on error 
  set quellOrdner to (choose folder with prompt "Wähle den Quellordner mit PDF-Dateien") as Unicode text 
end try 
 
try 
  alias zielOrdner 
on error 
  set zielOrdner to (choose folder with prompt "Wähle den Zielordner für die PDF-Dateien") as Unicode text 
end try 

(* 
	input parameters: 
	theSource=Path to file or folder as string (folder with trailing ":" copies only contents of Folder, without the folder itself) 
	theDest = path to destination folder or file as string 
	overWriteVar = Boolean overwrite an existing file or not 
	*) 
on duplicateFileUnix(theSource, theDest, overWriteVar) 
	log ("*Duplicate File " & theSource & " to " & theDest as string) 
	try 
		if overWriteVar = false then 
			do shell script "cp -Rn " & (quoted form of (POSIX path of theSource)) & " " & (quoted form of (POSIX path of theDest)) 
		else 
			do shell script "cp -R " & (quoted form of (POSIX path of theSource)) & " " & (quoted form of (POSIX path of theDest)) 
		end if 
		tell application "Finder" 
			try 
				update alias (theDest as string) 
			end try 
			if theDest ends with ":" then 
				set tmpName to name of item (theSource as string) as string 
				if exists item (theDest & tmpName as string) then return true 
			else 
				if exists item (theDest as string) then return true 
			end if 
			 
		end tell 
		return false 
	on error 
		return false 
	end try 
end duplicateFileUnix 

on checkFileExists(FileToCheckString) 
	try 
		set thePath to quoted form of (POSIX path of FileToCheckString) 
		do shell script "test -f " & thePath 
		return true 
	on error 
		return false 
	end try 
end checkFileExists 

on deleteFileUnix(theFile) 
	log ("*Delete File " & theFile) 
	try 
		do shell script "rm -f " & (quoted form of (POSIX path of theFile)) 
		try 
			theFile as alias 
			return false 
		on error 
			return true 
		end try 
	on error 
		return false 
	end try 
end deleteFileUnix