Programatically Retrieving File Extensions on Mac OS
| 日付 | 2003/05/02 |
|---|---|
| ID | 27260 (英語原文参照) |
| バージョン | 6.7.x , 6.8.x and 2003 |
| プラットフォーム | Mac |
タイトル
U.S）Programatically Retrieving File Extensions on Mac OS
JP）MacOS上でファイルの拡張子を取得する
Windowsでは「Document type」コマンドを実行してファイルの拡張子を取得することができます。このコマンドはWindowsのファイルの拡張子（1～3バイト）を返します。しかし、MacOS上では同じように拡張子を取得することができません。
代わりにMacOSのファイルタイプ（4バイト）を返します。MacOSでファイルの拡張子を取得したい場合は、以下のメソッドを使用して拡張子を取得することができます。
` プロジェクトメソッド: Get_FileExtension
` $1 - ファイル名またはパス
C_TEXT($0;$1;$documentPath)
C_BOOLEAN($found)
C_LONGINT($last)
$documentPath:=$1
$found:=False
$last:=Length($documentPath)
Repeat
If (($documentPath[[$last]]=".") | ($documentPath[[$last]]=":"))
$found:=True
Else
$last:=$last-1
End if
Until (($found) & ($last>0))
If ($documentPath[[$last]]=".")
$0:=Delete string($documentPath;1;$last-1)
Else
$0:=""
End if