home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / c_common.cst / 00008_Script_stripFileExtension < prev    next >
Text File  |  2000-11-14  |  203b  |  10 lines

  1. on stripFileExtension pNomeFile
  2.   set l = length(pNomeFile)
  3.   
  4.   repeat while (char l of pNomeFile) <> "."
  5.     set l = l - 1
  6.   end repeat
  7.   
  8.   set l = l - 1
  9.   return char 1 to l of pNomeFile
  10. end