« [AppleScript]小数点以下の切り上げと切り捨て | トップページ | [stringByAppendingString]文字列の結合 »

[NSFileManager]テキストファイル作成

#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#
#
#
# com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"
use framework "Foundation"
use scripting additions
property objMe : a reference to current application
property objNSString : a reference to objMe's NSString
set objFileManager to objMe's NSFileManager's defaultManager()

#####テキストの内容
set strText to "美しい日本語"

###NSStringテキスト
set ocidText to objNSString's stringWithString:strText
###ファイル作成時のダミーテキスト
set ocidTempText to objNSString's stringWithString:""

######################
###フォルダのパス
###デスクトップフォルダのパス
set aliasDirPath to (path to desktop folder from user domain) as alias
set strDirPath to POSIX path of aliasDirPath as text
####作りたいファイル名(ここは今日の日付)
set strDateAndTimeJp to (my dateFormatterWithFormat:"yyyyMMMMddEEEEHmm")
set strDistFilePath to ("" & strDirPath & strDateAndTimeJp & ".txt")

###NSStringテキスト ファイルのパス
set objDistFilePath to objNSString's stringWithString:strDistFilePath

###ファイルを作る
set boolMakeNewFile to (objFileManager's createFileAtPath:objDistFilePath |contents|:ocidTempText attributes:(missing value))
####内容を書き込む UTF8で書き込む
set boolFileWrite to (ocidText's writeToFile:objDistFilePath atomically:false encoding:(objMe's NSUTF8StringEncoding) |error|:(missing value))

log boolMakeNewFile
log boolFileWrite
-->true or false

###日付のサブ
on dateFormatterWithFormat:classDateFormat
set formatter to objMe's NSDateFormatter's alloc()'s init()
formatter's setLocale:(objMe's NSLocale's localeWithLocaleIdentifier:"ja_JP_POSIX")
formatter's setDateFormat:(classDateFormat as string)
set theString to (formatter's stringFromDate:(current date)) as text
end dateFormatterWithFormat:

|

« [AppleScript]小数点以下の切り上げと切り捨て | トップページ | [stringByAppendingString]文字列の結合 »

AppleScript NSFileManager」カテゴリの記事