Discussion :

[aefmaaradji]

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

[bodbod]

Le plus simple serait de lire/ecrire le fichier ligne par ligne
Voir FAQ : http://vb.developpez.com/faqvbs/?pag...#fsoLitFichier

[ProgElecT]

Le code que tu nous mets supprime le contenu d'une ligne, celui-ci te supprimera la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.Write replace(st,"	Computer	KELLER Christian	 	 " & vbcrlf ,"")

Si la ligne a supprimer est la dernière du fichier.txt et quelle ne finit pas par un vbcrlf, autre problème.