Répondre à la discussion

Message

<blockquote data-quote="zeltron54" data-source="post: 14177113" data-attributes="member: 101652">Bonsoir,J'avais voulu trop bien faire en renommant les fichiers et les dossiers... Mais une erreur se produit lors du renommage des dossiers.Il faudra que je cherche pour résoudre ce Bug.En attendant je te mets le script qui ne renomme que les fichiers...[CODE]-- renomme les fichiers en supprimant les caractères spéciaux--ÀÁÂàÄÅàáâàäåÒÓÔÕÖòóôõöÈÉÊËèéêëÇçÌÍÎÏìíîïÙÚÛÜùúûüÿÑñ()[]{}/%@#&quot;,;?!.\&gt;&lt; (majuscule par minuscule)--AAAaAAaaaaaaOOOOOoooooEEEEeeeeCcIIIIiiiiUUUUuuuuyNn---------------__--tell application &quot;Finder&quot;&nbsp; &nbsp; set lechemin to choose folder with prompt &quot;Sélectionnez le dossier contenant les fichiers et dossiers à traiter&quot;&nbsp; &nbsp; my inspecter(lechemin)end telltell application &quot;Finder&quot;&nbsp; &nbsp; my inspecter(lechemin)end tellon inspecter(lechemin)&nbsp; &nbsp; tell application &quot;Finder&quot;&nbsp; &nbsp; &nbsp; &nbsp; -- traitement des fichiers :&nbsp; &nbsp; &nbsp; &nbsp; set les_fichiers to files of lechemin&nbsp; &nbsp; &nbsp; &nbsp; repeat with chaque_fichier in les_fichiers&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -- traitement d'un fichier&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tell application &quot;Finder&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set lefichier to chaque_fichier&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set AppleScript's text item delimiters to {&quot;&quot;}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set nom to name of chaque_fichier --récupère le nom du fichier&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set extens to file nom in lechemin --recupere l extension du fichier&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set lextension to name extension of extens&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if lextension is not &quot;&quot; then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set AppleScript's text item delimiters to {&quot;.&quot;} --récupère la partie avant le dernier &quot;.&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set elements to text items of nom&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set nomcourt to (items 1 thru -2 of elements) as string&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set nomcourt to nom&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; on error&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set lelog to open for access ((path to desktop folder as text) &amp; &quot;les erreurs.txt&quot;) as text with write permission&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; write &quot;Le nom du fichier n'a pas pu être extrait : &quot; &amp; lefichier &amp; return to lelog starting at eof&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; close access lelog&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set pourerreur to lefichier as string&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set nouveaunom to my remplace(nomcourt, pourerreur)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if nomcourt is not nouveaunom then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set a to container of lefichier as string&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set verifexist to a &amp; nouveaunom &amp; &quot;.&quot; &amp; lextension&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if exists verifexist then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set nouveaunom to nouveaunom &amp; &quot;2&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if lextension = &quot;&quot; then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set name of lefichier to nouveaunom&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set name of lefichier to nouveaunom &amp; &quot;.&quot; &amp; lextension -- renomme le fichier&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -- Ecrit un fichier erreur sur le bureau si erreur&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; on error&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set lelog to open for access ((path to desktop folder as text) &amp; &quot;les erreurs.txt&quot;) as text with write permission&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; write &quot;Le fichier n'a pas pu être renommer : &quot; &amp; pourerreur &amp; return to lelog starting at eof&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; close access lelog&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end tell&nbsp; &nbsp; &nbsp; &nbsp; end repeat&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -- traitement des dossiers :&nbsp; &nbsp; &nbsp; &nbsp; set les_dossiers to folders of lechemin&nbsp; &nbsp; &nbsp; &nbsp; repeat with chaque_dossier in les_dossiers&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -- traitement d'un dossier&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; my inspecter(chaque_dossier)&nbsp; &nbsp; &nbsp; &nbsp; end repeat&nbsp; &nbsp; end tellend inspectertell application &quot;Finder&quot;&nbsp; &nbsp; activate&nbsp; &nbsp; (display dialog (&quot;waouou ... Ca y est c'est fait !&quot;) buttons {&quot;Salut !&quot;})end tellon remplace(mavar, pourerreur)&nbsp; &nbsp; set aremplacer to {203, 231, 229, 136, 128, 129, 136, 135, 137, 136, 138, 140, 241, 238, 239, 205, 133, 152, 151, 153, 155, 154, 233, 131, 230, 232, 143, 142, 144, 145, 130, 141, 237, 234, 235, 236, 147, 146, 148, 149, 244, 242, 243, 134, 157, 156, 158, 159, 216, 132, 150, 40, 41, 91, 93, 123, 125, 47, 37, 64, 35, 34, 44, 59, 63, 33, 46, 92, 62, 60, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90}&nbsp; &nbsp; set par to {97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 111, 111, 111, 111, 111, 111, 111, 111, 111, 111, 101, 101, 101, 101, 101, 101, 101, 101, 99, 99, 105, 105, 105, 105, 105, 105, 105, 105, 117, 117, 117, 117, 117, 117, 117, 117, 121, 110, 110, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 95, 95, 45, 45, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122}&nbsp; &nbsp; set nbar to count aremplacer&nbsp; &nbsp; set new to mavar&nbsp; &nbsp; &nbsp; &nbsp; set lesblancs to count character in new&nbsp; &nbsp; repeat --supprime espace fin&nbsp; &nbsp; &nbsp; &nbsp; if character lesblancs of new is not &quot; &quot; then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; exit repeat&nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; set new to text 1 thru (lesblancs - 1) of new&nbsp; &nbsp; &nbsp; &nbsp; set lesblancs to count characters in new&nbsp; &nbsp; end repeat&nbsp; &nbsp; repeat --supprime espace debut&nbsp; &nbsp; &nbsp; &nbsp; if character 1 of new is not &quot; &quot; then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; exit repeat&nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; set new to text 2 thru lesblancs of new&nbsp; &nbsp; &nbsp; &nbsp; set lesblancs to count characters in new&nbsp; &nbsp; end repeat&nbsp; &nbsp; -- remplace les espaces par des tirets&nbsp; &nbsp; set nb to count characters in new&nbsp; &nbsp; repeat with i from 1 to nb&nbsp; &nbsp; &nbsp; &nbsp; if character i of new is &quot; &quot; then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set new to text 1 thru (i - 1) of new &amp; &quot;-&quot; &amp; text (i + 1) thru nb of new&nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; end repeat&nbsp; &nbsp; set nb to count characters in new&nbsp; &nbsp; set i to 1&nbsp; &nbsp; --supprime les tirets qui se suivent&nbsp; &nbsp; repeat&nbsp; &nbsp; &nbsp; &nbsp; if character i of new is &quot;-&quot; then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if character (i + 1) of new is &quot;-&quot; then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if i = 1 then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set new to text 2 thru nb of new&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set nb to nb - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set i to i - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set new to text 1 thru (i - 1) of new &amp; text (i + 1) thru nb of new&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set nb to nb - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set i to i - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; set i to i + 1&nbsp; &nbsp; &nbsp; &nbsp; if i = nb then exit repeat&nbsp; &nbsp; end repeat&nbsp; &nbsp; -- remplace les caractères de la liste&nbsp; &nbsp; set nb to count characters in new&nbsp; &nbsp; set mavar to new&nbsp; &nbsp; try&nbsp; &nbsp; &nbsp; &nbsp; repeat with i from 1 to nb&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set a to character i in mavar&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set lavaleur to ASCII number a&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; repeat with j from 1 to nbar&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if item j of aremplacer is lavaleur then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if lavaleur = 60 or lavaleur = 62 then --traite le &gt;&lt;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if i = 1 then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set new to (text 2 thru nb of mavar)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set avant to &quot;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set avant to text 1 thru (i - 1) of new&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if i = nb then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set new to avant&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set new to avant &amp; text nb thru -(nb - i) of mavar&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else --traite les autres caracteres&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set newcar to ASCII character (item j of par)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if i = 1 then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set new to newcar &amp; (text 2 thru nb of new)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set avant to &quot;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set avant to text 1 thru (i - 1) of new&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if i = nb then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set new to avant &amp; newcar&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set new to avant &amp; newcar &amp; text nb thru -(nb - i) of mavar&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end repeat&nbsp; &nbsp; &nbsp; &nbsp; end repeat&nbsp; &nbsp; on error&nbsp; &nbsp; &nbsp; &nbsp; -- Ecrit un fichier erreur sur le bureau si erreur&nbsp; &nbsp; &nbsp; &nbsp; set lelog to open for access ((path to desktop folder as text) &amp; &quot;les erreurs.txt&quot;) as text with write permission&nbsp; &nbsp; &nbsp; &nbsp; write &quot;Le caractère n'a pas pu être remplacer : &quot; &amp; pourerreur &amp; return to lelog starting at eof&nbsp; &nbsp; &nbsp; &nbsp; close access lelog&nbsp; &nbsp; end try&nbsp; &nbsp; set mavar to newend remplace[/CODE]</blockquote>

[QUOTE="zeltron54, post: 14177113, member: 101652"] Bonsoir, J'avais voulu trop bien faire en renommant les fichiers et les dossiers... Mais une erreur se produit lors du renommage des dossiers. Il faudra que je cherche pour résoudre ce Bug. En attendant je te mets le script qui ne renomme que les fichiers... [CODE]-- renomme les fichiers en supprimant les caractères spéciaux --ÀÁÂàÄÅàáâàäåÒÓÔÕÖòóôõöÈÉÊËèéêëÇçÌÍÎÏìíîïÙÚÛÜùúûüÿÑñ()[]{}/%@#",;?!.\>< (majuscule par minuscule) --AAAaAAaaaaaaOOOOOoooooEEEEeeeeCcIIIIiiiiUUUUuuuuyNn---------------__-- tell application "Finder" set lechemin to choose folder with prompt "Sélectionnez le dossier contenant les fichiers et dossiers à traiter" my inspecter(lechemin) end tell tell application "Finder" my inspecter(lechemin) end tell on inspecter(lechemin) tell application "Finder" -- traitement des fichiers : set les_fichiers to files of lechemin repeat with chaque_fichier in les_fichiers -- traitement d'un fichier tell application "Finder" try set lefichier to chaque_fichier set AppleScript's text item delimiters to {""} set nom to name of chaque_fichier --récupère le nom du fichier set extens to file nom in lechemin --recupere l extension du fichier set lextension to name extension of extens if lextension is not "" then set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur set AppleScript's text item delimiters to {"."} --récupère la partie avant le dernier "." set elements to text items of nom set nomcourt to (items 1 thru -2 of elements) as string set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur else set nomcourt to nom end if on error set lelog to open for access ((path to desktop folder as text) & "les erreurs.txt") as text with write permission write "Le nom du fichier n'a pas pu être extrait : " & lefichier & return to lelog starting at eof close access lelog end try set pourerreur to lefichier as string set nouveaunom to my remplace(nomcourt, pourerreur) if nomcourt is not nouveaunom then try set a to container of lefichier as string set verifexist to a & nouveaunom & "." & lextension if exists verifexist then set nouveaunom to nouveaunom & "2" end if if lextension = "" then set name of lefichier to nouveaunom else set name of lefichier to nouveaunom & "." & lextension -- renomme le fichier end if -- Ecrit un fichier erreur sur le bureau si erreur on error set lelog to open for access ((path to desktop folder as text) & "les erreurs.txt") as text with write permission write "Le fichier n'a pas pu être renommer : " & pourerreur & return to lelog starting at eof close access lelog end try end if end tell end repeat -- traitement des dossiers : set les_dossiers to folders of lechemin repeat with chaque_dossier in les_dossiers -- traitement d'un dossier my inspecter(chaque_dossier) end repeat end tell end inspecter tell application "Finder" activate (display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"}) end tell on remplace(mavar, pourerreur) set aremplacer to {203, 231, 229, 136, 128, 129, 136, 135, 137, 136, 138, 140, 241, 238, 239, 205, 133, 152, 151, 153, 155, 154, 233, 131, 230, 232, 143, 142, 144, 145, 130, 141, 237, 234, 235, 236, 147, 146, 148, 149, 244, 242, 243, 134, 157, 156, 158, 159, 216, 132, 150, 40, 41, 91, 93, 123, 125, 47, 37, 64, 35, 34, 44, 59, 63, 33, 46, 92, 62, 60, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90} set par to {97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 111, 111, 111, 111, 111, 111, 111, 111, 111, 111, 101, 101, 101, 101, 101, 101, 101, 101, 99, 99, 105, 105, 105, 105, 105, 105, 105, 105, 117, 117, 117, 117, 117, 117, 117, 117, 121, 110, 110, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 95, 95, 45, 45, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122} set nbar to count aremplacer set new to mavar set lesblancs to count character in new repeat --supprime espace fin if character lesblancs of new is not " " then exit repeat end if set new to text 1 thru (lesblancs - 1) of new set lesblancs to count characters in new end repeat repeat --supprime espace debut if character 1 of new is not " " then exit repeat end if set new to text 2 thru lesblancs of new set lesblancs to count characters in new end repeat -- remplace les espaces par des tirets set nb to count characters in new repeat with i from 1 to nb if character i of new is " " then set new to text 1 thru (i - 1) of new & "-" & text (i + 1) thru nb of new end if end repeat set nb to count characters in new set i to 1 --supprime les tirets qui se suivent repeat if character i of new is "-" then if character (i + 1) of new is "-" then if i = 1 then set new to text 2 thru nb of new set nb to nb - 1 set i to i - 1 else set new to text 1 thru (i - 1) of new & text (i + 1) thru nb of new set nb to nb - 1 set i to i - 1 end if end if end if set i to i + 1 if i = nb then exit repeat end repeat -- remplace les caractères de la liste set nb to count characters in new set mavar to new try repeat with i from 1 to nb set a to character i in mavar set lavaleur to ASCII number a repeat with j from 1 to nbar if item j of aremplacer is lavaleur then if lavaleur = 60 or lavaleur = 62 then --traite le >< if i = 1 then set new to (text 2 thru nb of mavar) set avant to "" else set avant to text 1 thru (i - 1) of new end if if i = nb then set new to avant else set new to avant & text nb thru -(nb - i) of mavar end if else --traite les autres caracteres set newcar to ASCII character (item j of par) if i = 1 then set new to newcar & (text 2 thru nb of new) set avant to "" else set avant to text 1 thru (i - 1) of new end if if i = nb then set new to avant & newcar else set new to avant & newcar & text nb thru -(nb - i) of mavar end if end if end if end repeat end repeat on error -- Ecrit un fichier erreur sur le bureau si erreur set lelog to open for access ((path to desktop folder as text) & "les erreurs.txt") as text with write permission write "Le caractère n'a pas pu être remplacer : " & pourerreur & return to lelog starting at eof close access lelog end try set mavar to new end remplace[/CODE] [/QUOTE]

Vérification

Rechercher

Rechercher

Répondre à la discussion