Discussion :

[unacsed]

Hello,

Je suis en train de créer une petite application visual basic qui prend du texte dans une base de donnée et la met dans un fichier texte. le problème est que je repasse une deuxième fois dans ma méthode avec un nouveau paramètre pour ma requete de base de donnée et que j'aimerais ajouter du texte dans mon fichier texte et à chaque fois que je fais ça, il m'ecrase mon fichier texte.

Ma question est : Comment rajouter du texte à la fin d'un fichier texte ?

Merci d'avance

[Phifi]

Hello,

comment ouvres-tu ton fichier texte (il existe plusieurs méthodes) ? un peu de code serait le bienvenu

[unacsed]

je fais quelque chose du genre :

Code :

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

1
2
3
4
5
6
 
strFileName = App.Path & "\" & mstrOUTPUTDecompteXML
    intF = FreeFile
    Open strFileName For Output As #intF
    Print #intF, "<?xml version='1.0' encoding='utf-8' ?>"
   Close #intF

Je pense que l'erreur est dans le FreeFile mais comment le reprendre ? (il faut savoir qu'entre la première fois que j'ouvre le fichier et le seconde fois, j'en ouvrew 3 ou 4 autres)

[Delbeke]

Code :

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

1
2
3
4
5
6
strFileName = App.Path & "\" & mstrOUTPUTDecompteXML
    intF = FreeFile
    Open strFileName For Append As #intF
    Print #intF, "Ceci est ecrit a la fin du fichier en preservant ce qui y est déjà"
   Close #intF

[unacsed]

Cela fonctionne à merveille, merci infiniment

Nicolas Gendre

[sovo]

n'oubli pas le tag [RESOLU].