Bonjour,
Mon but est de modifier un fichier (C:\Export.txt ) de façon automatique.
Je souhaite remplacer une chaine de caractère plusieurs fois dans ce fichier.
Mon script fonctionne bien mais lorsqu'il s'agit d'un gros fichier, rien n'est modifié.
Source:
************************************************
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("C:\Export.txt", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "Valeur1" , "Valeur2" )
Set objFile = objFSO.OpenTextFile("C:\Export.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close
************************************************
Si quelqu'un connait un autre moyen ou pourquoi cela ne fonctionne pas avec un gros fichier.
CDt.
Vincent.