(DTPtechNote:1478) Re: [AS_Indesign CS2]Clip2Tagtext

[せうぞー <anonymous at unknown-host>]

あ、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