enregistrer une structure dans un fichierRésolu

Question

Bonjour,

je cherche &#224; lire/ecrire une structure personnalis&#233;e dans un fichier en acc&#232;s s&#233;quentiel.
Certes, ma structure contient des types non limit&#233;s mais cela ne devrait pas poser de probl&#232;me dans un acc&#232;s s&#233;quentiel ?

Alors voil&#224; comment je fais (pour l'&#233;criture) :

' fonction freeFile renvoie le prochain n&#176; de fichier libre (obligatoire)
iNf = FreeFile
' ouverture en &#233;criture (avec &#233;crasement) du fichier s&#233;quentiel
Open "donnees.rem" For Output As #iNf



'&#233;criture s&#233;quentielle
Print #iNf, enreg


Close #iNf

----
enreg contient une chaine et un entier
iNf d&#233;clar&#233; en tant qu'integer

il me renvoie l'erreur : "type incompatible"

S'il vous plait ? Merci.

------------------

qu'est-ce que je fais un stage en VB alors que j'en ai jamais fait &#224; l'&#233;cole ?...

remi_en_stage · Accepted Answer

Non, &#231;a ne suffit pas &#224; r&#233;soudre mon probl&#232;me, en revanche on m'a conseill&#233; d'utiliser le mode Random et les commandes Put et Get et &#231;a marche asez bien en fait.

------------------
qu'est-ce que je fais un stage en VB alors que j'en ai jamais fait &#224; l'&#233;cole ?...

jpleroisse · Answer

Je viens d'essayer le code, il faut indiquer le chemimn complet, sinon cela provoque une erreur.
Private Sub Command1_Click()
Dim iNF As Integer, enreg
iNF = FreeFile
' ouverture en &#233;criture (avec &#233;crasement) du fichier s&#233;quentiel
Open "c:\donnees.rem" For Output As #iNF
enreg = "Bonjour, 124"
'&#233;criture s&#233;quentielle
Print #iNF, enreg
Close #iNF
End Sub

jpleroisse

Enregistrer une structure dans un fichier

2 réponses

Discussions similaires