1 pièce(s) jointe(s)
Remplacer un caractère dans un fichier texte
Bonjour à tous!
Je débute en vbs et je souhaiterais remplacer un caractère spécial (entre autre ∟) dans mon fichier texte que je vous joins.
C'est un fichier contenant quasiment exclusivement des caractères spéciaux et lorsque j'exécute mon fichier vbs, le fichier créé m'efface presque tout même lorsque je remplace du texte.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Const ForReading = 1
Const ForWriting = 2
Dim objFSO
Dim objFile
Dim strText
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Users\....\CAPTURE51.TXT", ForReading)
strText = objFile.ReadAll
Set objFile2 = objFSO.CreateTextFile("C:\Users\...\CAPTURE51-Copie.TXT", ForWriting, True)
objFile2.Write Replace(strText,"CHRONO","OSCILLO")
objFile2.Close
objFile.Close |
Ce code remplace CHRONO par OSCILLO comme prévu mais m'efface quasiement tous les autres caractères spéciaux du fichier. Est-ce que vous avez une solution pour parer à ce problème? ou est-ce que je fais qqch de faux?
Est-il possible de remplacer le caractère dans le même fichier que le fichier source txt? (ce qui peut-etre resoudrait mon problème...)
Je vous remercie d'avance pour votre aide ou vos idées et vous souhaite une bonne aprem.
Cordialement,
Jujel
