Discussion :

[cari]

bonjour, j'ai ouvert un fichier avec output et j'ai écrit à l'intérieur avec write.
Miantenant, j'aimerai rajouter des données dans ce fichier sans en effacer le contenu, comment faire?
merci.

[sovo]

pour ouvrir un fichier (sans effacer le contenu) tu doit l'ouvrir avec append

Code :

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

1
2
3
4
 
append c:\fichier.txt for output as #1
     print #1,"merci"
close #1

[avigeilpro]

Personellement j'ouvre mes ichiers avec Open, et pour ajouter des données a la fin je fais ainsi :

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
Dim FileAdr As String
Dim FileContenu As String
 
FileAdr="C:\MonFichier.Txt"
FileContenu=Space(FileLen(FileAdr))
Open FileAdr For Binary As #1
  Get #1,1,FileContenu
Close #1
 
'ajoute du texte a la fin
FileContenu=FileContenu & "Fin du Fichier"
 
'Insère du texte entre le 5eme et le 6ème caractère du fichier
'ATTENTION : il faut prendre en compte les retours à la ligne (2 caratères)
FileContenu=Left(FileContenu,5) & "Texte Ajouté" & Mid(FileContenu,6)
 
'Supprime le fichier avant de le réécrire
Kill FileAdr
 
Open FileAdr For Binary As #1
  Put #1,,FileContenu
Close #1

J'espère que ca peut t'aider

[cari]

je veux d'abord lire mon fichier avant d'écrire à l'interieur, mais j'ai le message "mode d'acces incorrect" et il se bloque sur "line input .."

Code :

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

1
2
3
4
Numfich1 = FreeFile
Open App.Path & "/Fichiers/abonnes_nouveau.txt" For Append As #Numfich1
 
Line Input #Numfich1, s1

[SfJ5Rpw8]

j"mode d'acces incorrect"

Code :

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

 For Append

Append c'est ajout , ... ecriture seulement ...

[cari]

merci.