ecriture et lecture de fichier (binary)

Question

Bonjour, je developpe un editeur de niveau 3D pour un jeu sous visual basic 6, jai besoin de sauvegarder les donn&#233;es de cette facon dans le fichier (exemple) :

arbre   123,456,452 
             ou alors:
arbre 123   456   452

je veus recuperer ces valeur l'une apres l'autre !

jai essayer avec une ecriture en binaire comme ceci :

      open "fichier" for binary as #free
      Put #Free, , arbre &  vbtab & xposi & vbtab & yposi & vbtab & zposi & vbcrlf
      close #free

le resultat dans le fichier est le suivant : arbre 123   456   452

Mon probleme c'est que je n'arrive pas a recuperer les donn&#233;es que se soit avec la commande " open "fichier" for binary read as #free " pour lui la variable recuperer est vide !
          exemple :
                           Open "fichier" For Binary As #Free


                           Dim essai As String


                           Get #Free, 1, essai
                           Dim ll As String
                            ll = MsgBox(essai, vbOKOnly)
                           close #free
le message box est vide , jai remplacer le 1 dans la ligne get #free par autre chose voire rien, et cela ne donne toujour rien ! Pourqouiiiiiiiiiiii ?

Julien237 · Answer

Le probl&#232;me, c'est que dans ce mode, get remplit la variable pass&#233;e en
param&#232;tre jusqu'&#224; la fin de la zone m&#233;moire allou&#233;e &#224; cette variable.
(donc si c'est un byte il prend un octet, si c'est un single, il en
prend 4 etc...)

Mais le type String en vb n'a pas de taille pr&#233;d&#233;finie (enfin je
pense), mais tu peux le faire en ajoutant *n derri&#232;re la d&#233;claration de
la variable :



dim essai as string *len(str(arbre &  vbtab & xposi & vbtab & yposi & vbtab & zposi & vbcrlf))



Voila.



Julien.

crenaud76 · Answer

Pour une lecture dans un fichier binaire, il vaudrait mieux utiliser une string de longueur fixe !! Mais tu peux le faire avec un ficheir texte ...

open "fichier" for output as #free
      Print #Free, arbre &  vbtab & xposi & vbtab & yposi & vbtab & zposi 
close #free

Et pour la lecture
Dim Ligne As String, Infos() as string
Open "fichier" For Input As #Free
       Line Input #Free, Ligne
close #free
Infos = Split(Ligne,vbTab)
Dim i as long
For i = 0 to uBound(Infos)
       MsgBox Infos(i)
Next

Julien237 · Answer

Heu y'a peut-&#234;tre pas besoin d'utiliser str(), &#224; toi de voir...

nomadsoulnomad · Answer

yea merci d'avoir repondu si vite, je vait essayer vos methode merci beaucoup !!!!!

nomadsoulnomad · Answer

purer vous etes des genie sa marche !!!!!!!!!! merci a tous les 2 ! jai utiliser la methode de crenaud76 ! je vais pouvoir enfin faire mon editeur de niveau 3D !!! et dire que j'en est passer des heures a chercher, et qu'il suffisait simplement de demander..... ( quel c... je sui) ! 

   merci encore et peut etre a bientot !!!

jannoman · Answer

une autre solution est d'attribuer un num&#233;ro &#224; tes objets (ex : arbre = 1, mur = 2, ...) et de stocker juste le nombre
A+.
Thomas.

Ecriture et lecture de fichier (binary)

6 réponses

Discussions similaires