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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question