(DTPtechNote:539) Re: Table Replace

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

なんかものすごく初歩的な感じがするんですが、、、
Text EditのRTFモードだったときに「the clipboard」をas Unicode textしてやらないと、text item delimitersできないんですね。
#as Unicode textはちょっと鬼門っぽい（笑）。やたらつければいいってもんでもないし。。。

以下で実験してみてください。

--clipboadに"set str to "松島やああ松島や松島や"と入っていると仮定して
set str to the clipboard
--set str to (the clipboard) as Unicode text --こっちなら大丈夫
set ans to my as_split("松島", str)

to as_split(thedelimit, theText)
	set oldDelim to AppleScript's text item delimiters
	set AppleScript's text item delimiters to thedelimit
	set tmpList to every text item of theText
	set AppleScript's text item delimiters to oldDelim
	return tmpList
end as_split


ということで、#497の
set clip_str to the clipboard --変数にセットしちゃう 
は
set clip_str to (the clipboard) as Unicode text --変数にセットしちゃう 
としてください。