Extraction de chaîne dans un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 119 fois - Téléchargée 43 fois

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

Ajouter un commentaire

Commentaires

Messages postés
13
Date d'inscription
vendredi 19 juillet 2002
Statut
Membre
Dernière intervention
9 mai 2005

salut
Messages postés
33
Date d'inscription
mercredi 18 octobre 2000
Statut
Membre
Dernière intervention
4 janvier 2010

salut
Messages postés
13
Date d'inscription
vendredi 19 juillet 2002
Statut
Membre
Dernière intervention
9 mai 2005

Des questions ?
Demander, je répondrais (si je peut :-))

Philobedo

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.