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:
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?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager