if length of yyyy < 4 then 
	-- Jahreszahlen in 4 Stellen umwandeln 90er 
	repeat with jZahl1 from 40 to yyyy -- Beginn: Schleife Jahreszahlen durchlaufen von 1940 bis 1999 
		if item 3 of pruefTeile = jZahl1 then -- Wenn die Jahreszahl 50 bis 99 ist dann 
		end if 
		set item 3 of pruefTeile to "19" & jZahl1 -- speicher die Jahreszahl in item 3 
	end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 1950 bis 1999 
	 
	-- Jahreszahlen in 4 Stellen umwandeln 2000er 
	repeat with jZahl2 from 1 to 9 -- Beginn: Schleife Jahreszahlen durchlaufen von 2001 bis 2010 
		if item 3 of pruefTeile = "0" & jZahl2 then -- Wenn die Jahreszahl 01 bis 09 ist dann 
			set item 3 of pruefTeile to "200" & jZahl2 -- speichere die Jahreszahl in item 3 
		end if 
		if item 3 of pruefTeile = "10" then -- oder wenn die Jahreszahl 10 ist dann 
			set item 3 of pruefTeile to "2010" -- speichere die Jahreszahl 2010 in item 3 
		end if 
	end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 2001 bis 2010 
end if -- display dialog item 3 of pruefTeile -- Korrektur Item Wert 3 (Jahreszahl z.B. "2008") 
set gefundendatum to text items of pruefTeile as text -- fügt die text items wiede rzusammen zu einem Punkt getrennten Text 
display dialog gefundendatum 

set punktListe to {"16.10.68", "192.168.178.0", "21.03.1899", "99.65.00", "20.04.1705"} 
set anzahlPunktListe to 3 
 
-- Schaut in die Liste mit Punkt getrennten Elementen  und sucht nach echten Datumsangaben  
-- und schreibt diese in eine Datumsliste 
-- Dabei werden die Jahreszahlen auf 4 Stellen ergänzt 
 
repeat with datumSchleife from 1 to anzahlPunktListe -- Beginn Schleife für Datum Prüfung 
	set pruefdatum to text item datumSchleife of punktListe -- schreibt das erste punktWort in die Variable pruefDatum 
	set pruefTeile to text items of pruefdatum -- schreibt pruefdatum Teile in eine Liste pruefTeile 
	 
	if (count of pruefTeile) = 3 then -- Zählen der pruefTeile und wenn es drei sind dann 
		set dd to item 1 of pruefTeile -- zerlege ersten Zahlenblock in dd für Tag 
		set mm to item 2 of pruefTeile -- zerlege zweiten Zahlenblock in mm für Monat 
		set yyyy to item 3 of pruefTeile -- zerlege dritten Zahlenblock in yy für Jahr 
		 
		-- Wenn Tag eine Ganzzahl und kleiner als 32 ist und 
		-- Monat eine ganzzahlt ist und kleiner als 13 und 
		-- die Länge von Jahr grösser ist als 1 und die länge kleiner al 5 ist dann 
		if (dd as integer < 32 and mm as integer < 13 and length of yyyy > 1 and length of yyyy < 5) then 
			 
			-- Jahreszahlen auf 4 Stellen ergänzen 
			if length of yyyy < 4 then -- Wenn die Jahreszahl kleiner als 4 Stellen hat dann 
				 
				-- Jahreszahlen in 4 Stellen umwandeln 90er 
				repeat with jZahl1 from 40 to yyyy -- Beginn: Schleife Jahreszahlen durchlaufen von 1950 bis 1999 
					if item 3 of pruefTeile = jZahl1 then -- Wenn die Jahreszahl 50 bis 99 ist dann 
					end if 
					set item 3 of pruefTeile to "19" & jZahl1 -- speicher die Jahreszahl in item 3 
				end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 1950 bis 1999 
				 
				-- Jahreszahlen in 4 Stellen umwandeln 2000er 
				repeat with jZahl2 from 1 to 9 -- Beginn: Schleife Jahreszahlen durchlaufen von 2001 bis 2010 
					if item 3 of pruefTeile = "0" & jZahl2 then -- Wenn die Jahreszahl 01 bis 09 ist dann 
						set item 3 of pruefTeile to "200" & jZahl2 -- speichere die Jahreszahl in item 3 
					end if 
					if item 3 of pruefTeile = "10" then -- oder wenn die Jahreszahl 10 ist dann 
						set item 3 of pruefTeile to "2010" -- speichere die Jahreszahl 2010 in item 3 
					end if 
				end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 2001 bis 2010 
			end if 
			set gefundendatum to text items of pruefTeile as text -- fügt die text items wiede rzusammen zu einem Punkt getrennten Text 
			set end of datumListe to gefundendatum -- fügt den Inhalt von gefundendatum an das ende der endDatumListe hinzu 
		end if 
	end if 
end repeat 

set punktListe to {"16.10.68", "192.168.178.0", "21.03.99", "99.65.00", "20.04.05", "23.08.69"} 
set anzahlPunktListe to count punktListe 
 
-- Schaut in die Liste mit Punkt getrennten Elementen und sucht nach echten Datumsangaben   
-- und schreibt diese in eine Datumsliste  
-- Dabei werden die Jahreszahlen auf 4 Stellen ergänzt  
 
set datumListe to {} 
set AppleScript's text item delimiters to "." 
 
repeat with datumSchleife from 1 to anzahlPunktListe -- Beginn Schleife für Datum Prüfung  
  set pruefdatum to text item datumSchleife of punktListe -- schreibt das erste punktWort in die Variable pruefDatum  
  set pruefTeile to text items of pruefdatum -- schreibt pruefdatum Teile in eine Liste pruefTeile  
   
  if (count of pruefTeile) = 3 then -- Zählen der pruefTeile und wenn es drei sind dann  
    set dd to (item 1 of pruefTeile) as integer -- zerlege ersten Zahlenblock in dd für Tag  
    set mm to (item 2 of pruefTeile) as integer -- zerlege zweiten Zahlenblock in mm für Monat  
    set yyyy to item 3 of pruefTeile -- zerlege dritten Zahlenblock in yy für Jahr  
    set yy to yyyy as integer 
     
    -- Wenn Tag eine Ganzzahl und kleiner als 32 (aber grösser als 0) ist und  
    -- Monat eine Ganzzahl ist und kleiner als 13 (aber grösser als 0) ist und  
    -- die Länge von Jahr grösser ist als 1 und kleiner als 5 ist dann  
    if (dd is less than 32 and dd is greater than or equal to 1) then 
      if (mm is less than 13 and mm is greater than or equal to 1) then 
        if (length of yyyy is greater than 1 and length of yyyy is less than 5) then 
           
          -- Jahreszahlen auf 4 Stellen ergänzen  
          if length of yyyy is 2 then -- Wenn die Jahreszahl zwei  Stellen hat 
             
            -- Jahreszahlen in 4 Stellen umwandeln 
            if yy is less than or equal to 99 and yy is greater than 19 then 
              set item 3 of pruefTeile to "19" & yyyy -- speichere die Jahreszahl in item 3  
            else 
              set item 3 of pruefTeile to "20" & yyyy -- speichere die Jahreszahl in item 3  
            end if 
          end if 
           
          set gefundendatum to text items of pruefTeile as text -- fügt die text items wieder zusammen zu einem punktgetrennten Text  
          set end of datumListe to gefundendatum -- fügt den Inhalt von gefundendatum an das ende der endDatumListe hinzu  
        end if 
      end if 
    end if 
  end if 
end repeat 
 
set AppleScript's text item delimiters to {""} 
datumListe 

-- Mit Datum im Text 
-- set textBlock to "16.10.68 in Dormagen Zons, die Rufnummer damals 02133 449899, der IP Adressraum ist 192.107.155 es gibt weitere Daten 21.03.1899 und 15.05.2009" 
 
-- Ohne Datum im Text 
set textBlock to "in Dormagen Zons, die Rufnummer damals 02133 449899, der IP Adressraum ist 192.107.155 es gibt weitere Daten" 
 
 
 
set {endDatum, jahresDatum, rueckDatum} to findeDatum(textBlock) 
 
 
on findeDatum(textBlock) 
	-- Handler für das auffinden von Datumsangaben aus dem Textblock der Variable "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 
	 
	-- Punkt Elemente aus der textListe ermitteln --	 
	set punktListe to {} -- Variablen definition punktListe 
	repeat with punktSchleife from 1 to anzahlListe -- Beginn: Schleife Punktelemente ermitteln 
		-- speichert alle Wörter nach und nach in die Variable punktElement 
		set punktElement to item punktSchleife of textListe 
		-- Prüft ob punktElement Punkte enthät und 
		-- ob punktElement grösser oder gleich lang ist als 6 Zeichen und 
		-- ob punktElement kleiner als 11 Zeichen besitzt, dann 
		if punktElement contains "." and length of punktElement is greater than or equal to 6 and length of punktElement < 11 then 
			set punktPuffer to punktElement -- speichert das gefundene punktElement in punktPuffer 
			set end of punktListe to punktPuffer -- Fügt punktPuffer an die Liste datumListe 
		end if 
	end repeat -- Ende: Schleife Punktelemente ermitteln 
	 
	-- punktListe auf Datumsechheit prüfen 
	-- Anzahl der Worte aus der datumListe1 ermitteln 
	set anzahlPunktListe to count punktListe 
	-- Zerlegung der Textitems durch den Punkt "." 
	set text item delimiters to "." 
	set datumListe to {} -- Variablen definition datumListe 
	 
	repeat with datumSchleife from 1 to anzahlPunktListe -- Beginn Schleife für Datum Prüfung 
		set endDatum to "kein Datum enthalten" as text 
		set jahresDatum to "kein Datum enthalten" as text 
		set rueckDatum to "kein Datum enthalten" as text 
		 
		set pruefdatum to text item datumSchleife of punktListe -- schreibt das erste punktWort in die Variable pruefDatum 
		set pruefTeile to text items of pruefdatum -- schreibt pruefdatum Teile in eine Liste pruefTeile 
		-- display dialog datumTeile 
		if (count of pruefTeile) = 3 then -- Zählen der pruefTeile und wenn es drei sind dann 
			set dd to item 1 of pruefTeile -- zerlege ersten Zahlenblock in dd für Tag 
			set mm to item 2 of pruefTeile -- zerlege zweiten Zahlenblock in mm für Monat 
			set yyyy to item 3 of pruefTeile -- zerlege dritten Zahlenblock in yy für Jahr 
			 
			if (dd as integer < 32 and mm as integer < 13 and length of yyyy > 1 and length of yyyy < 5) then 
				-- Wenn Tag eine Ganzzahl und kleiner als 32 ist und 
				-- Monat eine ganzzahlt ist und kleiner als 13 und 
				-- die Länge von Jahr grösser ist als 1 und die länge kleiner al 5 ist dann 
				 
				if length of yyyy < 4 then 
					-- Jahreszahlen in 4 Stellen umwandeln 90er 
					repeat with jZahl1 from 40 to yyyy -- Beginn: Schleife Jahreszahlen durchlaufen von 1950 bis 1999 
						if item 3 of pruefTeile = jZahl1 then -- Wenn die Jahreszahl 50 bis 99 ist dann 
						end if 
						set item 3 of pruefTeile to "19" & jZahl1 -- speicher die Jahreszahl in item 3 
					end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 1950 bis 1999 
					 
					-- Jahreszahlen in 4 Stellen umwandeln 2000er 
					repeat with jZahl2 from 1 to 9 -- Beginn: Schleife Jahreszahlen durchlaufen von 2001 bis 2010 
						if item 3 of pruefTeile = "0" & jZahl2 then -- Wenn die Jahreszahl 01 bis 09 ist dann 
							set item 3 of pruefTeile to "200" & jZahl2 -- speichere die Jahreszahl in item 3 
						end if 
						if item 3 of pruefTeile = "10" then -- oder wenn die Jahreszahl 10 ist dann 
							set item 3 of pruefTeile to "2010" -- speichere die Jahreszahl 2010 in item 3 
						end if 
					end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 2001 bis 2010 
				end if -- display dialog item 3 of pruefTeile -- Korrektur Item Wert 3 (Jahreszahl z.B. "2008") 
				 
				set gefundendatum to text items of pruefTeile as text -- fügt die text items wiede rzusammen zu einem Punkt getrennten Text 
				set end of datumListe to gefundendatum -- fügt den Inhalt von datumListe2 an das ende der endDatumListe hinzu 
			end if 
			 
			-- Sucht das aktuellste Datum in der Datum Liste heraus 
			set aktuellesDatum to date (item 1 of datumListe) 
			set datumMerker to 1 
			repeat with datumSchleife from 2 to count of datumListe 
				set tempDate to date (item datumSchleife of datumListe) 
				if tempDate comes after aktuellesDatum then 
					set aktuellesDatum to tempDate 
					set datumMerker to datumSchleife 
				end if 
			end repeat 
			set endDatum to item datumMerker of datumListe 
		end if 
		 
	end repeat -- Ende Schleife für Datum Prüfung 
	 
	-- Extrahiere Datumteile aus dem gefundenen endDatum 
	set text item delimiters to "." 
	set pT to text items of endDatum -- schreibt pruefdatum Teile in eine Liste pruefTeile 
	 
	set pTag to item 1 of pT -- zerlege ersten Zahlenblock in dd für Tag 
	set pMonat to item 2 of pT -- zerlege zweiten Zahlenblock in mm für Monat 
	set pJahr to item 3 of pT -- zerlege dritten Zahlenblock in yy für Jahr 
	 
	-- Rückwärtsdatum für den Dateinamen 
	set text item delimiters to "-" -- Zerlegung der Textitems durch den Bindestrich "-" 
	set jahresDatum to pJahr 
	set rueckDatum to {pJahr, pMonat, pTag} as text -- speichert die item TextBlöcke in angegebener Reihenfolge wieder als einen Text 
	 
	 
	-- Übergebe die Variablen zurück an das Script 
	return {endDatum, jahresDatum, rueckDatum} 
end findeDatum 

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

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

-- Mit Datum im Text 
--set textBlock to "16.10.68 in Dormagen Zons, die Rufnummer damals 02133 449899, der IP Adressraum ist 192.107.155 es gibt weitere Daten 21.03.1899 und 15.05.2009" 
 
-- Ohne Datum im Text 
set textBlock to "in Dormagen Zons, die Rufnummer damals 02133 449899, der IP Adressraum ist 192.107.155 es gibt weitere Daten" 
 
-- Aufruf des Handlers 
set {endDatum, jahresDatum, rueckDatum} to findeDatum(textBlock) 
 
-- die Textitem-Delimiters auf einen leeren String zurücksetzen 
set AppleScript's text item delimiters to {""} 
 
-- Wiederholung der Liste, damit die Werte im Ergebnisfenster erscheinen 
{endDatum, jahresDatum, rueckDatum} 
 
-- Handler für das Auffinden von Datumsangaben aus dem Textblock der Variable "textBlock"  
on findeDatum(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 
   
  -- Punkt-Elemente aus der textListe ermitteln 
  set punktListe to {} -- Variablen-Definition punktListe  
  repeat with punktSchleife from 1 to anzahlListe -- Beginn: Schleife Punkt-Elemente ermitteln  
    -- speichert alle Wörter nach und nach in die Variable punktElement 
    set punktElement to item punktSchleife of textListe 
    -- Prüft ob punktElement Punkte enthät und  
    -- ob punktElement grösser oder gleich lang ist als 6 Zeichen und  
    -- ob punktElement kleiner als 11 Zeichen ist, dann  
    if punktElement contains "." and length of punktElement is greater than or equal to 6 and length of punktElement < 11 then 
      set punktPuffer to punktElement -- speichert das gefundene punktElement in punktPuffer  
      set end of punktListe to punktPuffer -- Fügt punktPuffer an die Liste datumListe  
    end if 
  end repeat -- Ende: Schleife Punktelemente ermitteln 
   
  -- punktListe auf Datums-Echtheit prüfen  
  -- Anzahl der Worte aus der datumListe1 ermitteln  
  set anzahlPunktListe to count punktListe 
   
  -- Zerlegung der Textitems durch den Punkt "."  
  set AppleScript's text item delimiters to "." 
  -- Variablen-Definition datumListe  
  set datumListe to {} 
   
  -- die drei Variablen definieren 
  set endDatum to "kein Datum enthalten" 
  set jahresDatum to "kein Datum enthalten" 
  set rueckDatum to "kein Datum enthalten" 
   
  if anzahlPunktListe is greater than 0 then 
    repeat with datumSchleife from 1 to anzahlPunktListe -- Beginn Schleife für Datums-Prüfung  
      set endDatum to "kein Datum enthalten" 
      set jahresDatum to "kein Datum enthalten" 
      set rueckDatum to "kein Datum enthalten" 
       
      set pruefdatum to text item datumSchleife of punktListe -- schreibt das erste punktWort in die Variable pruefDatum  
      set pruefTeile to text items of pruefdatum -- schreibt pruefdatum Teile in eine Liste pruefTeile  
      -- display dialog datumTeile  
      if (count of pruefTeile) = 3 then -- Zählen der pruefTeile und wenn es drei sind dann  
        set dd to item 1 of pruefTeile -- zerlege ersten Zahlenblock in dd für Tag  
        set mm to item 2 of pruefTeile -- zerlege zweiten Zahlenblock in mm für Monat  
        set yyyy to item 3 of pruefTeile -- zerlege dritten Zahlenblock in yy für Jahr  
         
        -- Wenn Tag eine Ganzzahl und kleiner als 32 ist und  
        -- Monat eine Ganzzahl ist und kleiner als 13 und  
        -- die Länge von Jahr grösser ist als 1 und die Länge kleiner als 5 ist dann  
        if (dd as integer < 32 and mm as integer < 13 and length of yyyy > 1 and length of yyyy < 5) then 
           
          if length of yyyy < 4 then 
            -- Jahreszahlen in 4 Stellen umwandeln 90er  
            repeat with jZahl1 from 40 to yyyy -- Beginn: Schleife Jahreszahlen durchlaufen von 1950 bis 1999  
              if item 3 of pruefTeile = jZahl1 then -- Wenn die Jahreszahl 50 bis 99 ist dann  
              end if 
              set item 3 of pruefTeile to "19" & jZahl1 -- speicher die Jahreszahl in item 3  
            end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 1950 bis 1999  
             
            -- Jahreszahlen in 4 Stellen umwandeln 2000er  
            repeat with jZahl2 from 1 to 9 -- Beginn: Schleife Jahreszahlen durchlaufen von 2001 bis 2010  
              if item 3 of pruefTeile = "0" & jZahl2 then -- Wenn die Jahreszahl 01 bis 09 ist dann  
                set item 3 of pruefTeile to "200" & jZahl2 -- speichere die Jahreszahl in item 3  
              end if 
              if item 3 of pruefTeile = "10" then -- oder wenn die Jahreszahl 10 ist dann  
                set item 3 of pruefTeile to "2010" -- speichere die Jahreszahl 2010 in item 3  
              end if 
            end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 2001 bis 2010  
          end if -- display dialog item 3 of pruefTeile -- Korrektur Item Wert 3 (Jahreszahl z.B. "2008")  
           
          set gefundendatum to text items of pruefTeile as text -- fügt die text items wieder zusammen zu einem punktgetrennten Text  
          set end of datumListe to gefundendatum -- fügt den Inhalt von datumListe2 an das Ende der endDatumListe hinzu  
        end if 
         
        -- Sucht das aktuellste Datum in der DatumS-Liste heraus  
        set aktuellesDatum to date (item 1 of datumListe) 
        set datumMerker to 1 
        repeat with datumSchleife from 2 to count of datumListe 
          set tempDate to date (item datumSchleife of datumListe) 
          if tempDate comes after aktuellesDatum then 
            set aktuellesDatum to tempDate 
            set datumMerker to datumSchleife 
          end if 
        end repeat 
        set endDatum to item datumMerker of datumListe 
      end if 
    end repeat -- Ende Schleife für Datums-Prüfung 
     
    -- Extrahiere Datumteile aus dem gefundenen endDatum  
    set pT to text items of endDatum -- schreibt pruefdatum Teile in die Liste pruefTeile  
     
    set pTag to item 1 of pT -- zerlege ersten Zahlenblock in dd für Tag  
    set pMonat to item 2 of pT -- zerlege zweiten Zahlenblock in mm für Monat  
    set pJahr to item 3 of pT -- zerlege dritten Zahlenblock in yy für Jahr  
     
    -- Rückwärtsdatum für den Dateinamen 
    set AppleScript's text item delimiters to "-" -- Zerlegung der Textitems durch den Bindestrich "-"  
    set jahresDatum to pJahr 
    set rueckDatum to {pJahr, pMonat, pTag} as text -- speichert die item TextBlöcke in angegebener Reihenfolge wieder als einen Text  
  end if 
   
  -- Übergebe die Variablen zurück zum Handler-Aufruf  
  return {endDatum, jahresDatum, rueckDatum} 
end findeDatum 

on findeDatum(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 
	 
	-- Punkt-Elemente aus der textListe ermitteln  
	set punktListe to {} -- Variablen-Definition punktListe   
	repeat with punktSchleife from 1 to anzahlListe -- Beginn: Schleife Punkt-Elemente ermitteln   
		-- speichert alle Wörter nach und nach in die Variable punktElement  
		set punktElement to item punktSchleife of textListe 
		-- Prüft ob punktElement Punkte enthät und   
		-- ob punktElement grösser oder gleich lang ist als 6 Zeichen und   
		-- ob punktElement kleiner als 11 Zeichen ist, dann   
		if punktElement contains "." and length of punktElement is greater than or equal to 6 and length of punktElement < 11 then 
			set punktPuffer to punktElement -- speichert das gefundene punktElement in punktPuffer   
			set end of punktListe to punktPuffer -- Fügt punktPuffer an die Liste datumListe   
		end if 
	end repeat -- Ende: Schleife Punktelemente ermitteln  
	 
	-- punktListe auf Datums-Echtheit prüfen   
	-- Anzahl der Worte aus der datumListe1 ermitteln   
	set anzahlPunktListe to count punktListe 
	 
	-- Zerlegung der Textitems durch den Punkt "."   
	set AppleScript's text item delimiters to "." 
	-- Variablen-Definition datumListe   
	set datumListe to {} 
	 
	-- die drei Variablen definieren  
	set endDatum to "kein Datum enthalten" 
	set jahresDatum to "kein Datum enthalten" 
	set rueckDatum to "kein Datum enthalten" 
	 
	if anzahlPunktListe is greater than 0 then 
		repeat with datumSchleife from 1 to anzahlPunktListe -- Beginn Schleife für Datums-Prüfung   
			set endDatum to "kein Datum enthalten" 
			set jahresDatum to "kein Datum enthalten" 
			set rueckDatum to "kein Datum enthalten" 
			 
			set pruefdatum to text item datumSchleife of punktListe -- schreibt das erste punktWort in die Variable pruefDatum   
			set pruefTeile to text items of pruefdatum -- schreibt pruefdatum Teile in eine Liste pruefTeile   
			-- display dialog datumTeile   
			if (count of pruefTeile) = 3 then -- Zählen der pruefTeile und wenn es drei sind dann   
				set dd to item 1 of pruefTeile -- zerlege ersten Zahlenblock in dd für Tag   
				set mm to item 2 of pruefTeile -- zerlege zweiten Zahlenblock in mm für Monat   
				set yyyy to item 3 of pruefTeile -- zerlege dritten Zahlenblock in yy für Jahr   
				 
				-- Wenn Tag eine Ganzzahl und kleiner als 32 ist und   
				-- Monat eine Ganzzahl ist und kleiner als 13 und   
				-- die Länge von Jahr grösser ist als 1 und die Länge kleiner als 5 ist dann   
				if (dd as integer < 32 and mm as integer < 13 and length of yyyy > 1 and length of yyyy < 5) then 
					 
					if length of yyyy < 4 then 
						-- Jahreszahlen in 4 Stellen umwandeln 90er   
						repeat with jZahl1 from 40 to yyyy -- Beginn: Schleife Jahreszahlen durchlaufen von 1950 bis 1999   
							if item 3 of pruefTeile = jZahl1 then -- Wenn die Jahreszahl 50 bis 99 ist dann   
							end if 
							set item 3 of pruefTeile to "19" & jZahl1 -- speicher die Jahreszahl in item 3   
						end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 1950 bis 1999   
						 
						-- Jahreszahlen in 4 Stellen umwandeln 2000er   
						repeat with jZahl2 from 1 to 9 -- Beginn: Schleife Jahreszahlen durchlaufen von 2001 bis 2010   
							if item 3 of pruefTeile = "0" & jZahl2 then -- Wenn die Jahreszahl 01 bis 09 ist dann   
								set item 3 of pruefTeile to "200" & jZahl2 -- speichere die Jahreszahl in item 3   
							end if 
							if item 3 of pruefTeile = "10" then -- oder wenn die Jahreszahl 10 ist dann   
								set item 3 of pruefTeile to "2010" -- speichere die Jahreszahl 2010 in item 3   
							end if 
						end repeat -- Ende: Schleife Jahreszahlen durchlaufen von 2001 bis 2010   
					end if -- display dialog item 3 of pruefTeile -- Korrektur Item Wert 3 (Jahreszahl z.B. "2008")   
					 
					set gefundendatum to text items of pruefTeile as text -- fügt die text items wieder zusammen zu einem punktgetrennten Text   
					set end of datumListe to gefundendatum -- fügt den Inhalt von datumListe2 an das Ende der endDatumListe hinzu   
				end if 
				 
				-- Sucht das aktuellste Datum in der DatumS-Liste heraus   
				set aktuellesDatum to date (item 1 of datumListe) 
				set datumMerker to 1 
				repeat with datumSchleife from 2 to count of datumListe 
					set tempDate to date (item datumSchleife of datumListe) 
					if tempDate comes after aktuellesDatum then 
						set aktuellesDatum to tempDate 
						set datumMerker to datumSchleife 
					end if 
				end repeat 
				set endDatum to item datumMerker of datumListe 
			end if 
		end repeat -- Ende Schleife für Datums-Prüfung  
		 
		-- Extrahiere Datumteile aus dem gefundenen endDatum   
		set pT to text items of endDatum -- schreibt pruefdatum Teile in die Liste pruefTeile   
		 
		set pTag to item 1 of pT -- zerlege ersten Zahlenblock in dd für Tag   
		set pMonat to item 2 of pT -- zerlege zweiten Zahlenblock in mm für Monat   
		set pJahr to item 3 of pT -- zerlege dritten Zahlenblock in yy für Jahr   
		 
		-- Rückwärtsdatum für den Dateinamen  
		set AppleScript's text item delimiters to "-" -- Zerlegung der Textitems durch den Bindestrich "-"   
		set jahresDatum to pJahr 
		set rueckDatum to {pJahr, pMonat, pTag} as text -- speichert die item TextBlöcke in angegebener Reihenfolge wieder als einen Text   
	end if 
	 
	-- Übergebe die Variablen zurück zum Handler-Aufruf   
	return {endDatum, jahresDatum, rueckDatum} 
end findeDatum 

display dialog "" & anzahlListe 
error number -128 

display dialog "" & (count of punktListe) 
-- display dialog "" & punktListe 
error number -128 

repeat with datumSchleife from 1 to anzahlPunktListe -- Beginn: Datums-Prüfung  
  try 
    -- und so weiter und so fort 
  end try 
end repeat 

try 
  -- versuche mal dies 
on error 
  set probCtr to probCtr + 1 
end try