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