FixedLength

[raybaudi]

Una funzione personalizzata per creare dei campi a lunghezza fissa, con carattere di riempimento a scelta e con allineamento a scelta.

Codice: Seleziona tutto

/*
FixedLength  function

Author
Daniele Raybaudi

Format
FixedLength ( text ; char ; charsNumber ; align )

Parameters
text - any text or text field
char - any character (or string);
charsNumber - the fixed length of the resulting string
align - text that can assume the value of "Left" or "Right"; an empty string is the same of "Left"

Data type returned
text

Description
Returns a fixed length string.
For example, FixedLength ("aaa"; "0" ; 10 ; "Left" ) returns: aaa0000000;
FixedLength ("aaa"; "0" ; 10 ; "Right" ) returns: 0000000aaa.

April 7, 2006
*/

Let(
string = 
Case (
charsNumber  > 0; char & FixedLength (""  ; char; charsNumber - 1 ; "");
""
);
Case(
align = "Left" or align = "";Left ( text & string ; charsNumber );
align = "Right"; Right ( string & text ; charsNumber);
string
)
)