Je voudrais modifier une ligne d'un fichier texte en connaissant son n°

xtra121 Messages postés 3 Date d'inscription samedi 11 mars 2006 Statut Membre Dernière intervention 19 mars 2006 - 19 mars 2006 à 16:12
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 - 21 mars 2006 à 19:47
je voudrais modifier une ligne d'un fichier texte en connaissant son n° mais sans modifier le reste quelqu'un a t'il une idée ?

je n'ai pas trouver d'info sur l'ecriture ....
Merci

4 réponses

cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
19 mars 2006 à 17:59
Salut,
La méthode qui est la plus utilisé est de récupérer le contenu de ton fichier, de supprimer ta ligne et de réecrire ton fichier.
Voici un exemple

--------------------------------------------
Dim col As New Collection
Dim ff As Integer
ff = FreeFile

Dim sLine As String

'Lecture du fichier, envois chaque ligne dans la collection
Open "C:\tonfichier.txt" For Input As #ff
While Not EOF(ff)
Line Input #ff, sLine
col.Add sLine
Wend
Close #ff

'Suppression de ta ligne n°5 par exemple
col.Remove 5

'Réecriture de ton fichier
Dim i as integer
Open "C:\tonfichier.txt" For Output As #ff
For i = 1 to col.Count
Print #ff, col(i)
Next
Close #ff

Et voila
0
troxsa Messages postés 553 Date d'inscription jeudi 28 novembre 2002 Statut Membre Dernière intervention 2 octobre 2016 1
20 mars 2006 à 10:53
Bonjour,

Tien ça peut te donner des idées :)
http://www.troxsa.info/index.php?option=com_content&task=view&id=45&Itemid=2

A bientot

http://www.troxsa.info/
Code Vb.net
0
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
20 mars 2006 à 13:30
'Tu lit tout ton fichier
open "mon fichier" for binary as #1
dim data as string
data = string(0,lof(1))
close #1

'Tu convertis en tableau de ligne
dim lignes as variant
lignes= split(data,vbcrlf)

'apres tu peux acceder aux lignes comme ceci
Debug.print Lignes(10)

@+
0
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
21 mars 2006 à 19:47
Arf j'ai encore mal lu c'est pas supprimer mais modifier....
Enfin si tu suis avec mon exemple tu remplace l'instruction pour supprimer par
col(NumDeTaLigne) = "blablabla...."
0
Rejoignez-nous