-- Handler findeDokumentart Version 0.0.01 Stand: 01.10.2010 
-- Kommentar: Ohne Textblock arbeitet das Skript die richtige Reihenfolge ab 
-- Kommentar: Absender, Dateiart und Betreff werden ohne else korrekt gefunden 
-- Kommentar: Absender, Dateiart und Betreff werden mit else nur leere Variblen geschrieben 
 
-- Script Anfang: 
 
-- set textBlock to "" 
-- set textBlock to "Die Rechnung von Quelle für die Waschmaschine wurde am 25.10.2005 ausgestellt." 
-- set textBlock to "Die Mahnung von Happy Size für die Schuhe wurde am 25.10.2005 erinnert" 
set textBlock to "Das Finanzamt hat die mit Schriftverkehr die Steuererklärung für das Kalenderjahr 2005 am 25.10.2005 erinnert." 
 
set {Absender, Dokumentart, Betreff} to findeDokumentart(textBlock) 
 
-- Script Ende: 
 
 
 
-- Handler Bibliothek 
on findeDokumentart(textBlock) 
	 
	-- Textblock in eine Liste umwandeln  
	set textListe to every word of textBlock 
	-- Anzahl der Worte aus der Liste ermitteln  
	set anzahlListe to count textListe 
	 
	-- display dialog anzahlListe 
	 
	-- Prüfung ob der Text in textBlock enthalten ist oder nicht 
	if anzahlListe is equal to 0 then 
		-- Dokument enthält keinen Text 
		set Absender to "" 
		set Dokumentart to "" 
		set Betreff to "" 
		-- zum Ende des Handlers 
	else 
		set absListe to {"Happy Size", "Quelle", "Finanzamt"} 
		set absListeAnzahl to count absListe 
		repeat with absListeSchleife from 1 to absListeAnzahl 
			set absElement to item absListeSchleife of absListe 
			if textBlock contains absElement then 
				set Absender to absElement 
				-- else 
				-- set Absender to "" 
			end if 
		end repeat 
		 
		-- display dialog Absender 
		 
		set artListe to {"Rechnung", "Mahnung", "Schriftverkehr"} 
		set artListeAnzahl to count artListe 
		repeat with artListeSchleife from 1 to artListeAnzahl 
			set artElement to item artListeSchleife of artListe 
			if textBlock contains artElement then 
				set Dokumentart to artElement 
				-- else 
				-- set Dokumentart to "" 
			end if 
		end repeat 
		 
		-- display dialog Dokumentart 
		 
		set betreffListe to {"Bügeleisen", "Schuhe", "Steuererklärung", "Waschmaschine"} 
		set betreffListeAnzahl to count betreffListe 
		repeat with betreffListeSchleife from 1 to betreffListeAnzahl 
			set betreffElement to item betreffListeSchleife of betreffListe 
			if textBlock contains betreffElement then 
				set Betreff to betreffElement 
				-- else 
				-- set Betreff to "" 
			end if 
		end repeat 
		 
		-- display dialog Betreff 
		 
	end if 
	 
	-- Übergebe der Variablen zurück zum Handler-Aufruf   
	return {Absender, Dokumentart, Betreff} 
end findeDokumentart 

    repeat with absListeSchleife from 1 to absListeAnzahl 
      set absElement to item absListeSchleife of absListe 
      if textBlock contains absElement then 
        set Absender to absElement 
        exit repeat 
      else 
        set Absender to "" 
      end if 
    end repeat 

-- Handler findeDokumentart Version 0.0.01 Stand: 01.10.2010  
 
-- Script Anfang:  
 
-- set textBlock to ""  
-- set textBlock to "Die Rechnung von Quelle für die Waschmaschine wurde am 25.10.2005 ausgestellt." 
-- set textBlock to "Die Mahnung von Happy Size für die Schuhe wurde am 25.10.2005 erinnert" 
set textBlock to "Das Finanzamt hat die mit Schriftverkehr die Steuererklärung für das Kalenderjahr 2005 am 25.10.2005 erinnert." 
 
set {Absender, Dokumentart, Betreff} to findeDokumentart(textBlock) 
 
-- Handler Bibliothek  
on findeDokumentart(textBlock) 
   
  -- Textblock in eine Liste umwandeln   
  set textListe to every word of textBlock 
  -- Anzahl der Worte aus der Liste ermitteln   
  set anzahlListe to count textListe 
   
  -- display dialog anzahlListe  
   
  -- Prüfung ob der Text in textBlock enthalten ist oder nicht  
  if anzahlListe is equal to 0 then 
    -- Dokument enthält keinen Text  
    set Absender to "" 
    set Dokumentart to "" 
    set Betreff to "" 
    -- zum Ende des Handlers  
  else 
    set Absender to "" 
    set absListe to {"Happy Size", "Quelle", "Finanzamt"} 
    repeat with i from 1 to count absListe 
      set absElement to item i of absListe 
      if textBlock contains absElement then 
        set Absender to absElement 
        exit repeat 
      end if 
    end repeat 
     
    set Dokumentart to "" 
    set artListe to {"Rechnung", "Mahnung", "Schriftverkehr"} 
    repeat with i from 1 to count artListe 
      set artElement to item i of artListe 
      if textBlock contains artElement then 
        set Dokumentart to artElement 
        exit repeat 
      end if 
    end repeat 
     
    set Betreff to "" 
    set betreffListe to {"Bügeleisen", "Schuhe", "Steuererklärung", "Waschmaschine"} 
    repeat with i from 1 to count betreffListe 
      set betreffElement to item i of betreffListe 
      if textBlock contains betreffElement then 
        set Betreff to betreffElement 
        exit repeat 
      end if 
    end repeat 
  end if 
   
  -- Übergebe der Variablen zurück zum Handler-Aufruf    
  return {Absender, Dokumentart, Betreff} 
end findeDokumentart 

set AppleScript's text item delimiters to {"\n"} 

set AppleScript's text item delimiters to {" 
"} 

set newFile to open for access file ((path to desktop as text) & "EL_Absender.txt") 
set absInhalt to read newFile 
close access newFile 
set AppleScript's text item delimiters to {"\n"} 
set absListe to every word of absInhalt 
set AppleScript's text item delimiters to {""} 
absListe 

set AppleScript's text item delimiters to {ASCII character 13} 

set newFile to ((path to desktop as text) & "EL_Absender.txt") 
set absInhalt to read file newFile 
set AppleScript's text item delimiters to {return} 
set absListe to every text item of absInhalt 
set AppleScript's text item delimiters to {""} 
absListe 

set absListe to every paragraph of absInhalt 

set absFile to open for access file ((path to "mac mini:Users:michael:Documents:dateFinder Einstellungen:" as text) & "df_Absender.txt") 
set absInhalt to read absFile 
-- close access absFile 
set absListe to every paragraph of absInhalt 
-- absInhalt 
absListe 

-- set absFile to open for access file ((path to desktop as text) & "df_Absender.txt") 
set absInhalt to read "mac mini:users:michael:Desktop:df_Absender.txt" 
-- close access absFile 
set absListe to every paragraph of absInhalt 
-- absInhalt 
absListe 

set absFile to (open for access file "mac mini:users:michael:Documents:dateFinder Einstellungen:pref_Absender.txt") 
set absInhalt to read absFile 
close access absFile 
set absListe to every paragraph of absInhalt 
-- absInhalt 
absListe 

-- Handler findeDokumentart Version 0.0.03 Stand: 01.10.2010 
-- Kommentar: Ohne Textblock arbeitet das Skript die richtige Reihenfolge ab 
-- Kommentar: Absender, Dateiart und Betreff werden ohne else korrekt gefunden 
-- Kommentar: Absender, Dateiart und Betreff werden mit else nur leere Variblen geschrieben 
-- Kommentar: Schleifen anders aufgebaut und mit exit repeat beendet 
--Kommentar: Daten aus der Textdatei Absender in die Variable einlesen 
--Kommentar: Daten aus der Textdatei Dokumentart in die Variable einlesen 
--Kommentar: Daten aus der Textdatei Betreff in die Variable einlesen 
 
-- Script Anfang:   
 
-- set textBlock to "" 
-- set textBlock to "Die Rechnung von Quelle für die Waschmaschine wurde am 25.10.2005 ausgestellt." 
-- set textBlock to "Die Mahnung von Happy Size für die Schuhe wurde am 25.10.2005 erinnert" 
set textBlock to "Das Finanzamt hat die mit Schriftverkehr die Steuererklärung für das Kalenderjahr 2005 am 25.10.2005 erinnert." 
 
set {Absender, Dokumentart, Betreff} to findeDokumentart(textBlock) 
 
-- Script Ende: 
 
 
-- Handler Bibliothek   
on findeDokumentart(textBlock) 
	 
	-- Textblock in eine Liste umwandeln    
	set textListe to every word of textBlock 
	-- Anzahl der Worte aus der Liste ermitteln    
	set anzahlListe to count textListe 
	 
	-- display dialog anzahlListe   
	 
	-- Prüfung ob der Text in textBlock enthalten ist oder nicht   
	if anzahlListe is equal to 0 then 
		-- Dokument enthält keinen Text   
		set Absender to "" 
		set Dokumentart to "" 
		set Betreff to "" 
		-- zum Ende des Handlers   
	else 
		-- Prüfen der Absender 
		set Absender to "" 
		-- Einlesen der Daten aus der Textdatei pref_Absender.txt 
		set absFile to (open for access file "mac mini:users:michael:Documents:dateFinder Einstellungen:pref_Absender.txt") 
		set absInhalt to read absFile 
		close access absFile 
		set absListe to every paragraph of absInhalt 
		repeat with i from 1 to count absListe 
			set absElement to item i of absListe 
			if textBlock contains absElement then 
				set Absender to absElement 
				exit repeat 
			end if 
		end repeat 
		 
		-- Prüfen der Dokumentart 
		set Dokumentart to "" 
		-- Einlesen der Daten aus der Textdatei pref_Dokumentart.txt 
		set artFile to (open for access file "mac mini:users:michael:Documents:dateFinder Einstellungen:pref_Dokumentart.txt") 
		set artInhalt to read artFile 
		close access artFile 
		set artListe to every paragraph of artInhalt 
		repeat with i from 1 to count artListe 
			set artElement to item i of artListe 
			if textBlock contains artElement then 
				set Dokumentart to artElement 
				exit repeat 
			end if 
		end repeat 
		 
		-- Prüfen des Betreffs 
		set Betreff to "" 
		-- Einlesen der Daten aus der Textdatei pref_Betreff.txt 
		set betreffFile to (open for access file "mac mini:users:michael:Documents:dateFinder Einstellungen:pref_Betreff.txt") 
		set betreffInhalt to read betreffFile 
		close access betreffFile 
		set betreffListe to every paragraph of betreffInhalt 
		repeat with i from 1 to count betreffListe 
			set betreffElement to item i of betreffListe 
			if textBlock contains betreffElement then 
				set Betreff to betreffElement 
				exit repeat 
			end if 
		end repeat 
	end if 
	 
	-- Übergebe der Variablen zurück zum Handler-Aufruf     
	return {Absender, Dokumentart, Betreff} 
end findeDokumentart