« 圧倒的ロシア感…笑(『ギリシャ文字・キリル文字・ラテン文字』もじのかたち) | トップページ | The Hunger Games(ハンガーゲーム) »

[AppleScript]空のRTFを作成する

リッチテキストの空のファイルを作るには
何通りか、方法を考えついたが、簡単そうなのに落ち着いた。
10.12の機器が何台か現場に導入されて
一部のスクリプトでテキストエディタの保存部分で
エラーになる物があった、個々にエラーの内容を精査する時間が無いので
『動作する』記述にパパパッット書き換えてしまった。

時間が無いって恐ろしい…汗

(*

ユーザードメインの書類(documents)フォルダに
空のRTFリッチテキストフォーマットのファイルを作成します。
空のテキストファイルをtextutilコマンドでRTF化します。
10.12の登場で今までの方法では問題が出て来たので
今後はこの方法にする
20170106 初回作成

*)


---ファイル名用の日付け
set theDateAmdTime to (do shell script "date '+%Y%m%d_%k%M%S'") as text
---Finderよびだし
tell application "Finder"
---日付けをファイル名に
set theFileName to theDateAmdTime as text
---書類フォルダまでのエイリアスパス
set aliasFolder to (the path to documents folder from user domain) as alias
try
---ファイル名に拡張子追加して新規ファイルを作成
make new file at aliasFolder with properties {name:(theFileName & ".txt")}
end try
---新しいファイルまでのパスをエイリアスとして格納
set aliasNewFile to (((aliasFolder) as text) & ((theFileName & ".txt") as text)) as alias
---新規ファイルの処理終了
end tell
---テキストファイルまでのパスをUNIXパスに変換
set theNewFilePath to quoted form of (the POSIX path of aliasNewFile) as text
---テキストファイルを変換するコマンドを整形
set theCommandText to ("textutil -convert rtf " & " -extension rtf " & theNewFilePath & "") as text
---コマンド実行
do shell script theCommandText
---元のテキストファイルをtmpに入れる
(*
/private/tmpに移動されたファイルは
次回の再起動時に削除される
*)
tell application "Finder"
---起動ディスクの名称を取得
set theStartupDiskName to (path to startup disk) as text
---tmpフォルダへのエイリアスパスをテキストで整形
set theTmpPathTXT to (theStartupDiskName & "private:tmp:") as text
---エイリアスに変換
set aliasTmpPath to theTmpPathTXT as alias
---テキストファイルをtmpに移動
move file aliasNewFile to aliasTmpPath
(* ごみ箱に入れる場合はこちら
move file aliasNewFile to (the path to trash folder from user domain)
*)
---テキストファイルの移動の終わり
end tell
(* 処理の後テキストエディタで開く場合は以下
---テキストエディタのはじまり
tell application "TextEdit"
---新しいファイルまでのパスをエイリアスとして格納
set aliasNewRtfFile to (((aliasFolder) as text) & ((theFileName & ".rtf") as text)) as alias
---オープンファイル
set objOpenFile to open aliasNewRtfFile
---オープンしたファイル
tell objOpenFile
---ここでオープンしたファイルに色々な処理を
end tell
end tell
*)

「MakeNewRtfFile.scpt.zip」をダウンロード

|

« 圧倒的ロシア感…笑(『ギリシャ文字・キリル文字・ラテン文字』もじのかたち) | トップページ | The Hunger Games(ハンガーゲーム) »

AppleScript」カテゴリの記事