SUPPRESSION PREFIXE FICHIER .DWG

[lili2006]

Bonjour à toutes et tous,

 

J'ai un répertoire de blocs dont je désirerai retirer le préfixe (sur le nom du fichier dessin : Exemple LLESCnomdu bloc, ici je voudrai supprimer "LLESC") qui est constant.

 

Est-ce possible ?

 

Merci d'avance,

[Patrick_35]

Salut

 

(defun c:pre(/ dirbox lst fic rep)
 
 (defun dirbox(msg / cdl rep)
   (if (setq cdl (vlax-create-object "Shell.Application"))
     (progn
(and (setq rep (vlax-invoke cdl 'browseforfolder 0 msg 512 ""))
     (setq rep (vlax-get-property (vlax-get-property rep 'self) 'path))
)
(vlax-release-object cdl)
     )
   )
   rep
 )

 (vl-load-com)
 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (and  (setq rep (dirbox "Selectionnez un répertoire"))
(setq lst (vl-directory-files rep "*.dwg" 1))
   (foreach fic lst
     (and (wcmatch (strcase fic) [surligneur]"LLESC*"[/surligneur])
(vl-file-rename (strcat rep "/" fic) (strcat rep "/" (substr fic 6)))
     )
   )
 )
 (princ)
)

 

@+

[lili2006]

Re,

 

Merci Patrick_35,

 

Cela ne marche cependant pas (ou je n'ai pas réussit !!).

 

Il faut que le répertoire ne contienne que le même préfixe je suppose ?

 

Je m'en suis assuré !

 

Les fichiers portent ce type de nom => LLESCannotation regard BA

 

Merci encore,

[Patrick_35]

Tu choisis tout simplement le répertoire contenant les fichiers commençant par "LLESC" et ayant l'extension ".DWG"

 

@+

[Eric]

Bonjour,

 

Pour faire concurence à Patrick35 voici ma version de la suppression du prefixe LLESC.

 

C'est un simple exe qu'il faut lancer puis choisir le dossier et voila.

 

C'est pas du lisp mais bon, c'est pour avoir un esprit de contradiction. :D

 

L'exe peut être téléchargé ici :

 

http://dl.free.fr/vm2xBVid3

[lili2006]

Re,

 

Tu choisis tout simplement le répertoire contenant les fichiers commençant par "LLESC" et ayant l'extension ".DWG"

 

C'est bien ce que j'ai fait pourtant,... ! :o

 

Éric, marche super !

 

J'ai d'autres répertoires à traiter moins important,..

 

Le plus gros qu'il me reste (250 Fichiers) commence par "bord" et c'est ce préfixe que je voudrais retirer

 

Comment puis-je faire avec tn utilitaire ?

 

Patrick,

 

J'ai testé également sur ce répertoire moins important en changeant cette ligne =>

 

(and (wcmatch (strcase fic) "bord*") 

 

Marche toujours pas !

 

Qu'ai-je mal fait selon toi ? ,

 

Merci encore,

[Patrick_35]

Il faut juste que bord soit en majuscule ou mettre (strcase fic t) pour les minuscules

 

Lili, je pense que tu pourrais aussi utiliser le dos

Par exemple : ren bord*.* *.*

 

@+

[lili2006]

Re,

 

Ok Patrick !

 

Je ne sais pas ce qui s'est passé pour le premier dossier, mais comme je l'ai testé avec l'utilitaire de Eric,...

 

Pour le second, le lisp transforme par exemple =>

 

bordA1a en 1a !!

 

C'est à dire qu'il me retire également le A juste derrière "bord",..

 

Une idée ?

 

A la limite ce n'est pas super gênant si, par le même principe, je peux rajouter un préfixe ! Au final, ce serait même mieux, comme cela je pourrais mettre en préfixe les deux premières lettres (par exemple) de la catégorie (Exemple pour des poutres => poA1a au lieu de actuellement bordA1a ou 1a après passage de "pre")

 

Merci encore,

 

Lili, je pense que tu pourrais aussi utiliser le dos

Par exemple : ren bord*.* *.

 

Je ne sais plus du tout comment on manipule ce bazars,...(Remonte à mes études e, 88 !!)

[Patrick_35]

C'est de ma faute, j'ai oublié de préciser la longueur

(substr fic 5)

 

Soit 4 caractères de bord + 1

 

Pour le dos, tu fais windows+r puis cmd+entrée

tu vas dans ton répertoire (avec cd)

Et dans le bon emplacement, tu utilises la commande ren comme je l'ai indiqué.

Et une fois fini, tu fais exit (ou bouton fermeture)

 

Souvenir, souvenir du dos snif..

C'était trop simple ;)

 

@+

[lili2006]

Re,

 

Ok Merci encore Patrick !

 

J'ai édité mon message précédent et je ne suis pas sur que tu est vu cette partie =>

 

A la limite ce n'est pas super gênant si, par le même principe, je peux rajouter un préfixe ! Au final, ce serait même mieux, comme cela je pourrais mettre en préfixe les deux premières lettres (par exemple) de la catégorie (Exemple pour des poutres => poA1a au lieu de actuellement bordA1a ou 1a après passage de "pre")

 

Ou en utilisant de la même façon le dos ?

 

Merci encore,

[Patrick_35]

Et en plus, on ne voit pas quand tu édites un message ;)

 

Pour ajouter un préfixe

(strcat rep "/[surligneur]Mon_Préfixe[/surligneur]" (substr fic 6))

 

Et en dos

ren bord*.* Mon_prefixe*.*

 

@+

[Eric]

Histoire de semer un peu la zizanie voici une autre version où tu peux choisir le prefixe à supprimer que tu veux. :D

 

http://dl.free.fr/iiWoz6v8X

 

 

[lili2006]

Re,

 

Et en plus, on ne voit pas quand tu édites un message

 

Oui, depuis que je suis modo,...

 

 

J'ai essayé ça sans succès pour le moment,...

 

	(vl-file-rename (strcat rep "/" fic) (strcat rep "/test" (substr fic 4))) 

 

Merci Patrick

 

PS: J'essayerai également sous dos plus tard,...

[lili2006]

Re,

 

Génial Eric ! :D

 

Et version "ajout de préfixe", c'est compliqué à mettre en œuvre ?

 

Merci encore,

[Titifonky]

Bonjour,

 

Désolé de m'immiscer dans la conversation mais j'utilise ce logiciel pour manipuler les fichiers http://www.antp.be/software/renamer/fr

Tu fais un glisser-déposer dans la fenêtre et tu clique sur "opération" pour sélectionner les modification à appliquer sur tous les fichiers.

[Eric]

Ah encore un qui semer la zizanie :D

 

Je plaisante.

 

Voici la version ajout de prefixe :

 

http://dl.free.fr/rQKd0sgTP

[PHILPHIL]

HELLO

 

un deuxieme zizaneur ??

 

essaye ca

 

pour renommer les nom de fichiers

 

je ne sais plus s'il s'occupent aussi des sous répertoire

 

http://www.toocharger.com/fiches/windows/ledrenommer/19062.htm

 

a+

 

phil

[lili2006]

Re,

 

Génial tout ça !!!!

 

Merci encore à tous de votre participation, je n'ai que l'embarras du choix !

 

Pour la demande, j'aime bien le lisp de Patrick et les utilitaires de Eric

 

Pour ce besoin et d'autres, les utilitaires de Titifonky et PHILPHIL ont également leur place,... :D

[Curcis]

http://www.toocharger.com/fiches/windows/ledrenommer/19062.htm

phil

 

Super, tout simplement super!

 

Merci Phil

[lili2006]

Re,

 

Super, tout simplement super!

 

Exact !

 

Bien vu l'incrémentation,...

[bseb67]

Lancer autocad pour renommer des fichiers ;)

 

Yen a qui sont bien infectés :cool:

 

Pour ce genre de chose, j'utilise Ant renamer, un super petit logiciel

http://www.01net.com/telecharger/windows/Utilitaire/manipulation_de_fichier/fiches/17812.html

[lili2006]

Bonjour à toutes et tous,

 

Merci bseb67,

 

simple et efficace aussi ! :D