ファイル名の拡張子を削除する

昔、書いたスクリプトなので、最近のOSXで動くかどうかは未検証。

注意！ このblogに掲載されたCODE（AppleScript、Ruby、XML、を含むがそれに限らない。プログラムの完成品、一部、正確性、動作可能、不可能に関わらずプログラムのCODEとして記述されたもの全て）について、blogの作成者 id:ickx は、一切の保証をいたしません。

---

-- ファイル名の拡張子を削除する

on trimNameExtention(aNameWithExt)
    set Posi to offset of "." in aNameWithExt
    set bFileName to (characters 1 thru (Posi - 1) of aNameWithExt) as string
    return bFileName
end trimNameExtention