NomExtension

Syntaxe

ExtSansNom(Nom)
NomSansExt(Nom)
Deux routines jumelles pour extraire le nom d'un item en supprimant son extension ".xxx" ou extraire l'extension en supprimant le nom. Le paramètre et le résultat sont au format texte.
Par Fredo d;o)

Exemple

ExtSansNom("Nom du document.doc")
---> ".doc"
NomSansExt("Nom du document.doc")
---> "Nom du document"

Script

on ExtSansNom(Nom)
	if ("." is in Nom) then return (text -(offset of "." in ¬
		("" & (reverse of (characters of Nom)))) thru -1 of Nom)
	return Nom
end ExtSansNom

on NomSansExt(Nom)
	if ("." is in Nom) then return (text 1 thru -((offset of "." in ¬
		("" & (reverse of (characters of Nom)))) + 1) of Nom)
	return Nom
end NomSansExt

Remarque

Seule la dernière extension est considérée comme telle lorsqu'il y en a plusieurs.