écrire à la 1ère ligne d'un fichier.

Signaler
Messages postés
109
Date d'inscription
dimanche 23 décembre 2001
Statut
Membre
Dernière intervention
26 octobre 2007
-
Messages postés
93
Date d'inscription
lundi 8 avril 2002
Statut
Membre
Dernière intervention
22 juillet 2006
-
Voilà
soit un fichier texte.text

contenant le text:

a
b
c

je veux écrire la lettre d avant le a.

Comment faire?

Open App.Path & "\texte.txt" For Append As #1
Write #1, "debut"
Close #1

mais append va à la dernière ligne alors, je sais pas...

Merci d'avance...

1 réponse

Messages postés
93
Date d'inscription
lundi 8 avril 2002
Statut
Membre
Dernière intervention
22 juillet 2006

Voilà une piste de travail. Projet sous VB5, ne nécessite qu'une form et un fichier nommé test.txt contenant des données (ton fichier texte.txt)

Private Sub Form_Load()
'----- Le processus est relativement simple, dans un premier temps
'----- on ouvre un fichier dans lequel on place les données qui devront
'----- figurer au début. Puis on ouvre l'ancien fichier que l'on merge au
'----- premier (ses données seront placées à la fin). On efface le second
'----- fichier, on renomme le premier en lui donnant le nom du second fichier.

'----- Déclaration des variables locales
    Dim NumFicDest As Long
    Dim NumFicSrc As Long
    Dim MonFic As String
    Dim MonFicDest As String
    Dim Msg As String

'----- Initialisation des variables locales
    MonFic = "c:\temp\Test1.txt"
    MonFicDest = "c:\temp\test.txt"

'----- Ouverture des fichiers
    NumFicSrc = FreeFile
    Open MonFic For Output As NumFicSrc '---> le fichier à renommer
    NumFicDest = FreeFile
    Open MonFicDest For Input As NumFicDest '---> le fichier existant

'----- Ecriture dans les fichiers
    '---> On ajoute les données qui doivent figurer au début
    Print #NumFicSrc, "Début"
    '---> A partir de là, on merge les données de l'ancien fichier dans le nouveau
    Do While Not (EOF(NumFicDest))
        Line Input #NumFicDest, Msg
        Print #NumFicSrc, Msg
    Loop

'----- Fermeture des fichiers
Close NumFicSrc
Close NumFicDest

'----- Manipulation des fichiers
Kill MonFicDest
Name MonFic As MonFicDest

End Sub


@+ :)
0