Fichier à accès séquentiel, binaire ou aléatoire?

Question

Je débute en VB6 et j'aimerai créer des fichiers contenant plusieurs parties : une partie information (nom, prénom...), une partie commentaires (de quelques centaines de caractère) et une partie contenant les coordonnées d'environ 1000 points d'une courbe. C'est pour faire avancer la médecine, faite un geste! Merci d'avance...

ShareVB · Answer

salut

tu peux créer une strucuture du genre:

type Point
X as long
Y as long
end type

type Azerty
Nom as string
Prenom as String
Comment as string
Courbe(1000) as Point
end type

ensuite pour ecrire dans un fichier :
dim az as azerty

open fichier$ for random as #1 len(az)
put #1,1,az 'pour écrire
get #1,1,az 'pour lire
close #1

cela doit à peu près marcher

voilà

ShareVB

goguys · Answer

Merci mais j'avai fini par trouver mon bonheur sur le site. Voilà ce que j'ai mis:

  Dim Num As Integer
  Num = FreeFile
  Open sFile For Random As #Num
  'On sauvegarde toutes les données patient
  Put #Num, , D.Témoin
  Put #Num, , D.Nom
  Put #Num, , D.Prénom
  Put #Num, , D.DateNaissance
  Put #Num, , D.Sexe
  Put #Num, , D.Opérateur
  Put #Num, , D.DateAcq
  Put #Num, , D.Heure
  Put #Num, , D.Compléments
  Dim i, j As Integer
  For i = 1 To 4
    For j = 1 To 400
      Put #Num, , D.Courbes(i, j)
    Next
  Next
  Put #Num, , D.InfosCourbes1
  Put #Num, , D.InfosCourbes2
  Put #Num, , D.InfosCourbes3
  Put #Num, , D.InfosCourbes4
  For i = 1 To 4
    For j = 1 To 8
      Put #Num, , D.Paramètres(i, j)
    Next
  Next
  Put #Num, , D.InstantAgrégation
  Put #Num, , D.InstantSurface
  Put #Num, , D.Durée
  Put #Num, , D.PasAcquisition
  Put #Num, , D.t_Début
  Put #Num, , D.t_Fin
  Put #Num, , D.t_Pointé
  Put #Num, , D.Vitesse
  For i = 1 To 2
    For j = 1 To 4
      Put #Num, , D.Curseur(i, j)
      Put #Num, , D.CurseurLatence(i, j)
    Next
  Next
  For i = 1 To 4
    Put #Num, , D.PointsVéloAuto(i)
    Put #Num, , D.PointsVéloManu(i)
  Next

Sympa comme tout, en plus ça marche!
Allez, encore merci...

cs_fred31300 · Answer

C'est bien plus claire, et logique de passer par une définition de structures  :)

Fichier à accès séquentiel, binaire ou aléatoire?

3 réponses

Discussions similaires