Export CSV

Summary: Saves the metadata for the selected records in a Comma Separated Values file.
Requires: EagleFiler
Install Location: ~/Library/Scripts/Applications/EagleFiler/
Last Modified: 2010-11-27

Description

This script exports the selected records’ metadata in a standard CSV format that’s suitable for importing into a spreadsheet (e.g. Excel or Numbers) or database (e.g. FileMaker or Bento).

Installation Instructions · Download in Compiled Format · Download in Text Format

Script

on run
    
set _filename to choose file name with prompt "Export CSV" default name "Metadata.csv"
    
tell application "EagleFiler"
        
set _records to selected records of browser window 1
        
set _file to open for access _filename with write permission
        
set _headerFields to {"Filename", "Path", "Title", "From", "Kind", "Label Index", "Tags", "Source URL", "Notes"}
        
set _headerLine to my lineFromFields(_headerFields)
        
write _headerLine to _file
        
repeat with _record in _records
            
set _line to my lineFromFields(my fieldsFromRecord(_record))
            
write _line to _file
        
end repeat
        
close access _file
    
end tell
end run

on lineFromFields(_fields)
    
set _quotedFields to {}
    
repeat with _field in _fields
        
copy my quoteCSV(_field) to end of _quotedFields
    
end repeat
    
set lf to ASCII character 10
    
return my join(_quotedFields, ",") & lf
end lineFromFields

on fieldsFromRecord(_record)
    
tell application "EagleFiler"
        
set _fields to {}
        
copy _record's filename to end of _fields
        
set _file to _record's file
        
set _path to _file's POSIX path
        
copy _path to end of _fields
        
copy _record's title to end of _fields
        
copy _record's from name to end of _fields
        
copy _record's kind to end of _fields
        
copy _record's label index as string to end of _fields
        
set _tagNames to {}
        
set _tags to _record's assigned tags
        
repeat with _tag in _tags
            
copy _tag's name to end of _tagNames
        
end repeat
        
copy my join(_tagNames, ", ") to end of _fields
        
copy _record's source URL to end of _fields
        
copy _record's note text to end of _fields
        
return _fields
    
end tell
end fieldsFromRecord

on quoteCSV(_string)
    
set dq to "\""
    
return dq & my replace(_string, dq, dq & dq) & dq
end quoteCSV

on replace(_string, _source, _replacement)
    
set AppleScript's text item delimiters to _source
    
set _items to every text item of _string
    
set AppleScript's text item delimiters to _replacement
    
return _items as Unicode text
end replace

on join(_list, _sep)
    
set _temp to AppleScript's text item delimiters
    
set AppleScript's text item delimiters to _sep
    
set _result to _list as string
    
set AppleScript's text item delimiters to _temp
    
return _result
end join