Classement

Re, J'ai personnellement beaucoup pris sur ce forum, je m'efforce de rendre quant je peux... Oui, un exemple: _$ (setq fich "C:\\Users\\toto\\Documents\\000000000\\TEST\\toto.txt") "C:\\Users\\toto\\Documents\\000000000\\TEST\\toto.txt" _$ (strcat (substr fich 1 (- (strlen fich) 3)) "top") "C:\\Users\\toto\\Documents\\000000000\\TEST\\toto.top" A+

Bonjour, Remplace: (string-subst-all "T:" "A=" line) par (foreach x '(("A=" . "T:") ("B=" . "G:")) (setq line (string-subst-all (cdr x) (car x) line))) Pour l'exemple le code modifié et commenté: (defun c:testxt (/ fich desc string-subst-all lst line) ;; Pour le cas ou il y aurait plusieurs occurences à substituer dans une même ligne ;; Si une seul occurence par ligne remplacer string-subst-all par vl-string-subst ;; dans le code (defun string-subst-all (n o l / p) (if (setq p (vl-string-search o l)) (string-subst-all n o (vl-string-subst n o l p)) l ) ) ;; Programme principal (if ;; Sélection du fichier (setq fich (getfiled "Sélectionner un fichier texte" "" "txt;*" 0)) (progn ;; Ouverture du fichier en lecture (setq desc (open fich "r")) ;; Boucle de lecture de l'ensemble des lignes (while (setq line (read-line desc)) ;; Substitution des chaînes de caractères dans la ligne (foreach x '(("A=" . "T:") ("B=" . "G:")) (setq line (string-subst-all (cdr x) (car x) line))) ;; Stockage de la ligne modifié dans une liste (stockage inversé) (setq lst (cons line lst)) ) ;; Fermeture du fichier (close desc) ;; Ouverture du fichier en écriture (setq desc (open fich "w")) ;; Ecriture des lignes dans le fichier (foreach line (reverse lst) (write-line line desc)) ;; Fermeture du fichier (close desc) ) ) (princ) ) A+

Salut, Rapidement pour le principe, écrit à la volé.. A tester (defun c:testxt (/ fich desc string-subst-all lst) (defun string-subst-all (n o l / p) (if (setq p (vl-string-search o l)) (string-subst-all n o (vl-string-subst n o l p)) l ) ) (and (setq desc (open (setq fich (getfiled "Sélectionner un fichier texte" "" "txt;*" 0)) "r")) (while (setq line (read-line desc)) (setq lst (cons (string-subst-all "T:" "A=" line) lst))) (not (close desc)) (setq lst (reverse lst)) (setq desc (open fich "w")) (foreach line lst (write-line line desc)) (close desc) ) (princ) ) A+