Re: Thanks (EXIF data)
Re: Thanks (EXIF data)
- Subject: Re: Thanks (EXIF data)
- From: Johnny AppleScript <email@hidden>
- Date: Wed, 30 Jul 2003 17:01:23 -0600
Here's how I would do it; I'm sure there re faster ways with less lines. I
have added no error handling.
tell application "Finder"
set importEXIFdata to (choose file with prompt "Choose an EXIF data file
to import:") as text
set EXIFdata to read file (importEXIFdata)
set EXIFdata to every paragraph of EXIFdata
set EXIFextract to {1, 4, 9, 13, 19, 20, 24, 25, 26, 43, 46, 54, 55, 56,
60, 64}
set EXIFkeep to {}
repeat with i from 1 to number of items in EXIFdata
set x to item i of EXIFdata
if i is in EXIFextract then set the end of EXIFkeep to (x & return)
end repeat
end tell
set EXIFkeep to EXIFkeep as string
set theTime to the time of (current date)
set pathstring to ((path to desktop) as text) & "EXIFexport_" & theTime &
".txt"
set theFile to open for access file pathstring with write permission
write EXIFkeep to theFile
close access theFile
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.
| References: | |
| | >Re: Thanks (From: Bill Cheeseman <email@hidden>) |