remplir des champs non renseignés dans un fichier texte

Question

je vous donne un exemple de fichier texte que j'utilise.

TR27A10100009D2CC500000000000008800001
TR                13649780000008800001
TR                00000050000008800001
TR27A10100009D2CE100000000000000100002
TR27A10100009D2CF200000000000000100002
TR                00000100000000100002
TR27A10100009D2BF500000000000000100002

Les champs sont de longueur fixe. 
Je récupère avec cette fonction les valeurs des champs :

function TfmMain.GetChamp(Source : String; Champ : Integer) : String;
var i, idx : Integer;
const sf : array[1..6] of Integer = (2,16,7,6,2,5);
begin
  idx := 0;
  for i := 1 to (Champ-1) do idx := idx + sf[i];
  Result := Copy(Source, idx+1, sf[Champ]);
end;

Ces champs sont d'un certain type, comment faire pour remplir les champs textes non
renseignés par des espaces, et les champs numériques non renseignés par des 0 ?

cs_Delphiprog · Answer

Un solution simple et efficace consiste à s'assurer que la chaine source contient au moins des espaces :
Au lieu de :
Result := Copy(Source, idx+1, sf[Champ]);

on peut mettre :
Result := Copy(Source+'                ', idx+1, sf[Champ]);

Pour être plus fin, il faudrait ajouter autant d'espaces que la valeur retournée par sf[champ].

May Delphi be with you.

cs_Delphiprog · Answer

Et d'une, je n'ai répondu qu'à la première question.
Et de deux, le forum ne laisse apparaître qu'un espace là où j'en ai mis une bonne dizaine !

May Delphi be with you.

cs_Delphiprog · Answer

Suite...
Dans le cas d'un champ numérique non renseigné, la fonction retourne donc des espaces.
Pour convertir ces espaces en une valeur nulle (0), j'utiliserais :
StrToIntDef(GetChamp(Source, Champ), 0);
Ainsi, on est sûr de récupérer une valeur numérique.

May Delphi be with you.

cs_Delphiprog · Answer

Cà y est, je viens de retrouver la fonction dans SysUtils :
Au lieu de :
Result := Copy(Source, idx+1, sf[Champ]);

on peut mettre :
Result := Copy(Source+StringOfChar(#32, sf[Champ]), idx+1, sf[Champ]);

Là, on est sûr d'obtenir une chaîne de longueur voulue.

May Delphi be with you.

cs_manudel · Answer

Merci pour tes réponses, je vais mettre en application !

Remplir des champs non renseignés dans un fichier texte

5 réponses

Votre réponse

Discussions similaires