EXTRACTION DE CHAÎNE DANS UN FICHIER

Private Sub Form_Load()
'facultatif c'est juste pour avoir un prmier enregistrement au démarrage pour exemple
    f = FreeFile(1)
    Open "c:\cekonveut.txt" For Append As #f
    Write #f, "N[Monnom]P[monprenom]A[monage]" 'ce qu'on veut
    Close #f
end sub

Private Sub Command1_Click()
'écriture des données dans des fichiers
        f = FreeFile(1)
        Open "c:\cekonveut.txt" For Append As #f
        'écriture des valeurs à ajouter ds le fic autorisation. Ces valeurs sont contenues dans les champs texte
        Write #f, "N[" & Text1.Text & "]P[" & Text2.Text & "]A[" & Text3.Text & "]                     "
        Close #f
End Sub

private sub Command2_Click()
'code pour le traitement des données contenu ds le fichier autorisation
    f = FreeFile(1)
    Open "c:\cekonveut.txt" For Input As #f
    While Not EOF(f)
        Input #f, machaine
        i = 0
        j = 0
        k = 0        
        'récupération du nom
        Do While Len(machaine) > 10
            i = i + 1
            If Mid(machaine, i, 2) = "N[" Then
                j = i + 2
                machaine1 = Mid(machaine, j)
                k = 0
                Do While Len(machaine1) > 10
                    k = k + 1
                    If Mid(machaine1, k, 1) = "]" Then
                        nomfic = Mid(machaine1, 1, k - 1)
                        Exit Do
                    End If
                Loop
                Exit Do
            End If
        Loop
        
        'récupération du prénom
        Do While Len(machaine) > 10
            i = i + 1
            If Mid(machaine, i, 2) = "P[" Then
                j = i + 2
                machaine1 = Mid(machaine, j)
                k = 0
                Do While Len(machaine1) > 10
                    k = k + 1
                    If Mid(machaine1, k, 1) = "]" Then
                        prenomfic = Mid(machaine1, 1, k - 1)
                        Exit Do
                    End If
                Loop
                Exit Do
            End If
        Loop
        
        'récupération de l'age
        Do While Len(machaine) > 10
            i = i + 1
            If Mid(machaine, i, 2) = "A[" Then
                j = i + 2
                machaine1 = Mid(machaine, j)
                k = 0
                Do While Len(machaine1) > 5
                    k = k + 1
                    If Mid(machaine1, k, 1) = "]" Then
                        agefic = Mid(machaine1, 1, k - 1)
                        Exit Do
                    End If
                Loop
                Exit Do
            End If
        Loop
        Wend
    Close #f
            Text1.Text = nomfic
            Text2.Text = prenomfic
            Text3.Text = agefic
end sub