Discussion :

[Devonkmm]

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 :

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

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 . Merci d'avance pour votre aide
(le code devant être valable pour tous les autres fichiers textes dans le même format ^^).

[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

[Modulpro]

Salut,

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

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 :

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

chaine[n]

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

[Devonkmm]

Merci pour vos réponses

Voici ce que j'ai concoté :

Code :

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

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) Merci d'avance !

[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).

[Devonkmm]

Code :

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

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

[Devonkmm]

En fait, voici mon fichier texte car.txt

Code :

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

1
2
3
abcd
efgh
ijkl

et le code que j'ai utilisé :

Code :

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

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

Merci d'avance

[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 :

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

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.

[Dr.Who]

voila une autre approche :

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

Code :

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

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.

[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.