Bonjour, je suis en train de réaliser un jeu d'échec à deux joueurs et je peux sauver ma table de jeu en pleine partie et l'ouvrir un autre jour. Mon problème est celui-ci, je sauve la table, mais je ne sais pas comment sauver les noms des joueurs à la suite des 64 caractères (cases) de la table de jeu. Est-ce que je peux écrire directement à la 65e place dans mon fichier sans avoir la meme longueur de texte que les 64 autres places. Si non, comment pourrais-je faire pour sauver les 2 noms dans le meme fichier que la table de jeu. Merci beaucoup.

Ca manque de précision tout ça !
Tout dépend comment tu as déjà sauvegardé tes 64 cases.
Le plus simple serait de sauver tout ça dans un fichier texte classique :
-1- Tu définis la structure de ton fichier : Par exemple :
Ligne 1 : Nom joueur 1
Ligne 2 : Nom joueur 2
Ligne 3 : 1 chiffre pour désigner le joueur + une virgule + 1 chiffre pour désigner la case + une virgule + 1 chiffre pour désigner la pièce
Ligne 4 : Idem pour la pièce suivante ...

Il faut bien sûr que tu numérotes les cases (1 à 64) et que tu numérotes les pièces (exemple : pion=1, tour=2, cavalier=3 ...)

-2- Ecrire le fichier :
ff = FreeFile
Open "FichierSauve.txt" for Output as #ff
Print #ff, "NomJoueur1"
Print #ff, "NomJoueur2"
Print #ff, "1,18,3"
Print #ff, "1,19,1"
...
Close #ff
Bien sûr, les chiffres comme "1,18,3" sont écrit en fonction de l'appartenance, de l'emplacement et du type de pièce.
A toi de confectionner cette chaine et d'écrire Print #ff, Chaine à la place.

-3- Relire le fichier :
La même chose en sens inverse :
Dim X() as String
ff = FreeFile
Open "FichierSauve.txt" for Input as #ff
Line Input #ff, Joueur1
Line Input #ff, Joueur2
Do While Not Eof(ff)
Line Input #ff, Ligne
' Là, tu décortiques la Ligne pour ressortir les 3 chiffres :
X = Split(Ligne, ",") ' Transforme ligne en tableau
' Tu as maintenant :
' X(1) = N° du joueur
' X(2) = N° de la case
' X(3) = N° de la pièce
' A toi de les remettre sur ton échiquier
DoEvents
Loop
Close #ff

Bien sûr, le nom du fichier peut-être demandé à l'utilisateur à chaque demande de sauvegarde avec un DialogBox
Vala
Jack

Salut, hummm voici mon code que j'ai fait, les 64 chiffres s'écrivent bien dans le fichier, mais j'aimerais pouvoir écrire en accès direct deux noms à la suite de ces 64 chiffres.


Dim Car As String * 1
Dim Place As Integer
'Ouvre et écris la matrice
Open StrFich For Random As #3 Len = 1
Place = 1
For L = 1 To NbLignes
Car = ""
For C = 1 To NbColonnes
Select Case DsnCase(Place).Picture
Case imgVide
Car = "0"
Case imgNPion
Car = "1"
Case imgNTour
Car = "2"
Case imgNCavalier
Car = "3"
Case imgNFou
Car = "4"
Case imgNReine
Car = "5"
Case imgNRoi
Car = "6"
Case imgBPion
Car = "7"
Case imgBTour
Car = "8"
Case imgBCavalier
Car = "9"
Case imgBFou
Car = "a"
Case imgBReine
Car = "b"
Case imgBRoi
Car = "c"
End Select
Put #3, Place, Car
Place = Place + 1
Next C
Next L
Close #3

Merci de m'aider!!!

~Maleck~

As-tu lu ce que j'ai écrit ?
Ton fichier impose une longueur d'enregistrement de 1 : Tu ne pourras donc pas y écrire autre chose qu'un simple caractère.

Jack

Oui j'ai lu...
Serait-il possible de mettre les longueurs d'enregistrement à 10 caractères et rajouter 9 espaces à la suite des caractères qui représentent les pièces du jeu d'échec?

C'est une solution, compliquée, mais bon.
Si tu passes la longueur à 10, pas la peine de rajouter des espaces : la donnée est déjà formattée.

Jack

J'ai essayé avec des champs d'enregistrements de longueurs 10 et ca marche.... Merci!