Bonjour,

J'ai un problème mais après avoir recherché un peu partout, et je n'ai pas trouvé de solution applicable à ma problématique.
J'ai un fichier en .txt qui ressemble à ça :

{\rtf\ansi\ansicpg1252\uc1\deff0\deflang1033{\fonttbl{\f0 Calibri;
{\f1 Verdana;

{\colortbl\red0\green0\blue0 ;\red15\green147\blue239 ;
{\*\defchp\ltrch\f0\fs21\i0\b0\strike0\cf0\ulc0\ulnone
{\*\ts2\tsrowd\spriority59\trbrdrt\brdrnone\trbrdrb\brdrnone\trbrdrl\brdrnone\trbrdrr\brdrnone\trbrdrh\brdrnone\trbrdrv\brdrnone\trgaph0\trpaddl75\trpaddr75\t

\nouicompat\viewkind4\paperw12240\paperh15840\margl1425\margr1425\margt1425\margb1425\deftab720\sectd\pgwsxn12240\pghsxn15840\marglsxn1425\m
A commander --> ADV pré-facturation
{\ltrch\f0\fs20\i0\b0\strike0\cf0\ulc0\ulnone
\line
{\ltrch\f0\fs20\i\b\strike0\cf1\ulc0\ul
[...]

Et je voudrai enlever toutes les lignes contenant un caractère exemple \ ou {
Mais je n'y arrive pas.
Par n'importequel méthode soit écraser le fichier soit en recréer un j'ai déjà celui-ci qui extrait depuis un fichier rtf :

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
16
17
18
19
20
21
22
set fso = CreateObject("Scripting.FileSystemObject")
FichierTXT = "P61571"
 
 
'Lecture fichier
    set readfile = fso.OpenTextFile(FichierTXT &".rtf", 1, false)
    do while readfile.AtEndOfStream=false
    Lecture = readfile.ReadLine
    loop
    readfile.close
 
 
'Retraitement fichier
    Set NewFichier = fso.CreateTextFile(FichierTXT &".txt",TRUE)
    traitement=replace(replace(replace(Lecture,"\ulnone","\ulnone" &vblf),"\ul ","\ul " &vblf),"}", "" &vblf)
    traitement=replace(traitement,"\u233?", "é")
    NewFichier.WriteLine(traitement)
 
 
Set fso = Nothing
Set readfile = Nothing
WScript.Quit
Pouvez-vous m'aider svp ?