File 확장자명 얻기

get_ext ( string filename ) returns string

int i1
int i2

i2 = len (filename)
for i1 = i2 to 1 step -1
    if mid (filename, i1, 1) = "." then
        return mid (filename, i1 + 1)
        exit
    end if
next

return filename