Convert Rich Text to Plain Text

Summary: Converts the selected RTF or RTFD files to plain text files.
Requires: EagleFiler
Install Location: ~/Library/Scripts/Applications/EagleFiler/
Last Modified: 2016-01-18

Description

This script converts the selected “.rtf” or “.rtfd” files into plain text (“.txt”) files in the UTF-8 encoding.

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

Script

on run
    
tell application "EagleFiler"
        
set _selection to selected records of browser window 1
        
repeat with _record in _selection
            
set _uti to _record's universal type identifier
            
if _uti is in {"public.rtf", "com.apple.rtfd"} then
                
my convertRecordToPlainText(_record)
            
end if
        
end repeat
    
end tell
end run

on convertRecordToPlainText(_record)
    
tell application "EagleFiler"
        
set _newName to my plainTextNameForRecord(_record)
        
set _newFile to my convertFileToPlainText(_record's file, _newName)
        
set _newRecords to import files {_newFile} with deleting afterwards
        
set _newRecord to item 1 of _newRecords
        
my copyMetadata(_record, _newRecord)
        
set _trash to trash of _record's library document
        
set _record's container to _trash
    
end tell
end convertRecordToPlainText

on plainTextNameForRecord(_record)
    
tell application "EagleFiler"
        
set _name to _record's filename
        
if _name ends with ".rtf" then
            
set _end to (length of ".rtf") + 1
            
set _base to characters 1 thru -_end of _name
        
else if _name ends with ".rtfd" then
            
set _end to (length of ".rtfd") + 1
            
set _base to characters 1 thru -_end of _name
        
else
            
set _base to _name
        
end if
        
return _base & ".txt"
    
end tell
end plainTextNameForRecord

on convertFileToPlainText(_source, _destName)
    
tell application "EagleFiler"
        
set _tempFolder to POSIX path of (create temporary folder name "EFRichTextToPlainText")
    
end tell
    
set _dest to _tempFolder & "/" & _destName
    
set _convert to "textutil -convert txt"
    
set _outputArg to " -output " & _dest's quoted form
    
set _sourceArg to " " & quoted form of _source's POSIX path
    
do shell script _convert & _outputArg & _sourceArg
    
return POSIX file _dest
end convertFileToPlainText

on copyMetadata(_source, _dest)
    
tell application "EagleFiler"
        
set _sourceURL to _source's source URL
        
set source URL of _dest to _sourceURL
        
set container of _dest to _source's container
        
set _noteText to _source's note text
        
set note text of _dest to _noteText
        
set _tags to _source's assigned tags
        
set assigned tags of _dest to _tags
        
set _title to _source's title
        
set title of _dest to _title
        
set _fromName to _source's from name
        
set from name of _dest to _fromName
        
set _labelIndex to _source's label index
        
set label index of _dest to _labelIndex
        
set _creationDate to _source's creation date
        
set creation date of _dest to _creationDate
        
set _modificationDate to _source's modification date
        
set modification date of _dest to _modificationDate
    
end tell
end copyMetadata