save tableau

[bebou007]

salut a tous je suis nouveau sur le forum.
voila je programme avec dark basic et depuis peut avec pure basic.
j'ai une question existe t'il une commande pour enregistrer un tableau?
sous dark basic il en existe une seulement sous pure j'ai cherche sur le forum comme dans l'aide je n'y et rien trouver.
si sa existe pas je ferai un fonction qui enregistre seulement je demande pour pas me casser la tete alors qu'il existe une commande merci.

[tme007]

Malheureusement non ... il faut créer une procédure dédicacée.

[comtois]

si tu peux
exemple

Code : Tout sélectionner

#Xmax=20
#Ymax=15
Dim Map(#Xmax,#Ymax)
WriteData(@Map(), 4*#Xmax*#Zmax)

et pour lire

Code : Tout sélectionner

ReadData(@Map(), 4*#Xmax*#Zmax)

bien sûr un fichier est ouvert avant

[dlolo]

Code : Tout sélectionner

WriteData(@Map(), 4*#Xmax*#Zmax)

et pour lire

Code : Tout sélectionner

ReadData(@Map(), 4*#Xmax*#Zmax)

Je pense qu'il faut lire

Code : Tout sélectionner

WriteData(@Map(), 4*#Xmax*#Ymax)

et

Code : Tout sélectionner

ReadData(@Map(), 4*#Xmax*#Ymax)

non ?

[bebou007]

ok merci a tous les deux je ferais des teste pour voire.
j'ai un autre probleme maintenant voila j'ai une base de donne et je veut ajouter une nouvelle entre.
donc j'initialise la base de donne puis j'ouvre la base de donner et je me sert de DatabaseQuery(INSERT INTO passe VALUES('','bebou007','mdp'))
mais le compilateur me dit qu'il n'existe pas de fonction VALUES comment faire pour que le compilateur iniore sa vue que c'est une command sql?
merci

[dlolo]

dsl peut pas te répondre...

[bebou007]

re en fait j'ai trouver dout sa venais j'avais mit sa

DatabaseQuery(INSERT INTO passe VALUES('','bebou007','mdp'))

il manquer un " au debut et a la fin se qui donne sa

DatabaseQuery("INSERT INTO passe VALUES('','bebou007','mdp')")

maintenant la commande fonctionne pas et je recupere l erreur il me dit
type de donne incompatible dasn l'expression du critere.
voila si quelqun sait dout sa vien merci

[bebou007]

bon ben plus la peine j'ai trouver en fait sur un site php on met sa

"INSERT INTO passe VALUES('','bebou007','mdp')" la premier entre on met '' pour montrer que c'est en auto incrementation sauf que en pure faut metre '0' et voila sa marcher merci quand meme.

[bebou007]

salut je vien de teste pour enregistrer un tableau et sa marche pas du tous
voila je source

Code : Tout sélectionner

CreateFile( 0, "john.tab")

Dim teste$(10,10)
teste$(0,0)="john"
teste$(0,1)="seguier"

WriteData(@teste$(),4*10*10)

voila pour enregistrer
en voila pour ouvrir

Code : Tout sélectionner

OpenFile(0,"john.tab")
Dim teste$(10,10)
ReadData(@teste$(), 4*10*10)
MessageRequester("tableau",teste$(0,0),0)

voila donc si quelqun vois ou je me suis planter ou me dire pourquoi sa marche pas merci

[tme007]

C'est bien ce que je disais ... il faut une procédure dédicacée et il n'y a pas de commandes directe ...

[bebou007]

ok merci

[comtois]

je voulais préciser que ça ne marchait pas pour les string , tu as pu t'en rendre compte tout seul

mais ça fonctionne pour les nombres.

[comtois]

Code : Tout sélectionner

WriteData(@Map(), 4*#Xmax*#Zmax)

et pour lire

Code : Tout sélectionner

ReadData(@Map(), 4*#Xmax*#Zmax)

Je pense qu'il faut lire

Code : Tout sélectionner

WriteData(@Map(), 4*#Xmax*#Ymax)

et

Code : Tout sélectionner

ReadData(@Map(), 4*#Xmax*#Ymax)

non ?

oui , j'ai fait un copier coller d'un de mes codes 3D , et j'ai voulu changer les repères pour l'exemple , mais j'ai oublié quelques trucs au passage

[bebou007]

ok merci sa me serviras quand meme si je doit enregistrer des nombre d'un tableau dans un fichier.
merci quand meme.

[hardy]

Une précision : pour les tableaux de chaînes, dans la zone mémoire commençant à @tableau(), tu as les adresses des chaînes, pas les chaînes elles-mêmes.