Coucou zacromatafalgar
OK, je viens de faire le test sous SL :
Voir la pièce jointe 22177
Donc ça a l'air de marcher chez moi
D'autres tests à faire ?
merci
property textToFind : ""
property textToWrite : ""
property extensionList : {"html", "txt", "SFV"}
on run
set textToFind to text returned of (display dialog "Saisi le texte à rechercher : " default answer "" with icon 1)
set textToWrite to text returned of (display dialog "Saisi le texte de remplacement : " default answer "" with icon 1)
set theFolder to (choose folder)
processFolder(theFolder)
end run
-- traitement des fichiers
on processItem(thisitem)
set fileID to open for access file (thisitem as string)
set dataFromFile to read fileID as string
close access fileID
set dataToWrite to findReplace(dataFromFile, textToFind, textToWrite)
(* --boucle vérification--
set textOk to ""
set dataToWrite to dataToWrite as string
display dialog "datatowrite : " & dataToWrite
set nbrChar to (count of characters of (dataToWrite as string))
repeat with i from 1 to (nbrChar - 3)
set textOk to textOk & (character i of dataToWrite)
end repeat
display dialog "textok : " & textOk
*)
set x to open for access file (thisitem as string) with write permission
write dataToWrite to x
--write textOk to x
close access x
end processItem
--traitement des dossier
on processFolder(thisFolder)
set theseItems to list folder thisFolder without invisibles
repeat with i from 1 to count of theseItems
set thisitem to alias ((thisFolder as text) & (item i of theseItems))
set itemInfo to info for thisitem
if folder of itemInfo is true and package folder of itemInfo is false then
processFolder(thisitem)
else if (alias of itemInfo is false) and (the name extension of itemInfo is in extensionList) then
processItem(thisitem)
end if
end repeat
end processFolder
on findReplace(theData, toFind, replaceBy)
set text item delimiters to toFind
set theWords to {} & text items of theData
set theResult to 1st item of theWords
repeat with i from 2 to (length of theWords)
set theResult to theResult & replaceBy & (item i of theWords)
end repeat
return theResult
end findReplaceChez moi le changement ne provoque aucune erreur
Non non, aucune erreur.
C'est à dire que tu ne voudrais traiter que les fichiers dont les extensions sont dans la liste ?
property extensionList : {"html", "txt", "SFV"}
property textToFind : ""
property textToWrite : ""
property extensionList : missing value
on run
log AppleScript's text item delimiters
set textToFind to text returned of (display dialog "Saisi le texte à rechercher : " default answer "Ω" with icon 1)
set textToWrite to text returned of (display dialog "Saisi le texte de remplacement : " default answer "OKOKOK" with icon 1)
set extensionList to {}
set exten to text returned of (display dialog "Saisi les extensions des fichiers à traiter séparées par un point virgule." default answer "txt;SFV" with icon 1)
buildExtList(exten)
set theFolder to (choose folder)
processFolder(theFolder)
end run
-- traitement des fichiers
on processItem(thisitem)
set fileID to open for access file (thisitem as string)
set dataFromFile to read fileID as string
close access fileID
set dataToWrite to findReplace(dataFromFile, textToFind, textToWrite)
set x to open for access file (thisitem as string) with write permission
write dataToWrite to x
close access x
end processItem
--traitement des dossier
on processFolder(thisFolder)
set theseItems to list folder thisFolder without invisibles
repeat with i from 1 to count of theseItems
set thisitem to alias ((thisFolder as text) & (item i of theseItems))
set itemInfo to info for thisitem
if folder of itemInfo is true and package folder of itemInfo is false then
processFolder(thisitem)
else if (alias of itemInfo is false) and (the name extension of itemInfo is in extensionList) then
beep 2
processItem(thisitem)
end if
end repeat
end processFolder
--mise en forme de la liste
on buildExtList(textRet)
set AppleScript's text item delimiters to ";"
set theItems to text items of textRet as string
set nbr to count of text items of theItems
repeat with i from 1 to nbr
set anExt to text item i of theItems
set end of extensionList to anExt
end repeat
set AppleScript's text item delimiters to ""
end buildExtList
on findReplace(theData, toFind, replaceBy)
set text item delimiters to toFind
set theWords to {} & text items of theData
set theResult to 1st item of theWords
repeat with i from 2 to (length of theWords)
set theResult to theResult & replaceBy & (item i of theWords)
end repeat
set AppleScript's text item delimiters to ""
return theResult
end findReplaceproperty textToFind : ""
property textToWrite : ""
property extensionList : {}
on run
log AppleScript's text item delimiters
set textToFind to text returned of (display dialog "Saisi le texte à rechercher : " default answer "Ω" with icon 1)
set textToWrite to text returned of (display dialog "Saisi le texte de remplacement : " default answer "OKOKOK" with icon 1)
set extensionList to {}
set exten to text returned of (display dialog "Saisi les extensions des fichiers à traiter séparées par un point virgule." default answer "txt;SFV" with icon 1)
buildExtList(exten)
set theFolder to (choose folder)
processFolder(theFolder)
end run
-- traitement des fichiers
on processItem(thisitem)
set fileID to open for access file (thisitem as string)
set dataFromFile to read fileID as string
close access fileID
set dataToWrite to findReplace(dataFromFile, textToFind, textToWrite)
--display dialog "dataToWrite : " & dataToWrite
set x to open for access file (thisitem as string) with write permission
set eof of the x to 0
write dataToWrite to x
close access x
end processItem
--traitement des dossier
on processFolder(thisFolder)
set theseItems to list folder thisFolder without invisibles
repeat with i from 1 to count of theseItems
set thisitem to alias ((thisFolder as text) & (item i of theseItems))
set itemInfo to info for thisitem
if folder of itemInfo is true and package folder of itemInfo is false then
processFolder(thisitem)
else if (alias of itemInfo is false) and (the name extension of itemInfo is in extensionList) then
processItem(thisitem)
end if
end repeat
end processFolder
--mise en forme de la liste
on buildExtList(textRet)
set AppleScript's text item delimiters to ";"
set theItems to text items of textRet as string
set nbr to count of text items of theItems
repeat with i from 1 to nbr
set anExt to text item i of theItems
set end of extensionList to anExt
end repeat
set AppleScript's text item delimiters to ""
end buildExtList
on findReplace(theData, toFind, replaceBy)
set text item delimiters to toFind
set theWords to {} & text items of theData
set theResult to 1st item of theWords
repeat with i from 2 to (length of theWords)
set theResult to theResult & replaceBy & (item i of theWords)
end repeat
set AppleScript's text item delimiters to ""
--display dialog "theResult : " & theResult
return theResult
end findReplace
