RTFないしRTFD（添付ファイルつきRTF）からテキストを抽出するAppleScriptです。
| AppleScript名：rtf_rtfdからテキスト抽出 |
| — Created 2018-02-10 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" set aFile to choose file of type {"com.apple.rtfd", "public.rtf"} set aRes to retTextFromRTF(aFile) of me on retTextFromRTF(aFile) set aFilePath to current application’s NSString’s stringWithString:(POSIX path of aFile) set anExt to (aFilePath’s pathExtension()) as string if anExt = "rtfd" then set aFilePath to aFilePath’s stringByAppendingString:"TXT.rtf" end if set aData to current application’s NSData’s dataWithContentsOfFile:aFilePath options:0 |error|:(missing value) set theStyledText to current application’s NSMutableAttributedString’s alloc()’s initWithData:aData options:(missing value) documentAttributes:(missing value) |error|:(missing value) if theStyledText is not equal to missing value then return (theStyledText’s |string|()) as string else return false –Not RTF file end if end retTextFromRTF |
(Visited 84 times, 1 visits today)
AS書類をオープンして書き換えて別途保存 v2 – AppleScriptの穴 says:
[…] イルの書き換え処理についてはノーアイデアです。バンドル内の指定の.scptファイルを書き換えるといった、rtfとrtfdの関係のような感じになるのだろうかと思わないでもありませんが、 […]