function GetFileExtension(fileName:in string) return string;
該函式將指定檔案名稱FileName的檔案擴展名返回，如果返回NUL說明給定的檔案名稱不包含擴展名。
基本介紹
- 中文名：檔案擴展名
- 外文名：GetFileExtension
- 函式功能：將指定檔案名稱返回
- 函式實現：function
函式實現,
函式實現
function GetFileExtension(fileName:in string) return string is
NUL:constant string(1..1):=(1=>character'first);
begin
for i in reverse fileName'range loop
if fileName(i)='.' then
return fileName(i..fileName'last);
end if;
end loop;
return NUL;
end GetFileExtension;
