renommer fichiers - write_line

[Ramses]

Bonjour à tous,

J'ai une liste de fichiers comme suit

 

fichier3

fichier8

fichier9

fichier30

...

 

que je veux renommer en

 

fichier3 > fichier1

fichier8 > fichier2

fichier9 > fichier3

fichier30 > fichier4

...

tout en generant un fichier texte de correspondance comme suit

 

fichier3 renomme en fichier1

fichier8 renomme en fichier2

fichier9 renomme en fichier3

fichier30 renomme en fichier4

...

 

d'abord je veux etablir leur liste, mais j'arrive pas avec :

 

(setq Nomfichier (substr (getvar "dwgname") 1 8))

(setq fichier (open "C:\\liste.txt" "w"))

(write-line Nomfichier fichier)

 

Avec ça à chaque ouverture de fichier il remplace l'ancien nom avec le nouveau (une seule ligne)

Merci pour votre aide

[(gile)]

Salut,

 

Il faut faire (close fichier) pour finaliser la création du fichier.

[bseb67]

Salut.

 

(setq Nomfichier (substr (getvar "dwgname") 1 8))

(setq fichier (open "C:\\liste.txt" "w"))

(write-line Nomfichier fichier)

 

Avec ça à chaque ouverture de fichier il remplace l'ancien nom avec le nouveau (une seule ligne)

Merci pour votre aide

 

Normal, avec le 'w' tu écrases le fichier, il faut faire 'a' pour append (ajout).

Si tu veux vider le fichier au début, alors oui, tu peux faire un 'w' puis le fermer puis le rouvrir

ensuite avec 'a' pour y mettre tes infos.

 

et comme l'a précisé Gile, pense à fermer le fichier avec un close.

[Ramses]

Salut,

Merci beaucoup à vous, ça marche