Extraction de chaîne dans un fichier

Commenter

Contenu du snippet

Ce code effectue l'extraction dans un fichier à l'aide de balise
Il faut 3 TextBox, un bouton ajout(command1) et un bouton affichage (command2) Enfin il faut des labels associé au textbox (text1 le nom, text2 le prénom et text3 l'age).

Source / Exemple : 


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

Conclusion :


Voila!
Bonne prog!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_philobedo)