Discussion :

[Yoshi-07]

Bonjour à tous, cela fait quelques temps , que je travaille sur un programme qui simulerait l'accès directe à un fichier.
Pour le moment, je n'ai réussi qu'à ouvrir le fichier, afficher quelques lignes et indiquer qu'un certains caractère était le marqueur de fin.
Mais la je commence à péter une durite xD
Je n'arrive pas du tout à utiliser les fonctions Read et Write.

Donc si vous avez une solution en stock, je suis preneur.
Je suis co très souvent , donc si vous voulez des précisions sur cette grosse épine qui est dans mon pied, je suis disponible



Cordialement
Yoshi

[Invité]

Bonjour.

Je suppose que tu utilise la bibliothèque générique Ada.Direct_IO que tu as du instancier avec un type de ton chois.
En suite pour accéder directement à un enregistrement en particulier tu doit utiliser les paramètre From et To respectivement pour les procedure Read et Write dont voici les prototypes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   procedure Read
     (File : File_Type;
      Item : out Element_Type;
      From : Positive_Count);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
   procedure Write
     (File : File_Type;
      Item : Element_Type;
      To   : Positive_Count);

Quelles sont tes difficultés.. Peux-tu nous montrer le bout de code concerné ?

[Yoshi-07]

Mon soucis est que je ne ne suis vraiment pas douer avec les packages, et je ne vois pas quel code va dans quel partie et comment l'appeler :s

Mon code est très moche, j'ai bidouiller quelques choses mais c'est pas le programme attendu :/
Je te l'envoie par mp si tu veux

[Invité]

Mon soucis est que je ne ne suis vraiment pas douer avec les packages, et je ne vois pas quel code va dans quel partie et comment l'appeler :s

Mon code est très moche, j'ai bidouiller quelques choses mais c'est pas le programme attendu :/
Je te l'envoie par mp si tu veux

Comme tu veux !

[Invité]

Ah, mais tu peux pas faire ça comme ça.
Pour écrire dans un fichier, il est nécessaire d'ouvrir le fichier en mode écriture.
Et pour lire en mode lecture.
Comme le mode In_out n'est pas disponible avec la bibliothèque Ada .Text_IO tu est obliger d'ouvrir en In_File pour lire, et en Out_File pour écrire.
Donc, ton programme est mal Conçus dans sont ensemble.

[Invité]

A moins que je ne connaisse pas la puissance de reset, qui semblerait, d'après ton utilisation prendre un mode, c'est à dire que tu aurais simplement oublié de faire un reset(File, out) avant d'écrire... Entre autre comme par exemple l'utilisation de ta première variable Line_Length qui n'est pas déclaré.

[Yoshi-07]

Pourrais tu alors me mettre sur la voie ?
Car la je suis vraiment paumé

[Invité]

Ca dépend de ce à quoi tu souhaite parvenir.

Je ne le sais toujours pas.

[Yoshi-07]

Mon but est de :
Pouvoir ouvrir un fichier
Pouvoir le lire le fichier ( en tenant compte de l'index)
Pouvoir ecrire dans le fichier ( en tenant compte de l'index)
Et fermer le programme.

[Invité]

Mon but est de :
Pouvoir ouvrir un fichier
Pouvoir le lire le fichier ( en tenant compte de l'index)
Pouvoir ecrire dans le fichier ( en tenant compte de l'index)
Et fermer le programme.

je te propose alors de faire un tableau en 2 d dans lequel tu charge ton fichier et dans lequel tu te déplace à volonté pour lire et écrire, puis sauvegarder puis fermer le fichier.

[Yoshi-07]

Pourquoi pas, tu t'y connais plus que moi, donc je vais te faire confiance ^^ Et accepter ta proposition

[Invité]

Pourquoi pas, tu t'y connais plus que moi, donc je vais te faire confiance ^^ Et accepter ta proposition

Si tu as des difficultés, tant que je peux, je t'aiderai.

[Yoshi-07]

Déja comme crée tu un tableau 2D, comment le déclaré, l'utilisé ?
Car je ne connais que le tableau simple mwa

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
-- Déclaration d'un tableau non contraint à 2 dimensions --
 
-- Déclaration du type T_Tableau_2D.
 type T_Tableau_2D is (positive range <>, positive range <>);
 
--Déclaration des contraintes.
 Line_Length : constant positive := 256; -- Par exemple.
 Page_Length : constant positive := 1204; - Par exemple.
-- Déclaration de Mon_Tableau contraint et initialisé.
 Mon_Tableau_2D : T_Tableau_2D(1..Line_Length, 1..Page_Length) := 
    (others => character'val(32), others => characters'val(32));

Ou alors...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
-- Déclaration d'un tableau contraint à 2 dimensions --
 
--Déclaration des contraintes.
 Line_Length : constant positive := 256; -- Par exemple.
 Page_Length : constant positive := 1204; - Par exemple.
 
-- Déclaration de Mon_Tableau contraint et initialisé.
 type T_Tableau_2D is (1..Line_Length, 1..Page_Length);
 Mon_Tableau_2D : T_Tableau_2D := 
    (others => character'val(32), others => characters'val(32));

Character'val(32) est le caractère 'espace'.

Si tu veux pas trop te casser la tête par la suite, tu peux faire pile poil un tableau au dimensions de ton terminal.

[Invité]

Pardon, enfin j'espère que tu aura corrigé par toi même...
J'ai oublier le type du contenu du tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
-- Déclaration d'un tableau non contraint à 2 dimensions --
 
-- Déclaration du type T_Tableau_2D.
 type T_Tableau_2D is (positive range <>, positive range <>) of character;
  - Si toutefois tu veux des characters. Tu peux aussi mettre des Wide_Characters.
 
--Déclaration des contraintes.
 Line_Length : constant positive := 256; -- Par exemple.
 Page_Length : constant positive := 1204; - Par exemple.
-- Déclaration de Mon_Tableau contraint et initialisé.
 Mon_Tableau_2D : T_Tableau_2D(1..Line_Length, 1..Page_Length) := 
    (others => character'val(32), others => characters'val(32));

[Yoshi-07]

A quoi sert un tableau 2D ?
Il peut accueillir du text ?
Explique un peu plus en détails si possible

[Invité]

A quoi sert un tableau 2D ?
Il peut accueillir du text ?
Explique un peu plus en détails si possible

Trois messages au dessus.

je te propose alors de faire un tableau en 2 d dans lequel tu charge ton fichier et dans lequel tu te déplace à volonté pour lire et écrire, puis sauvegarder puis fermer le fichier.

[Yoshi-07]

Oui mais comment tu charge le fichier dans ton tableau ?
Et comment tu fais pour écrire dans le tableau ? tu crée un nouvelle case ?

[Invité]

Tu peux lire caractère par caractère et mettre ceux-ci dans le tableau l'un après l'autre, ou lire une chaîne de caractères qui est un tableau de 1 dimension de caractères et mettre la chaîne d'un coup dans le tableau.

Pour écrire dans un tableau tu à deux index puisque qu'il est de dimension deux,
index_line : poositive := 1;
index_page : positive := 1;

--Pour un caractère --
Mon_Tableau_2_D(index_Line, index_Page) := Le_Caractère;

ou

-- Pour une chaîne --
Mon_Tableau_2_D(index_line..index_line+(chaîne_length-1), index_page) := chaîne(1..chaine_length);

[Yoshi-07]

Tu n'aurais pas un exemple de prog pour me montrer ?
Car je vois pas comment ca fonctionne avec deux dimensions, et quel fonctions utilise tu pour charger les Chaines de caractères du fichier vers le tableau.