Discussion :

[hach22]

Voici comment inversé tout un fichier text avec Turbo Pascal...
Tout les commentaire seront appréciés

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
program inverttx;
uses wincrt;
var t,t2:text; 
    ch:string;
procedure invertch(var ch:string);
var i,l:integer;c:char;
begin
     l:=length(ch);
     for i:=1 to l div 2 do
     begin
     c:=ch[i];
     ch[i]:=ch[l-i+1];
     ch[l-i+1]:=c;
     end;
end;
 
function nbrline(var t:text):integer;
begin
if not(eof(t)) then
   begin
   readln(t);
   nbrline:=1+nbrline(t);
   end
else nbrline:=0;
end;
 
procedure seektxt(var t:text;p:integer);
var i:integer;
begin
reset(t);
for i:=1 to p do
    readln(t);
end;
 
procedure writet2txt(var t,t2:text;n:integer);
var x1:string;
begin
seektxt(t,n);
   readln(t,x1);
   invertch(x1);
   if n=0 then write  (t2,x1)
          else writeln(t2,x1);
end;
 
procedure inverttxt(var t,t2:text;n:integer);
begin
if n>=0 then
   begin
        writet2txt(t,t2,n);
        inverttxt(t,t2,n-1);
   end;
 
end;
 
begin
     assign(t,'c:\text.txt');
     reset(t);
     assign(t2,'c:\text2.txt');
     rewrite(t2);
     inverttxt(t,t2,nbrline(t)-1);
     close(t2);
     close(t);
     erase(t);
     rename(t2,'c:\text.txt');
end.

[krachik]

Bonjour
j'ai pas tester ton code mais juste je voudrais savoir une ou deux choses qui me donnerais envie de le faire
-C'est dans quel but tu le fais
-quand tu parles d'inverser tout un fichier c'est:
voila un texte

je fais parti des membres
de ce merveilleux forum

est ce que ton code fait que ça devient?

serbmem sed itrap siaf ej
murof xuellievrem ec ed

ou ça devient ça?

murof xuellievrem ec ed
serbmem sed itrap siaf ej

Et comme c'est un truc assez utile je ne vois pas de commentaire apparente dans ton code
(tout ce que je dis n'est en aucun cas pour te decourager de ce que tu a fais)

Sinon bravo et bon courage
@+

[droggo]

Gio,

Ce n'est pas trop mal.

Il faut soigner l'indentation, par exemple

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
program inverttx;
 
uses wincrt;
 
var 
  t, t2 : Text; 
  ch : string;
 
procedure invertch(var ch : string);
var 
  i, l : Integer;
  c : Char;
begin
  l := Length(ch);
  for i := 1 to l div 2 do
  begin
    c := ch[i];
    ch[i] := ch[l - i + 1];
    ch[l - i + 1] := c;
  end;
end;
 
function nbrline(var t : Text): Integer;
begin
{  if not (Eof(t)) then
  begin
    Readln(t);
    nbrline := 1 + nbrline(t);
  end
  else 
    nbrline := 0; }
 
  { On admet que t est positionné au début.
    Si ce n'est pas le cas, ajouter Reset(t) }
  nbrline := 0;
  while not(Eof(t)) do
  begin
    ReadLn(t);
    Inc(nbrline);
  end;
end;
 
procedure seektxt(var t : Text; p : Integer);
var 
  i : Integer;
begin
  Reset(t);
  for i := 1 to p do
    Readln(t);
end;
 
procedure writet2txt(var t, t2 : Text; n : Integer);
var 
  x1 : string;
begin
  seektxt(t, n);
  Readln(t, x1);
  invertch(x1);
  if n = 0 then 
    Write  (t2, x1)
  else 
    Writeln(t2, x1);
end;
 
procedure inverttxt(var t, t2 : Text; n : Integer);
begin
  if n >= 0 then
  begin
    writet2txt(t, t2, n);
    inverttxt(t, t2, n - 1);
  end;
end;
 
begin
  Assign(t, 'c:\text.txt');
  Reset(t);
  Assign(t2, 'c:\text2.txt');
  Rewrite(t2);
  inverttxt(t, t2, nbrline(t) - 1);
  Close(t2);
  Close(t);
  Erase(t);
  Rename(t2, 'c:\text.txt');
end.

Au passage j'ai corrigé la fonction nbrline pour la simplifier.

C'est d'ailleurs le reproche que je ferais au total : c'est un peu compliqué, on peut faire plus simple.

Côté mis en forme, il faudrait utiliser quelques majuscules dans les noms des procédures/fonctions, pour faciliter la lecture.

Par exemple, nbrLine se lit plus aisément que nbrline, on voit tout de suite que le nom se décompose en plusieurs mots.

Dans le cas de noms provenant de la concaténation de plusieurs mots, une règle souvent utilisée est de mettre la 1ère lettre de chaque mot en majuscule (souvent sauf pour la 1ère lettre du nom, mais c'est un choix un peu moins répandu).

[hach22]

Bonjour
@krachik
Mon programme transforme ce texte

je fais parti des membres
de ce merveilleux forum

en

murof xuellievrem ec ed
serbmem sed itrap siaf ej

@droggo

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
function nbrline(var t : Text): Integer;
begin
{  if not (Eof(t)) then
  begin
    Readln(t);
    nbrline := 1 + nbrline(t);
  end
  else 
    nbrline := 0; }
 
  { On admet que t est positionné au début.
    Si ce n'est pas le cas, ajouter Reset(t) }
  nbrline := 0;
  while not(Eof(t)) do
  begin
    ReadLn(t);
    Inc(nbrline);
  end;
end;

Merci beaucoup pour les conseils