[VBS] Find & replace avec une chaine contetant des guillemets

Marsh Posté le 09-07-2015 à 10:26:26

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 !

Marsh Posté le 09-07-2015 à 10:26:26

Marsh Posté le 09-07-2015 à 18:23:21

Bonjour !

A lire …

Message cité 1 fois

Marsh Posté le 15-07-2015 à 14:47:17

Marc L a écrit :

Bonjour !

A lire …

Merci beaucoup !

Marsh Posté le 15-07-2015 à 16:23:57

Code :

Const TXT = "UNIT.CFG", T1 = "1""", T2 = "2"""
Const ANO = "VALUE=""PASSBC_ANO_PBC_", IND = "VALUE=""PASSBC_INDISPO_PBC_"
With CreateObject("Scripting.FileSystemObject" )
If .FileExists(TXT) Then
With .OpenTextFile(TXT, 1): S = .ReadAll: .Close: End With
With .OpenTextFile(TXT, 2)
.Write Replace(Replace(S, ANO & T2, ANO & T1), IND & T2, IND & T1)
.Close
End With
End If
End With

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *