Tech Tip:あるパスの中からファイル名のみを抜き出す
日付 | 2014/11/10 |
---|
この記事では、4Dの使用に役立つTips(小技)を紹介してきます。
あるパスの中からファイル名のみを抜き出す
以下は与えられたパスの中からファイル名のみを取得するためのユーティリティメソッドです。例えば、"C:\Users\UserName\Example.txt"というパスを与えられた場合、このファンクションは"Example.txt"のみを返します。
// メソッド: GET_FILE_NAME_FROM_PATH
// 引数
// $1 - ファイルのパス
//
// 戻り値
// $0 - Filename
// ----------------------------------------------------
C_LONGINT($i;$pos;$length;$lastpos)
C_BOOLEAN($found)
C_TEXT($0;$1;$path;$filename;$pattern;$os)
$path:=$1
$os:=Folder separator
Case of
: ($os=":") //Mac
$pattern:=$os
: ($os="\\") //Win
$pattern:=$os+$os
End case
$i:=1
$found:=True
While ($found)
$found:=Match regex($pattern;$path;$i;$pos;$length)
$i:=$pos+1
If ($found)
$lastpos:=$pos
End if
End while
$filename:=Substring($path;$lastpos+1)
$0:=$filename