caractères génériques et lisp

[Ramses]

Bonjour à toutes et à tous,

Voilà j'ai des fichiers temporaires à supprimer. quand j'utilise ce bout de code ça marche pas.

 

 (vl-file-delete  "C:\\Log-file\\fich-log*.dwg")

 

mes fichiers portent les noms de fich-log-1 fich-log-2

est-ce à cause de l'étoile? et que faire donc? et merci

[Bred]

Salut,

si tu en as que 2, fait le 2 fois.

 

Conseil : utilise la fonction findfile pour tester l'existence du fichier.

 

Si tu en as plus, récupère les noms de fichiers du répertoire avec vl-directory-files qui accepte les "*"

[Ramses]

Merci Bred,

je n'ai pas que deux fichiers.

vl-directory-files est très bonne et comment je fais pour les supprimer? un à un en traitant la liste ou je peux les effacer d'un seul coup?

[Bred]

un à un.

je ne vois pas autrement.

[bonuscad]

Avec un foreach (pour chaque élément de la liste)

 

(foreach n (vl-directory-files "c:/chemin/" "*.dwg" 1) (vl-file-delete (strcat "c:/chemin/" n)))

 

Remplacer "c:/chemin" par ce qui convient.

[Patrick_35]

Salut

 

(defun del(dir / fso)
 (setq fso (vlax-create-object "scripting.filesystemobject"))
 (vlax-invoke-method fso 'deletefile dir :vlax-true)
 (vlax-release-object fso)
 (princ)
)

 

Exemple

(del "c:/test/*.*")

 

ps : Attention, les fichiers sont effacés définitivement. On ne les retrouvent pas dans la corbeille.

 

@+

[Bred]

Re,

vlax-create-object "scripting.filesystemobject"

:casstet:

t'as trouver ça où ?

merci.

[Ramses]

Merci pour vous tous c'est super.

Et si je veux exécuter ce code, quand l'utilisateur appuira sur la touche "echap", sans être obligé de redefinir de fonction *error*, est-ce qu'il y a une solution, sinon c'est pas grave. merci merci merci

 

[Edité le 10/4/2009 par Ramses]

[(gile)]

Salut,

 

Bred, vois ici.

[Bred]

merci !

:)

[Ramses]

Salut,

Encore une question svp sur la fonction vl-directory-files

dans mon chemin j'ai les 3 fichiers #1AAA. dwg et #2AAB.dwg et #A3AA.dwg

 

 (vl-directory-files "c:/chemin/" "#*.dwg" 1)

 

donne

("#1AAA.dwg" "#2AAB.dwg" "#A3AA.dwg")

 

je veux sélectionner les deux fichiers seulement c à dire contenant # + 1 chiffre + AA + 1 lettre

 

je fais ceci

 

 (vl-directory-files "c:/chemin/" "`##`A`A*.dwg" 1)

 

ca donne nil pourquoi? cette fonction ne reconnait pas les caractères génériques autres que *? merci

[(gile)]

Salut,

 

(vl-directory-files "c:/chemin/" "`##AA*.dwg" 1) 

 

Pas testé.

 

PS : cet exemple montre qu'il est préférable de ne pas utiliser de caractères spéciaux dans les noms de fichiers

[Ramses]

salut gile,

ça donne aussi nil. est-ce un rapport avec une variable système?

je continue de chercher

[(gile)]

Salut,

 

Il semble que vl-directory-file n'accepte pas tous les caractères génériques.

Je ne pense pas que ce soit modifiable avec une variable système.

Tu peux toujours faire une sélection plus fine avec wcmatch sur la liste retournée par vl-directory-file :

 

(vl-remove-if-not
 '(lambda (x) (wcmatch x "`##AA*"))
 (vl-directory-files "C:\\chemin" "*AA*" 1)
)

[Ramses]

ça marche nickel.

merci beaucoup gile.