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

Question

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 & "	exte.txt" For Append As #1
Write #1, "debut"
Close #1

mais append va à la dernière ligne alors, je sais pas... 

Merci d'avance...

DragonDo · Answer

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:	emp\Test1.txt"
    MonFicDest = "c:	emp	est.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


@+  :)

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

1 réponse

Discussions similaires