Take the function of the file suffix

/ ************************************************** *******************

Function Name: getPostfix

Function Description: Take a file suffix

Access table: None

Modified table: None

Enter parameters: $ filename ----------------- File name

Output parameters: $ pos ---------------- suffix

Function returns: STR

Other instructions: 2004-9-17

*********************************************************** ******************* /

Function GetPostfix ($ filename)

{

$ Postfix = Substr (Strrchr (Trorm (TRTOLOWER ($ filename), "."), 1);

Return $ postfix;

}