函数功能介绍

函数实现

函数功能介绍

function GetFileExtension(fileName:in string) return string;

该函数将指定文件名FileName的文件扩展名返回，如果返回NUL说明给定的文件名不包含扩展名。

函数实现

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;