Auftragsnummer	Sorte	Auflage	Folie	Eingabedatum	Preis 
Auftragsnr	Sorte	251	Folie.	Mittwoch, 19. Mai 2010 9:43:12 Uhr	114,456 
Auftragsnr	Sorte	333	Folie Kopie 2.	Mittwoch, 19. Mai 2010 9:43:12 Uhr	151,848 
Auftragsnr	Sorte	485	Folie Kopie.	Mittwoch, 19. Mai 2010 9:43:12 Uhr	221,16 
Auftragsnr	Sorte	486	Folie Kopie 3.	Mittwoch, 19. Mai 2010 9:43:12 Uhr	221,616 
Auftragsnr	Sorte	578	Folie Kopie 1.	Mittwoch, 19. Mai 2010 9:43:12 Uhr	263,568 
Auftragsnr	Sorte	675	Folie Kopie 4.	Mittwoch, 19. Mai 2010 9:43:12 Uhr	307,8 
Auftragsnr	Sorte	758	Folie Kopie 5.	Mittwoch, 19. Mai 2010 9:43:12 Uhr	345,648 
					1626,096 

property xFactor : 0.456 --Preis pro Exemplar in Euro 
 
global thePriceList 
set thePriceList to {} 
global theJobString 
set theJobString to "" 
global theFolder 
set theFolder to choose folder 
global theNameList 
set theNameList to list folder theFolder without invisibles 
 
global theItemList 
global theCreationDateList 
 
 
 
my main() 
 
on main() 
	my getModeDate() 
	my makeLists() 
	my createString() 
	my write2CsvFile() 
end main 
 
on getModeDate() 
	set theCreationDateList to {} 
	repeat with i from 1 to count of theNameList 
		set theNameItem to item i of theNameList 
		set thePdfAlias to ((theFolder as text) & theNameItem) as alias 
		try 
			set thePdfCreationDate to creation date of (info for (thePdfAlias)) as text 
		on error 
			set thePdfCreationDate to "Error" 
			 
		end try 
		set end of theCreationDateList to thePdfCreationDate 
	end repeat 
	--return theCreationDateList 
end getModeDate 
 
on makeLists() 
	set theItemList to {{"Auftragsnummer", "Sorte", "Auflage", "Folie", "Eingabedatum", "Preis"}} 
	set {TID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, "_"} 
	repeat with i from 1 to count of theNameList 
		set theJobList to {} 
		set theString to text 1 thru -4 of (item i of theNameList) 
		set theTextItems to every text item of theString 
		set counter to 0 
		repeat with j from 1 to count of theTextItems 
			set counter to counter + 1 
			if counter is equal to 3 then 
				set thePrice to ((((item j of theTextItems) as real) * xFactor) as text) 
				set end of thePriceList to (thePrice as real) 
			end if 
			set end of theJobList to (item j of theTextItems) 
		end repeat 
		set end of theJobList to (item i of theCreationDateList) 
		set end of theJobList to thePrice 
		set end of theItemList to theJobList 
	end repeat 
	set TID to AppleScript's text item delimiters 
	 
	set addBill to 0 
	repeat with k from 1 to count of thePriceList 
		set getPrice to item k of thePriceList 
		set addBill to addBill + getPrice 
	end repeat 
	set end of theItemList to {"", "", "", "", "", addBill as text} 
end makeLists 
 
on createString() 
	set {TID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, "	"} 
	repeat with i from 1 to count of theItemList 
		set theJob to (item i of theItemList as text) & return 
		set theJobString to theJobString & theJob 
	end repeat 
	set TID to AppleScript's text item delimiters 
end createString 
 
on write2CsvFile() 
	set target_file to (((path to desktop folder) as text) & "Auftraege.csv") 
	set the open_target_file to open for access file target_file with write permission 
	set eof of the open_target_file to 0 
	write theJobString to the open_target_file starting at eof 
	close access the open_target_file 
end write2CsvFile