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!
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.