chaine vide (longueur variable) dans un fichier texte.Résolu

Question

Merci de l'interet que vous porterez à ma question. La dernière fois j'ai omis de spécifier le langage de programmation : c'est delphi 5.
Je reposerai quand meme mon probléme :
je dois créer un fichier texte à partir d'une table paradox. jusque là tout fonctionne bien. mon souhait est si j'ai un champ (par exemple adresse sur 70 caracteres, alors que 50 seulement sont remplis, donc je dois affichier dans mon fichier texte 50 caracteres remplis et 20 comme chaine vide).
Voilà à peu prés le résultat souhaité :
code nom                        adresse
---------------------------------------
0001 Nom1111111                 Adresse1111111111111
0002 Nom22222222222222          Adresse2222222222222222222
0003 Nom33333                   Adresse333333
0004 Nom44444444444444444444444 Adresse444444444444444444444444444
--------------------------------------------------------------------
merci d'avance

cs_cantador · Accepted Answer

arf la balise de code :


procedure TForm1.Button16Click(Sender: TObject); 
var 
F1: textFile; 
LChp: integer; 
begin 
LChp := Query1Event_Name.Size; 
AssignFile(F1, 'c:	mp	est.csv'); 
Rewrite(F1); 
Query1.First; 
while not Query1.Eof do 
begin 
WriteLn(F1, Query1Event_Name.Text + StringOfChar('1', LCHP - Length(Query1Event_Name.Text))); 
Query1.Next; 
end; 
CloseFile(F1); 
end; 


cantador

cs_cantador · Answer

bonjour,
la question est claire mais les exemples..

je te propose ce code pas optimisé du tout sur la table Events de la démo de Borland.

procedure TForm1.Button16Click(Sender: TObject);
var
  F1: textFile;
  LChp: integer;
begin
  LChp := Query1Event_Name.Size;
  AssignFile(F1, 'c:	mp	est.csv');
  Rewrite(F1);
  Query1.First;
  while not Query1.Eof do
  begin
    WriteLn(F1, Query1Event_Name.Text + StringOfChar('1', LCHP - Length(Query1Event_Name.Text)));
    Query1.Next;
  end;
  CloseFile(F1);
end;

on peut mieux faire en écrivant une fonction et utiliser les TStringList, mais faut bien t'en laisser un peu..

cantador

cs_rt15 · Answer

Bonjour,

Merci de poster sur delphifr dans un thème delphi pour une question sur le Delphi.

[ Déplacé sur delphifr ]

Chaine vide (longueur variable) dans un fichier texte.

3 réponses

Votre réponse