bonjour,
je voudrais remplacer, sur une ligne d'un fichier, une chaine de caractères inconnue et de longueur variable (???????????) inserrée entre 2 chaines connues (CHAINE1 et CHAINE2), par une nouvelle chaine (yyy):
exemple: CHAINE1????????????CHAINE2 deviendrait CHAINE1yyyCHAINE2
( les ? correspondent à la chaine inconnue)
mon script:
---------------------------------------------------------------------------
Dim fso, contenu
Dim st
Const ForReading=1,ForWriting=2,ForAppending=8
Set objFSO = createObject("Scripting.FileSystemObject")
Set contenu = objFSO.OpenTextFile("mon fichier",ForReading)
Do While Not contenu.AtEndOfStream
st = contenu.readAll
Loop
contenu.Close
Set contenu = objFSO.OpenTextFile("mon fichier",ForWriting,true)
Contenu.Write replace(st,"CHAINE1??????????CHAINE2","CHAINE1yyyCHAINE2")
Contenu.Close
Set Contenu = Nothing
Set objFSO = Nothing
-------------------------------------------------------------------------------------------------
comment remplacer les ????
