1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Extraction de chaîne dans un fichier

Extraction de chaîne dans un fichier

0/5 (3 avis)

Snippet vu 3 315 fois - Téléchargée 46 fois

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

Ajouter un commentaire Commentaires
cs_philobedo Messages postés 13 Date d'inscription vendredi 19 juillet 2002 Statut Membre Dernière intervention 9 mai 2005
12 août 2002 à 20:09
salut
cs_mogador Messages postés 33 Date d'inscription mercredi 18 octobre 2000 Statut Membre Dernière intervention 4 janvier 2010
9 août 2002 à 20:26
salut
cs_philobedo Messages postés 13 Date d'inscription vendredi 19 juillet 2002 Statut Membre Dernière intervention 9 mai 2005
25 juil. 2002 à 11:55
Des questions ?
Demander, je répondrais (si je peut :-))

Philobedo
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)