TextFile et EOF

Version imprimable

14/09/2006, 10h09
birdyz

TextFile et EOF

Hello tous le monde.

Je suis en train de réaliser un petit utilitaire qui doit récupérer une info sur chaque ligne de plusieurs fichiers textes. Jusque la, aucun problème. Chaque fichier est ouvert dans une TStringList que je parcours ensuite.
La ou ca se corse, c'est que certains fichiers ne se chargent pas complètement :aie: . J'ai exagalement essayé de le chargé dans un TextFile, et de le parcourir par ReadLn, mais idem.

Si je sauvgarde ma StringList dans un fichier texte, il ne fait pas la même taille que le fichier d'origine.
J'ai donc chargé le fichier dans un TFileStream, pui je l'ai parcouru octet par octet. J'ai remarqué que lorsque j'arrivait à l'endroit ou je constate mon problème, je tombe sur le caractère #0. Il me semble bien que ce caractère signifie qu'on arrive à la fin du fichier, d'ou mon problème. Lorsque je l'ouvre dans le bloc note, il charge bien tout le fichier et j'ai un espace (ou tout du moins ce qui y ressemble) à la place du #0.
J'ai contourné le problème en lisant caractère par caractère dans un stream, et en remplacant les #0 par des espaces, mais c'est pas très rapide.

Auriez vous une solution pour contourner ce problème ?

Merci d'avance
Birdyz

il faut que tu surchages la methode TStrings.SetTextStr comme ceci :

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
 
procedure TMaStringList.SetTextStr(const Value: string);
var
  P, Start: PChar;
  S: string;
begin
  BeginUpdate;
  try
    Clear;
    P := Pointer(Value);
    if P <> nil then
      while (P - Pointer(Value)) < Length(Value) do
      begin
        Start := P;
        while not (P^ in [#10, #13]) do Inc(P);
        SetString(S, Start, P - Start);
        Add(S);
        if P^ = #13 then Inc(P);
        if P^ = #10 then Inc(P);
      end;
  finally
    EndUpdate;
  end;
end;

et ca devrait marcher avec un TMaStringList dérivant de TStringList

Bruno

14/09/2006, 10h58
e-ric

Salut

Le caractère #0 ne signifie pas fin de fichier mais fin de chaîne de caractère (au sens du langage C), Delphi est compatible avec ce modèle de chaîne de caractères pour mieux communiquer avec les API.

Ceci dit une chaîne longue Delphi peut comporter un zéro n'importe où sans provoquer la diminution de la chaîne, la taille (length) tient compte du nombre exact de caractères. Mais lorsque tu affecte la chaîne à une propriété d'un composant visuel (TLabel, TMemo...), le contenu est tronqué au premier #0 rencontré.

Si ton fichier comporte des #0, ce n'est pas un pur fichier texte. Il convient donc de t'interroger sur le rôle de ce caractère dans le fichier (séparateur de ligne...), ensuite tu dois déterminer comment le traiter (le transformer en #10 par exemple).

Pour lire ton fichier, il est effectivement préférable de passer par un flux (TFileSTream) en lisant un bloc de caractère (de 4 ko par exemple) dans un tableau de caractères, tu analyse le contenu de ce tableau puis tu le convertis en string. Mais surtout ne lis pas caractère par caractère car il évident que cela va ramer puisque tu augmentes le nombre de lecture physique du fichier.

cdlt

e-ric
14/09/2006, 11h04
birdyz
Merci Bruno@Chrysis. Ca marche presque :aie:
Je m'explique : toutes les lignes de mon fichier sont désormais chargé dans ma StringList, mais les lignes contenant le #0 sont tronquées une fois arrivé sur ce caractère. J'ai essayé de faire des modificartion, mais j'ai encore un peu de mal avec les pointeurs, et j'arrive pas à modifier la procédure.
J'ai ajouter #0 pour avoir [#10, #13, #0], et ajouter la ligne
Code:

1 2 if P^ = #0 then Inc(P);
Ca me charge bien les caractères, mais ca me remplace le #0 par un saut de ligne.

Birdyz
14/09/2006, 11h17
Bruno@Chrysis

Je ne comprends pas trop ce que tu entends par sont tronquées ? Le type string en delphi peu contenir le caractere #0... je viens de faire un essai et j'obtiens bien une ligne de mon StringList avec un #0 dedans sans que cette ligne ne soit tromquée

Bruno
14/09/2006, 11h23
birdyz

Et bien en fait, une ligne faisant 200 caractères dans mon fichier d'origine, n'en fait plus que 99 dans la StringList si le 100ème caractères est un #0.

@e-ric : je pense que je vais être obligé de faire comme ca. En fait, ce qui est bizarre (mais qui n'a rien a voir avec Delphi), c'est que le logiciel produisant ces fichiers ne le fait que sur un faible pourcentage. J'avais fait de la lecture octet par octet afin de voir ce qui posait problème.
14/09/2006, 11h27
Bruno@Chrysis

Si tu fais bien

Code:

while not (P^ in [#10, #13]) do Inc(P);

alors cela ne tronque pas mais effectivement si tu ajoutes #0 alors la boucle s'arrete et tu as bien une tronquature sur le #0

Bruno.

PS: qu'est-ce que tu voulais dire par "j'arrive pas à modifier la procédure" ?
14/09/2006, 11h28
Rayek

A mon avis l'effet de "troncage" de son fichier vient du fait qu'il y a des caractères ASCII < 32 dans son fichier et qu'il y a surement des #8 (delete) ou autres caractères bien sympatique du genre ^^

Le passage par la lecture via un TFileStream est nécessaire dans ce cas la.
14/09/2006, 11h35
e-ric

Citation:

Envoyé par bruno@chrysis

Je ne comprends pas trop ce que tu entends par sont tronquées ? Le type string en delphi peu contenir le caractere #0... je viens de faire un essai et j'obtiens bien une ligne de mon StringList avec un #0 dedans sans que cette ligne ne soit tromquée

Cela ne contredit absolument pas ce que j'ai dit, une chaîne peut contenir un ou même plusieurs #0. Une StringList est une liste de chaîne donc pas de problème, chaque chaîne peut contenir des #0. Par contre affecter une telle stringList à un TMemo via la propriété Lines va sans doute produire des surprises.

Si j'ai compris, le fichier de données contient des lignes de 200 caractères terminées par des #0 si la taille est inférieure à 200.

Si les données sont placées dans un PChar pointant surt un tableau de 200 caractères, il suffit d'employer StrPas pour convertir le tableau en String Delphi.

cdlt

e-ric
14/09/2006, 11h43
Bruno@Chrysis
Effectivement si le but c'est d'affecter à un memo ca pose problème. Alors une solution peut-etre de changer les #0 par des #32 apres avoir lu le fichier dans un MaStringList :
Code:

1 2 3 4 5 s := MaStringList.Text; for i:=1 to Length(s) do if s[i] = #0 then s[i] := #32; MaStringList.Text := s; // ou meme direct Memo.Lines.Text := s
Bruno
14/09/2006, 11h50
e-ric

Oui mais c'est à birdyz de faire le choix en fonction du résultat cherché.

e-ric
14/09/2006, 12h12
birdyz

lol, ne vous battez pas. Que de réponses.

Je vais tester tout ca et vous dire quoi.

Mais en aucun cas je ne veux le charger dans un mémo. Il s'agit en fait de fichier contenant des écritures comptables (logiciel CCMX), et je doit lire chaque ligne de chaque fichier, récupérer le numéro de compte, et calculer le pourcentage d'utilisation de chaque compte (nombre de dossiers l'utilisant / nombre de dossiers total).

Je pense qu'avec tous les éléments donnés, je devrais arriver à m'en sortir.
Je passerais le topic en résolu dès que j'aurais tester (après manger)

Merci beaucoup à vous 2

Birdyz