VBA ajouter une ligne a un fichier txt

Question

hello!! je voudrais rajouter une ligne dans un fichier, voil&#224; ma proc&#233;dure :




Private Sub Sig01_Change()




Open "C:\Documents and Settings\donnees.txt" For Output As #1


Print #1, "blablabla&#133;", Ligne$; 47


Print #1, "Sig01" & Str(Val(Sig01.Text)), Ligne$; 48


Close #1


End Sub


&#145;L&#224; c&#146;est bon les deux lignes sont &#233;crites dans le fichier donnees&#146;


blablabla&#133;47


Sig01 20048




puis je compl&#232;te ma deuxi&#232;me textbox


Private Sub Sig02_Change()




Open "C:\Documents and Settings\donnees.txt" For Output As #1


Print #1, "Sig02" & Str(Val(Sig02.Text)), Ligne$; 49


Close #1


Et l&#224; je ne retrouve mon fichier qu&#146;avec la ligne 


Sig02 20049




Comment doit-on faire pour que &#231;a s&#146;ajoute au m&#234;me fichier, et ainsi avoir les trois lignes &#224; la suite ?

ScSami · Accepted Answer

Dit Lupus, dit en plus...
"Append" permet de reprendre le fichier &#224; la fin... d'accord. Mais saut-il une ligne automatiquement (puisque la fin de la derni&#232;re ligne reste sur cette ligne!) ou alors se place-t-il &#224; la fin de la derni&#232;re ligne ?

Enjoy 

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

cs_CanisLupus · Answer

Salut,

Tu remplaces Output par Append dans l'instruction Open.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

ScSami, non.
Append de l'instruction Open ajoute simplement ce que tu veux ajouter &#224; ton fichier texte. Tout d&#233;pend de comment le dernier enreg se termine.
S'il se termine par un vbcrlf (chr(13) & chr(10) - 0D0A en hexa) le nouvel enreg sera ajout&#233; sur une nouvelle ligne. Sinon, &#224; la suite de la derni&#232;re ligne.
Si c'est toi qui a cr&#233;&#233; le fichier, c'est &#224; toi de g&#233;rer &#231;a :
Print #x, ligne --> ajoute automatiquement un vbcrlf (fin d'enreg)
Print #x, ligne ; --> attend une suite donc pas de vbcrlf et c'est &#224; toi de clore par un simple Print #x, pour ajouter un vbcrlf.
Sinon, il te faut tester la fin d'enreg, par exemple :

Function FinFichierOK(fichier As String) As Boolean
Dim s As String
Dim n As Integer


  n = FreeFile
  Open fichier For Input As #n
    s = Input(LOF(n), #n)
  Close #n

  'l&#224;, tu choisis entre mid et right sachant qu'en vb.net, seul le mid est accept&#233;  'If Mid(s, Len(s) - 1, 2) vbCrLf Then FinFichierOK True  If Right(s, 2) vbCrLf Then FinFichierOK True


End Function

A utiliser comme suit :

Dim test As Boolean
  
  test = FinFichierOK(TonFichier)
  
  Open TonFichier For Append As #1
    If test = False Then Print #1,
    '...
  Close #1

Bonne prog

------
Dresseur de puces, .... normal pour un loup  !?

chaudier37 · Answer

Private Sub Sig01_Change()






Open "C:\Documents and Settings\donnees.txt" For Append As #1


Print #1, "blablabla…", Ligne$; 47



Print #1, "Sig01" & Str(Val(Sig01.Text)), Ligne$; 48



Close #1



End Sub

ucfoutu · Answer

Ouais...
Je ne pleurerai pas le jour où l'on interdira d'accès (pour au moins 3 mois) ceux qui ne passent ici que (comme les chiens au pied d'un arbre, les taggeurs en tous genres, les putois un peu partout, etc ...) n'interviennent manifestement ici que pour laisser une trace de leur ô combien "utile" passage !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

VBA ajouter une ligne a un fichier txt

5 réponses

Discussions similaires