$ref:=Select document("";"";"";Multiple files )  `ファイルを選択する
If (OK=1)
	$mach:=Match regex("([^.]*)$";Document;1;$pos_found;$length_found)  `正規表現式
	$extension:=Substring(Document;$pos_found;$length_found)  `ファイル名の取り出し
	ALERT("Extension: "+$extension)
End if