Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Création de fichiers texte

Création de fichiers texte

4 réponses
Avatar
Giques
Bonjour à tous,

Comment fait-on pour écrire dans un fichier texte ?

Le fichier est existant et j'aimerais écrire des infos à la suite du
fichier.

J'utilise
Open "MonFichier.txt" for output as #1
Print #1, "blabla"
Close #1

Cette manière de faire supprime tout ce qu 'il y avait dans "MonFichier.txt"

Comment fait-on pour écrire à la suite ?

Merci de votre aide

Giques
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Aski
Hello Giques,

Tu as écrit :

Bonjour à tous,

Comment fait-on pour écrire dans un fichier texte ?

Le fichier est existant et j'aimerais écrire des infos à la suite du
fichier.

J'utilise
Open "MonFichier.txt" for output as #1
Print #1, "blabla"
Close #1

Cette manière de faire supprime tout ce qu 'il y avait dans
"MonFichier.txt"
Comment fait-on pour écrire à la suite ?

Merci de votre aide

Giques



Il te faut utiliser Append pour ajouter à la suite.
Append remplaçant Output dans ta commande d'ouverture.
Avatar
Giques
OK, Merci pour l'info

Giques
"Aski" a écrit dans le message de news:

Hello Giques,

Tu as écrit :

Bonjour à tous,

Comment fait-on pour écrire dans un fichier texte ?

Le fichier est existant et j'aimerais écrire des infos à la suite du
fichier.

J'utilise
Open "MonFichier.txt" for output as #1
Print #1, "blabla"
Close #1

Cette manière de faire supprime tout ce qu 'il y avait dans
"MonFichier.txt"
Comment fait-on pour écrire à la suite ?

Merci de votre aide

Giques



Il te faut utiliser Append pour ajouter à la suite.
Append remplaçant Output dans ta commande d'ouverture.



Avatar
Jean-marc
Giques wrote:

Il te faut utiliser Append pour ajouter à la suite.
Append remplaçant Output dans ta commande d'ouverture.





Un petit exemple en complément de la réponse d'Aski:

Private Sub AddLineToEndOfFile(ByVal FileName As String, ByVal NewLine As
String)

Dim f As Integer

f = FreeFile
Open FileName For Append As #f
Print #f, NewLine
Close #f

End Sub

Note : Si le fichier n'existe pas, Append va le créer.

Voila :-)

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
LE TROLL
Bonjour,

Et puis pour compléter ce qui a été dit, comme
on est dans un forum VB, tu peux aussi l'écrire en
visual basic:

Dim p As long
Dim letexte As String
ChDrive App.Path
ChDir App.Path
p = FreeFile
Open "nom_fichier.txt" For Append As p
Print #p, letexte
close p

--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Giques" a
écrit dans le message de news:
471c65fa$0$11136$
| Bonjour à tous,
|
| Comment fait-on pour écrire dans un fichier
texte ?
|
| Le fichier est existant et j'aimerais écrire des
infos à la suite du
| fichier.
|
| J'utilise
| Open "MonFichier.txt" for output as #1
| Print #1, "blabla"
| Close #1
|
| Cette manière de faire supprime tout ce qu 'il y
avait dans "MonFichier.txt"
|
| Comment fait-on pour écrire à la suite ?
|
| Merci de votre aide
|
| Giques
|
|
|