set aRes to do shell script “cd ~/usr/bin && ls -la” –ちょっとテスト用に長めの文字列を作ってみた

set aLen to length of aRes

if aLen > 2419 then –iChatの文字チャットで送信できる文字の最大数を確認したら、2419文字だった（Mac OS X 10.6）
　　set aRes to makeZipFile(aRes) of me –メッセージ内容をテキストファイルに書き出してZip圧縮
　　set aRes to POSIX file aRes
end if

tell application “iChat”
　　tell chat 1
　　　　send aRes to aPerson –メッセージ（文字）もファイルも送信コマンドは同じ
　　end tell
end tell

–Chat 1の相手を取得する
on getPersonOfChat1()
　　tell application “iChat”
　　　　tell chat 1
　　　　　　set aPerson to participants
　　　　　　set aPerson to first item of aPerson
　　　　　　return aPerson
　　　　end tell
　　end tell
end getPersonOfChat1

–指定データをファイルに書き出してzip圧縮
on makeZipFile(aStr)
　　set aPath to (path to temporary items from system domain) as string
　　set afN to (do shell script “uuidgen”) & “.txt”
　　
　　set aFullPath to aPath & afN
　　write_to_file(aStr, aFullPath, false) of me
　　
　　set f1Path to quoted form of POSIX path of aFullPath
　　set f2Path to quoted form of POSIX path of (aFullPath & “.zip”)
　　
　　try
　　　　with timeout of 3600 seconds
　　　　　　set aRes to do shell script “zip -r -j “ & f2Path & ” “ & f1Path
　　　　end timeout
　　on error
　　　　return false
　　end try
　　
　　return (POSIX path of (aFullPath & “.zip”))
end makeZipFile

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_file(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_file

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定のaliasのAppleScriptをオープンして結果を返す
on executeAS(asFileAlias)
　　tell application “AppleScript Editor”
　　　　try
　　　　　　open asFileAlias
　　　　on error erMes
　　　　　　return {false, “AppleScriptファイルのオープンに失敗しました。” & erMes}
　　　　end try
　　　　
　　　　tell window 1
　　　　　　set bDoc to name
　　　　end tell
　　　　
　　　　tell document bDoc
　　　　　　
　　　　　　–実行する
　　　　　　try
　　　　　　　　execute
　　　　　　on error erMes
　　　　　　　　–エラー発生時にはクローズしてfalseを返す
　　　　　　　　close without saving
　　　　　　　　return {false, “AppleScriptファイルの実行時にエラーが発生しました。” & erMes}
　　　　　　end try
　　　　　　
　　　　end tell
　　　　
　　　　–GUI Scripting経由でAppleScriptの実行結果を取得する
　　　　activate application “AppleScript Editor”
　　　　tell application “System Events”
　　　　　　tell process “AppleScript エディタ” –各国語環境で名前は違うかもしれない、と日本語で書いてみる
　　　　　　　　keystroke “3″ using {command down} –command-3　結果を表示
　　　　　　　　set resVal to value of text area 1 of scroll area 1 of group 1 of group 1 of splitter group 1 of window 1
　　　　　　end tell
　　　　end tell
　　　　
　　　　tell application “AppleScript Editor”
　　　　　　tell document bDoc
　　　　　　　　close without saving
　　　　　　end tell
　　　　end tell
　　　　
　　　　return {true, resVal}
　　　　
　　end tell
　　
end executeAS

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_file(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_file

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_file_asRec(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file as record starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_file_asRec

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に