Eliminer qq cars en fin de chaine ?

[lecrabe]

Hello

 

Je patauge un peu ce matin !

 

(setq a (getvar "DWGNAME")) ---> "Dessin_AutoCAD.dwg"

 

SVP comment eliminer ".dwg" de cette chaine STRING ?

 

Merci d'avance, Bye, lecrabe

[(gile)]

Salut,

 

La fonction substr retourne une partie de la chaîne, et la fonction strlen retourne la longueur de la chaîne

 

Ce que tu veux est la sous-chaîne depuis le premier caractère (indice 1) d'une longueur égale à la chaîne moins 4 :

(substr a 1 (- (strlen a) 4))

 

Mais il existe aussi une fonction qui retourne directement le nom d'un fichier sans l'extension (ni le chemin du dossier) : vl-filename-base.

(vl-filename-base a)

[lecrabe]

Hello Gilles

 

Comme d'habitude, c IMPEC !

 

Merci, Bye, lecrabe