home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Encyklopedia Omnia
/
Planeta.iso
/
data
/
c_common.cst
/
00008_Script_stripFileExtension
< prev
next >
Wrap
Text File
|
2000-11-14
|
203b
|
10 lines
on stripFileExtension pNomeFile
set l = length(pNomeFile)
repeat while (char l of pNomeFile) <> "."
set l = l - 1
end repeat
set l = l - 1
return char 1 to l of pNomeFile
end