Remplace des sous-cha�nes dans un fichier
#include <File.au3>
_ReplaceStringInFile ( $sFilePath, $sSearchString, $sReplaceString [, $iCaseSensitive = 0 [, $iOccurance = 1]] )
| $sFilePath | Le chemin complet du fichier dans lequel remplacer les cha�nes. |
| $sSearchString | La cha�ne � chercher. |
| $sReplaceString | La cha�ne de remplacement. |
| $iCaseSensitive | [optionnel] Flag pour indiquer si les op�rations doivent �tre sensibles � la casse. $STR_NOCASESENSE (0) = pas sensible � la casse, en utilisant les param�tres locaux � l'utilisateur (par d�faut) $STR_CASESENSE (1) = sensible � la casse $STR_NOCASESENSEBASIC (2) = pas sensible � la casse, en utilisant une comparaison basique/rapide Les constantes sont d�finies dans StringConstants.au3 |
| $iOccurance | [optionnel] 0 - Seule la premi�re occurrence est remplac�e 1 - Toutes les occurrences sont remplac�s (par d�faut) |
| Succ�s: | Retourne le nombre d'occurrences trouv�es. |
| �chec: | Retourne -1 et d�finit @error <> 0. |
| @error: | 1 - Le fichier est en lecture seule 2 - Impossible d'ouvrir le fichier 3 - Impossible d'�crire dans le fichier |
#include <File.au3> #include <MsgBoxConstants.au3> Local $sFind = "BEFORE" Local $sReplace = "AFTER" Local $sFilename = "C:\_ReplaceStringInFile.test" Local $iMsg = "Hello Test " & $sFind & " Hello Test" & @CRLF $iMsg &= "Hello Test" & @CRLF $iMsg &= @CRLF $iMsg &= $sFind FileWrite($sFilename, $iMsg) MsgBox($MB_SYSTEMMODAL, "BEFORE", $iMsg) Local $iRetval = _ReplaceStringInFile($sFilename, $sFind, $sReplace) If $iRetval = -1 Then MsgBox($MB_SYSTEMMODAL, "ERREUR", "Le mod�le n'a pas �t� remplac� dans le fichier: " & $sFilename & " Error: " & @error) Exit Else MsgBox($MB_SYSTEMMODAL, "INFO", "Trouv� " & $iRetval & " occurrences du mod�le: " & $sFind & " dans le fichier: " & $sFilename) EndIf $iMsg = FileRead($sFilename, 1000) MsgBox($MB_SYSTEMMODAL, "AFTER", $iMsg) FileDelete($sFilename)