Problème avec "file_readbuf"

Je lis dans un fichier avec une double boucle pour Initialiser un tableau.

La première boucle tout marche mon tableau de Spr_Tableau$(1,1) à e Spr_Tableau$(1,15) est bien initialisé avec 15 "M".Pour le deuxième tour
de Spr_Tableau$(2,1) à Spr_Tableau$(2,15) en position Spr_Tableau$(2,1)
et Spr_Tableau$(2,2) j'ai pour chacun des indices de j% deux caractères parasites :

Code:: dim f$,a$,I%,J%
Dim I_Tableau_Max%,J_Tableau_Max%,CR$,LF$ ,CRLF$
dim Spr_Tableau$(50,50)

CR$=chr$(13)
Lf$=chr$(10)
CRLF$=CR$+LF$
width 0, 56
height 0 ,800

I_Tableau_Max%=15
J_Tableau_Max%=15

' Ouverture du fichier level.02
FILE_OPEN_READ 1,"level.01"
while file_eof (1) <> 1

for I%=1 to I_Tableau_Max% step 1
for J%=1 to J_Tableau_Max% step 1
file_readbuf 1,f$,1
IF f$<>CR$ or f$<>LF$ then Spr_Tableau$(I%,J%)=f$
print Spr_Tableau$(I%,J%),i%,J%
Next J%
Next I%
END_WHILE

file_close 1

Le fichier :

Code:: MMMMMMMMMMMMMMM
MPM M M
M M M MMMMMMM M
M M M M M
MMMMM M MMM M M
M M M M M M
M M MMM M M M M
M M M M M M
M MMMMMMM M M M
M M M M M
M M MMMMMMM M M
M M M M
MMM MMMMM MMM M
MX M
MMMMMMMMMMMMMMMM

Si quelqu'un a une idée un Très très grand merci What a Face

Je mense qu'il faut faire comme ceci:

Code:: dim f$,a$,I%,J%
Dim I_Tableau_Max%,J_Tableau_Max%,CR$,LF$ ,CRLF$
dim Spr_Tableau$(50,50)

CR$=chr$(13)
Lf$=chr$(10)
CRLF$=CR$+LF$
width 0, 56
height 0 ,800

I_Tableau_Max%=15
J_Tableau_Max%=15

' Ouverture du fichier level.02
FILE_OPEN_READ 1,"level.01"
while file_eof (1) <> 1

for I%=1 to I_Tableau_Max% step 1
for J%=1 to J_Tableau_Max% step 1
file_readbuf 1,f$,1
' IF f$<>CR$ or f$<>LF$ then Spr_Tableau$(I%,J%)=f$
print Spr_Tableau$(I%,J%),i%,J%
Next J%
file-readbuf 1,f$,2 : ' dépasser les CR LF
Next I%
END_WHILE

file_close 1

car sinon, à la fin de la ligne, tu n'élimines pas de CR LF, mais tu le chopes au début de la ligne suivante, ce qui décale ton tableau...

C'est super ça marche. Vraiment un grand Merci car j'ai sécher sur ce coup la
tout l'après-midi d'hier. Encore merci

Tu peux aussi remplacer la boucle interne par un file_readln, de la façon suivante:

Code:: dim f$,a$,I%,J%
Dim I_Tableau_Max%,J_Tableau_Max%,CR$,LF$ ,CRLF$
dim Spr_Tableau$(50,50)

CR$=chr$(13)
Lf$=chr$(10)
CRLF$=CR$+LF$
width 0, 56
height 0 ,800

I_Tableau_Max%=15
J_Tableau_Max%=15

' Ouverture du fichier level.02
FILE_OPEN_READ 1,"level.01"
while file_eof (1) <> 1

for I%=1 to I_Tableau_Max% step 1
file_readln 1,F$
for J%=1 to len(F$)
Spr_Tableau$(I%,J%) = mid$(F$,J%,1)
next i%
Next I%
END_WHILE

file_close 1

Cela élimine automatiquement les CR LF et s'adapte à la longueur de ligne...

C'est aussi gracieux Merci. As-tu remarquer que lorsque l'on charge un fond d'image dans un scene2d que le fond inter agi avec les sprites changement de couleur.
A+ What a Face

Je n'ai pas encore exploré cela, mais cela ne m'étonne pas vraiment; il y a encore certaines difficultés au niveau des couleurs, en particulier des couleurs du fond. Mais je pousserai plus loin pour avoir plus de précisions, avant de le signaler...

ça à mon avis c'est le labyrinthe...
lol!

Admin Nombre de messages : 2394 Date d'inscription : 28/05/2007

Le problème ayant été résolu et le déroulement d'un topic dans la fenêtre dernier sujet qui contient le mot "problème" me faisant sursauter, je verrouille le sujet.

» Probleme avec les objets ".3ds" v 0.9.17
» message avec "sprite_x_position(N)"
» Problème avec select case Probleme réglé merci
» Problème avec SearchStringList.
» Problème avec la 3D.