[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
(DTPtechNote:1478) Re: [AS_Indesign CS2]Clip2Tagtext
あ、1行いれわすれてた。
set eof fh to 0
巻き戻さないと^^
サブルーチンごとで直すとこう。
------------------------------------------●ファイル書き出し
on write_file(contents_txt, my_file)
tell application "Finder"
set fh to open for access my_file with write permission
try
set eof fh to 0
write contents_txt to fh
on error errMsg number errNo
close access fh
activate
display dialog "書き込み時のエラーです" & return & errMsg & errNo
return
end try
close access fh
update my_file
end tell
end write_file