Discussion :

[yaclouis]

Bonjour
Mon application génère un fichier texte à partir d'une table.
les lignes de ce fichier sont de longueur fixe.
j'aimerai savoir s'il existe des fonctions ou commande du type (Lpad et Rpad) de SQL pour fixer la taile d'une chaine de caractère et éventuellement compléter à gauche ou à droite par des blancs (' ') ou des zeros( 0 ).
merci d'avance.

[didier.cabale]

j'aimerai savoir s'il existe des fonctions ou commande du type (Lpad et Rpad) de SQL pour fixer la taile d'une chaine de caractère et éventuellement compléter à gauche ou à droite par des blancs (' ') ou des zeros( 0 ).
merci d'avance.

issu de JCL - JclAnsiString.pas Project JEDI /auteur Marcel van Brakel

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
function StrPadLeft(const S: AnsiString; Len: Integer; C: AnsiChar): AnsiString;
var
  L: Integer;
begin
  L := Length(S);
  if L < Len then
    Result := StringOfChar(C, Len - L) + S
  else
    Result := S;
end;
 
function StrPadRight(const S: AnsiString; Len: Integer; C: AnsiChar): AnsiString;
var
  L: Integer;
begin
  L := Length(S);
  if L < Len then
    Result := S + StringOfChar(C, Len - L)
  else
    Result := S;
end;

Cordialement

[yaclouis]

ça marche.
Merci de votre aide.
par ailleurs, je me demandais s'il existait des fonctions qui faisaient ça automatiquement.

[ShaiLeTroll]

La fonction Format permet beaucoup de chose !
La fonction Write des fichiers Texte aussi, permet un formatage mais par des espaces uniquement ...