Ecriture :
Put, instruction, exemple
Cet exemple utilise l'instruction Put pour écrire des données dans un fichier. Cinq enregistrements de type Record défini par l'utilisateur sont écrits dans le fichier.
Type Record ' Désigne un type défini par l'utilisateur.
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record, RecordNumber ' Déclare les variables.
' Ouvre le fichier en accès aléatoire.
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
For RecordNumber = 1 To 5 ' Effectue la boucle 5 fois.
MyRecord.ID = RecordNumber ' Définit l'identificateur.
MyRecord.Name = "Mon nom" & RecordNumber ' Crée une chaîne.
' Écrit l'enregistrement dans le fichier.
Put #1, RecordNumber, MyRecord
Next RecordNumber
Close #1 ' Ferme le fichier.
Lecture :
Type Record ' Désigne un type défini par l'utilisateur.
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record, Position ' Déclare les variables.
' Ouvre l'exemple de fichier en accès aléatoire.
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
' Lit l'exemple de fichier à l'aide de l'instruction Get.
Position = 3 ' Définit le numéro d'enregistrement.
Get #1, Position, MyRecord ' Lit le troisième enregistrement.
Close #1 ' Ferme le fichier.
:-p [mailto:cyberscorp2004@msn.com MSN] :big) [mailto:frop01@yahoo.fr YAHOO] >:)
Membre du club CodeS-SourceS