Bonjour,
SVP, je cherche à suprimmer une ligne dans un fichier texte

j'ai essayé ce code mais malhereusement elle ne remplace pas elle remplace la ligne par un vide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Fichier2 = "c:\tmp\ecr1.txt"
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Dim st
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile(fichier2, ForReading)
st = f.readAll
f.Close
Set f = fso.OpenTextFile(fichier2, ForWriting)
f.Write replace(st,"	Computer	KELLER Christian	 	 ","")
 
f.close
la je peut supprimer une ligne entiére
Merci de votre attetion