C_TEXT($newPath;$path;$delimit)
C_TEXT($0;$1)
$path:=$1

$delimit:=Choose(Get 4D folder[[Length(Get 4D folder)]]=":";":";"\\\\")  //フォルダの区切り文字を得る（正規表現用）
$mach:=Match regex("([^"+$delimit+"]*)$";$path;1;$pos_found;$length_found)  //正規表現式
$fileName:=Substring($path;$pos_found;$length_found)  //ファイル名の取り出し

$0:=$fileName