Compter les caractères d'un fichier texte

Version imprimable

Voir 40 message(s) de cette discussion en une page

15/03/2009, 21h22
ProgramPascal

Citation:

Envoyé par richard

Bonsoir,

Ce serait bien de répondre précisément aux questions posées parce que cela donne des pistes pour t'aider.

Donc, merci de nous donner les noms complets du fichier (nom + extension) ainsi que le chemin complet du répertoire dans lequel se trouve le programme et ce fichier (puisqu'ils sont dans le même répertoire).

C:\Documents and Settings\Moi\Mes documents\TFE\MYTEXTE.txt
C:\Documents and Settings\Moi\Mes documents\TFE\2.EXE
15/03/2009, 21h31
richard

Citation:

Envoyé par ProgramPascal

C:\Documents and Settings\Moi\Mes documents\TFE\MYTEXTE.txt
C:\Documents and Settings\Moi\Mes documents\TFE\2.EXE

OK, nous y sommes.

Crée un répertoire nommé Projets (par exemple) à la racine de C:\. Dans ce répertoire C:\Projets copie ton répertoire TFE. Puis réessaye. (Et, s'il te plaît, donne-moi le résultat).
16/03/2009, 20h35
ProgramPascal

Citation:

Envoyé par richard

OK, nous y sommes.

Crée un répertoire nommé Projets (par exemple) à la racine de C:\. Dans ce répertoire C:\Projets copie ton répertoire TFE. Puis réessaye. (Et, s'il te plaît, donne-moi le résultat).

Ah oui là aparemment le reste du programme s'execute donc je suppose que le fichier a été ouvert par contre en mettent writeln à la fin de chaque étap pour m'indiquer certaine chose par exemple writeln('dernière ligne traitée') je remarque que la boucle se fait à l'infini. Je vais donc encore travaillé mon codage.
16/03/2009, 21h06
Alcatîz

Bonjour,

Tu peux utiliser la version 8.3 des noms de répertoires et de fichiers, sans devoir tout déplacer sur ton disque. ;)
Par exemple, tu peux remplacer

Citation:

C:\Documents and settings\Moi\Mes documents\TFE\MYTEXTE.txt

par

Citation:

C:\DOCUME~1\Moi\MESDOC~1\TFE\MYTEXTE.txt
16/03/2009, 21h20
ProgramPascal

Citation:

Envoyé par Alcatîz

Bonjour,

Tu peux utiliser la version 8.3 des noms de répertoires et de fichiers, sans devoir tout déplacer sur ton disque. ;)
Par exemple, tu peux remplacer

par

Merci pour l'astuce.

Sinon, il est possible de récupérer le chemin aboslu du programme avec la fonction paramstr(0).
Puis voir si c'est un monde Microsoft ou Linux (backslash ou slash).
Puis concaténer le chemin absolu du programme moins le nom du programme avec nom du fichier ... :aie:

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
program EssaiSurString;
 
var
  str : string;
  str2 : string;
  Datas : Text;
  NomFichier : string; // Nom du fichier a lire 
  k : Integer;
  choix : cardinal;
 
begin
  writeln('Monde Windows tapez 0;');
  writeln('Monde Linux, Unix, Mac, tapez 1');
  readln (choix);     
  writeln('Indiquez le nom du fichier contenant les donnees qu''il faut ouvrir :  ');
  readln(NomFichier);
  writeLn (ParamStr (0)); //Affiche le chemin absolu du programme;
  str := ParamStr (0); 
  k := length(str); //k est la longueur de la chaine effective
  case choix of
 
    0: begin 
         while str[k] <> '\' do // Tant que nous ne trouvons pas un backslash (windows) depuis la fin de position
           begin
             dec(k);
           end;
        {/Elihw}
       end;
 
    1: begin
         while str[k] <> '/' do // Tant que nous ne trouvons pas un slash (Unix, Linux et Mac) depuis la fin de position
           begin
             dec(k);
           end;
        {/Elihw}
       end;
  end;
  {/Esac}     
  str2 := str;
  delete(str,k+1,(length(str)-k));
  writeln(str) ;
  str := str+NomFichier;
  Assign(Datas,str); 
  reset(Datas);
  If IOresult <> 0 then // Si l'output répond pas trouver fichier, alors 
    begin
      writeln('Le fichier est inexistant ou le nom est non valide');
      halt;      
    end;
  {/fi}
  writeln(str);
  readln();
  while not eof(Datas) do
    begin
      readln(Datas,str);
      writeln(str);      
    end;
  {/Elihw}
  close(Datas);
end.

Voir 40 message(s) de cette discussion en une page