Bonjour à tous ! Tout est dans le titre !
Je cherche à faire un petit script de find and replace, je l'ai testé il est fonctionnel, le soucis et que je dois le rendre compatible pour d'autres utilisations avec des chaines contenant des guillemets !
Code :
- Const ForReading = 1
- Const ForWriting = 2
- Set objFSO = CreateObject("Scripting.FileSystemObject" )
- Set objFile = objFSO.OpenTextFile("UNIT.CFG", ForReading)
- strText = objFile.ReadAll
- objFile.Close
- strNewText = Replace(strText, VALUE="PASSBC_ANO_PBC_2", VALUE="PASSBC_ANO_PBC_1" )
- strNewText1 = Replace(strNewText, VALUE="PASSBC_INDISPO_PBC_2", VALUE="PASSBC_INDISPO_PBC_1" )
- Set objFile = objFSO.OpenTextFile("UNIT.CFG", ForWriting)
- objFile.WriteLine strNewText1
- objFile.Close
|
Voici mon code ! Je veux remplacer VALUE="PASSBC_ANO_PBC_2" par VALUE="PASSBC_ANO_PBC_1" ...
Je ne prends pas juste le PASSBC_ANO_PBC_2 parce que je le retrouve plusieurs fois dans mon fichier et je ne veux pas le modifier aux autres endroits !
Merci d'avance !
FORUM HardWare.fr
