Ecrire Lire des Structures dans des Fichiers Binaires
1 réponse
Craft
Bonjour,
Débutant en Windev mais habitué à Delphi, j'essai contre vent & marée
d'écrire/lire des structures Windev dans des fichiers binaires.
Un exemple :
i est un entier
nIdFic est un entier
sMouvement est une Structure
fPosition est un réel
fVitesse est un réel
fAcceleration est un réel
bSynchro est un booleen
fin
tTrajectoire est un tableau de 50 sMouvement
nIdFic = fOuvre("matrajectoire.bin",foCréation+foLectureEcriture)
SI nIdFic=-1 ALORS
Erreur("L'ouverture du fichier a échoué", ErreurInfo())
SINON
POUR i=1 A 50
fEcrit(nIdFic, tTrajectoire[i]) /// << il aime pas ca!
FIN
fFerme(nIdFic)
FIN
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Romuald.besset
Craft a écrit :
Bonjour,
Débutant en Windev mais habitué à Delphi, j'essai contre vent & marée d'écrire/lire des structures Windev dans des fichiers binaires.
Un exemple :
i est un entier nIdFic est un entier
sMouvement est une Structure fPosition est un réel fVitesse est un réel fAcceleration est un réel bSynchro est un booleen fin
tTrajectoire est un tableau de 50 sMouvement
nIdFic = fOuvre("matrajectoire.bin",foCréation+foLectureEcriture) SI nIdFic=-1 ALORS Erreur("L'ouverture du fichier a échoué", ErreurInfo()) SINON POUR i=1 A 50 fEcrit(nIdFic, tTrajectoire[i]) /// << il aime pas ca! FIN fFerme(nIdFic) FIN
Merci, d'avance !
Aidé moi à aimer Windev ;)
Bonjour,
Faute de pouvoir récupérer le contenu du tableau en direct, pourquoi ne pas avoir pensé à traiter son contenu...
cLigne est une chaine POUR i=1 A 50 cLigne=tTrajectoire[i]:fPosition+TAB+tTrajectoire[i]:fVitesse+TAB+... tTrajectoire[i]:fAcceleration+TAB+tTrajectoire[i]:bSynchro fEcrit(nIdFic, cLigne) /// << il aime pas ca! FIN
Voila ! ++ R&B WDForge.org
Craft a écrit :
Bonjour,
Débutant en Windev mais habitué à Delphi, j'essai contre vent & marée
d'écrire/lire des structures Windev dans des fichiers binaires.
Un exemple :
i est un entier
nIdFic est un entier
sMouvement est une Structure
fPosition est un réel
fVitesse est un réel
fAcceleration est un réel
bSynchro est un booleen
fin
tTrajectoire est un tableau de 50 sMouvement
nIdFic = fOuvre("matrajectoire.bin",foCréation+foLectureEcriture)
SI nIdFic=-1 ALORS
Erreur("L'ouverture du fichier a échoué", ErreurInfo())
SINON
POUR i=1 A 50
fEcrit(nIdFic, tTrajectoire[i]) /// << il aime pas ca!
FIN
fFerme(nIdFic)
FIN
Merci, d'avance !
Aidé moi à aimer Windev ;)
Bonjour,
Faute de pouvoir récupérer le contenu du tableau en direct, pourquoi ne
pas avoir pensé à traiter son contenu...
cLigne est une chaine
POUR i=1 A 50
cLigne=tTrajectoire[i]:fPosition+TAB+tTrajectoire[i]:fVitesse+TAB+...
tTrajectoire[i]:fAcceleration+TAB+tTrajectoire[i]:bSynchro
fEcrit(nIdFic, cLigne) /// << il aime pas ca!
FIN
Débutant en Windev mais habitué à Delphi, j'essai contre vent & marée d'écrire/lire des structures Windev dans des fichiers binaires.
Un exemple :
i est un entier nIdFic est un entier
sMouvement est une Structure fPosition est un réel fVitesse est un réel fAcceleration est un réel bSynchro est un booleen fin
tTrajectoire est un tableau de 50 sMouvement
nIdFic = fOuvre("matrajectoire.bin",foCréation+foLectureEcriture) SI nIdFic=-1 ALORS Erreur("L'ouverture du fichier a échoué", ErreurInfo()) SINON POUR i=1 A 50 fEcrit(nIdFic, tTrajectoire[i]) /// << il aime pas ca! FIN fFerme(nIdFic) FIN
Merci, d'avance !
Aidé moi à aimer Windev ;)
Bonjour,
Faute de pouvoir récupérer le contenu du tableau en direct, pourquoi ne pas avoir pensé à traiter son contenu...
cLigne est une chaine POUR i=1 A 50 cLigne=tTrajectoire[i]:fPosition+TAB+tTrajectoire[i]:fVitesse+TAB+... tTrajectoire[i]:fAcceleration+TAB+tTrajectoire[i]:bSynchro fEcrit(nIdFic, cLigne) /// << il aime pas ca! FIN