Transformer un fichier texte en matrice

Version imprimable

29/04/2011, 17h04
Devonkmm

Transformer un fichier texte en matrice
Salut à tous,

Il y a dans mon TD un exo qui me demande de transformer un fichier texte comprenant des nombres en une matrice (chaque case de la matrice comprenant exactement un caractère du fichier).

Le fichier texte en question est du genre :
Code:

1 2 3 041 650 352
que je dois transformer en une matrice dont la case (ligne=1,colonne=1) contient 0, la case (ligne=1,colonne=2) contient 4, la case (ligne=2,colonne=2) contient 5 etc.

Seulement, je ne vois absolument pas comment séparer les différents caractères de mon fichier texte :cry: . Merci d'avance pour votre aide :)
(le code devant être valable pour tous les autres fichiers textes dans le même format ^^).
30/04/2011, 11h05
M.Dlb

Tu peux faire quelque chose de générique, peu importe le nombre de chiffres par lignes/colonnes (tu auras néanmoins un maximum, si tu utilises des tableaux statiques, déclarés lors de création du programme).

Le principe: lire ligne par ligne avec readln, puis parcourir chaque ligne lue caractère par caractère. Ceci avec des boucles while :)
30/04/2011, 15h13
Modulpro

Salut,

Petite rappel pour répondre à ton problème :

Citation:

Seulement, je ne vois absolument pas comment séparer les différents caractères de mon fichier texte

L'accès au nième caractère d'une variable "chaine" de type String se fait grâce à la syntaxe suivante :

Code:

chaine[n]

où n est un entier.
Voila, et bonne chance.

Merci pour vos réponses :ccool:

Voici ce que j'ai concoté :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 program texte_matrice; var F : text; t_matrice : array[1..3,1..3] of char; i,j : integer; ligne : string; begin assign(F,'nombres.txt'); reset(F); for i:=1 to 3 do begin readln(F,ligne); for j:=1 to 3 do t_matrice[i][j]:=ligne[j]; end; close(F); end.
Pourriez-vous me dire si c'est bon ? (Je vous demande ça parce qu'en fait je sais pas comment afficher la matrice) :mrgreen: Merci d'avance !

30/04/2011, 19h13
M.Dlb

Oui ca me parait bon, mais pense à indenter ton code, ca aide à la relecture.

Pour l'affichage, tu parcours ta matrice comme tu l'as fait pour le remplissage, et tu affiches chaque case avec write (sauf le dernier chiffre de la ligne où tu peux utiliser writeln pour aller à la ligne suivante).
30/04/2011, 21h28
Devonkmm
Code:

1 2 3 4 5 6 for i := 1 to 23 do begin for j := 1 to 11 do write(t_matrice[i,j], ' '); writeln; end;
J'ai essayé plusieurs variantes de ça, mais cela ne marche que dans le cas des matrices carrées :cry:

En fait, voici mon fichier texte car.txt
Code:

1 2 3 abcd efgh ijkl
et le code que j'ai utilisé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 program texte_matrice; uses crt; var F : text; ligne : string; t_matrice : array[1..4, 1..3] of char; i,j : integer; begin //Création de la matrice assign (F, 'car.txt'); reset(F); for i:=1 to 3 do begin readln(F,ligne); for j:=1 to 4 do t_matrice[i][j]:=ligne[j]; end; close(F); //Affichage de la matrice for i := 1 to 3 do begin for j := 1 to 4 do write(t_matrice[i][j], ' '); writeln; end; end.
Pour une matrice comme celle-là (3 lignes et 4 colonnes), ça marche parfaitement. Par contre, si je change le nombre des colonnes (en changeant les valeurs finales de i et j bien-sûr), ça m'affiche n'importe quoi :aie:

Merci d'avance :)

01/05/2011, 13h55
droggo
Mai,

Il n'y a aucune raison que ça ne marche pas si tu utilises les valeurs correctes pour les dimensions de la matrice et les compteurs de boucles.

Pour éviter les problèmes, il faut utiliser des constantes, genre
Code:

1 2 3 const nb_lignes = 3; nb_col = 4;
de cette manière, une modification des valeurs est automatiquement répercutée dans tout le programme lors de la compilation, et ça évite de nombreuses erreurs de remplacement.

Ceci est vrai si tu tiens à fixer les dimensions à la compilation, sinon il faudra apprendre à gérer des tableaux de taille dynamique, taille qui ne sera décidée qu'au moment de l'exécution. :)

ps : accessoirement, on utilise généralement le 1er indice pour les lignes, mais ça n'a rien d'obligatoire, bien entendu.

voila une autre approche :

(testé sous delphi 2009, ne passera pas peut être en TP)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
program textmatrix;
 
uses
  SysUtils;
 
 
// Matrix properties
const
  MaxCol = 5;
  MaxRow = 5;
 
 
// The Matrix
type
  TMatrixCol  = array[0..MaxCol] of Char;  // no -1 ReadLn need +1 (AZT)
  TMatrixRows = array[0..MaxRow-1] of TMatrixCol;
 
 
// Fill #0 into a Matrix (reset)
procedure ResetMatrix(var aMatrix: TMatrixRows);
var R, C: integer;
begin
  for R := 0 to MaxRow-1 do
    for C := 0 to MaxCol-1 do
      aMatrix[R, C] := #0;
end;
 
 
// reading text file into a Matrix
procedure ReadFile(aFileName: string; var aMatrix: TMatrixRows);
var
  F : TextFile;
  L : integer;
begin
  // assign file
  Assign(F, aFileName);
  // opening in read
  Reset(F);
 
    // init Line counter
    L := 0;
 
    // reading rows of file
    while (not EOF(F)) or (L = MaxRow) do
    begin
      ReadLn(F, aMatrix[L]);
 
      // increment Line counter
      inc(L);
    end;
  // close file
  Close(F);
end;
 
 
// show a Matrix as array
procedure WriteMatrixArray(aMatrix: TMatrixRows);
var R, C: integer;
begin
  for R := 0 to MaxRow-1 do
  begin
    write('[');
    for C := 0 to MaxCol-1 do
    begin
      if C < (MaxCol-1) then
        write(aMatrix[R, C], ', ')
      else
        write(aMatrix[R, C]);
    end;
    writeln(']');
  end;
end;
 
 
// show a Matrix as text
procedure WriteMatrix(aMatrix: TMatrixRows);
var R: integer;
begin
  for R := 0 to MaxRow-1 do
    writeln(aMatrix[R]);
end;
 
 
var
  Mtx: TMatrixRows;
begin
  // reseting Matrix
  ResetMatrix(Mtx);
 
  // reading Text file (here: [program name].txt)
  ReadFile(changeFileExt(paramStr(0), '.txt'), Mtx);
 
  // show Matrix as array
  WriteMatrixArray(Mtx);
 
  Writeln;
 
  // show Matrix as Text
  WriteMatrix(Mtx);
 
 
  // wait
  readLn;
end.

01/05/2011, 19h36
droggo

Lai,

Décidément, tu n'arrives pas à te mettre dans la tête que le forum n'est pas là pour fournir des solutions clés en mains pour les exercices, ni pour les programmes personnels. :)