.txt : Ouvrir / lire /modifier / ecrire / ...Résolu

Question

Salut,
je vais passer pour un gros d&#233;butant mais bon.
Voil&#224;,
je voudrais savoir comment on ouvre un fichier pour lire puis pour &#233;crire &#224; une ligne que je connais (9e ligne par exemple). 
Merci d'avance

econs · Accepted Answer

Pour &#233;crire &#224; la neuvi&#232;me ligne d'un fichier, tu as deux possibilit&#233;s :





Tu parcours toutes les lignes de ton fichier, tu les enregistres dans
un tableau. Puis tu r&#233;&#233;cris dans le fichier les 8 premi&#232;res lignes de
ton tableau, tu &#233;cris ensuite ta nouvelle ligne, puis toutes les lignes
restantes de ton tableau (&#224; partir de la dixi&#232;me).



Tu ouvres ton fichier de d&#233;part en lecture. Tu ouvres un deuxi&#232;me
fichier en &#233;criture. Tu lis 8 lignes du premier, que tu recopies dans
le second. Tu &#233;cris ta nouvelle ligne dans le second. Et tu continues
l'op&#233;ration pr&#233;c&#233;dente (lecture dans le premier, r&#233;&#233;criture dans le
second).



Voici un exemple de la 2&#232;me solution :





Dim numFichier1 As Long

Dim numFichier2 As Long

Dim sTemp As String

Dim nbLines As Long



    numFichier1 = FreeFile

    Open "C:	oto.txt" For Input As #numFichier1

    

        '   On cr&#233;e un fichier temporaire pour r&#233;&#233;crire les donn&#233;es.

        numFichier2 = FreeFile

        Open "C:	emp.txt" For Output As #numFichier2

            nbLines = 0

            While Not EOF(numFichier1)

                Line Input #numFichier1, sTemp

                nbLines = nbLines + 1

                If nbLines = 9 Then

                   
Print #numFichier2, "MA NOUVELLE LIGNE ICI"

                Else

                   
Print #numFichier2, sTemp

                End If

            Wend

        Close #numFichier2

        

    Close #numFichier1



    '   On kille l'ancien

    Kill "C:	oto.txt"

    '   0n renomme le temporaire avec le nom de l'ancien.

    Name "C:	emp.txt" As "C:	oto.txt"


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_Richard92 · Answer

merci et pour lire je fais coment ?

econs · Answer

Pour la lecture : Dim numFichier1 As Long Dim sTemp As String numFichier1 = FreeFile Open "C: oto.txt" For Input As #numFichier1 While Not EOF(numFichier1) Line Input #numFichier1, sTemp ' sTemp contient alors la ligne lue. ' A toi d'en faire ce que tu veux. Wend Close #numFichier1 Manu ------------------------------------------- Une question bien posée, c'est une chance de réponse bien adaptée.

cs_Richard92 · Answer

atta bizarre l&#224; il manque pas un bout ?

econs · Answer

Non, tout est l&#224;. Cette s&#233;quence de ligne parcours toutes les lignes du fichier "C:	oto.txt"


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

jpleroisse · Answer

Bonsoir,

Tu places un TextBox(propri&#233;t&#233; Multiligne &#224; True) et apr&#232;s Wend dans le code de econs, tu mets Text1.Text = sTemp



Si tu veux lire le fichier complet, tu peux faire ceci.



Private Sub Command1_Click()

 Dim fs, f

    Dim texte

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.OpenTextFile("C:	oto.txt", 1, False, 0)

    texte = f.Readall

    f.Close

    Text1.Text = texte

    End Sub



jpleroisse

cs_Richard92 · Answer

merci econs et  jpleroisse.
j'accepte la r&#233;ponse de econs puisque cest son code mais un gros merci &#224; toi aussi  jpleroisse

.txt : Ouvrir / lire /modifier / ecrire / ...

7 réponses

Discussions similaires