Left padding to string

clembo

I need to fill string with blank char. So i built a function to do it but when exit function Nav delete blank space.
Why?

How I can do this?

David_Singleton

exit(strubstno('%1',' '));

I think that works.

clembo

Not work.

In my custom function i fill a string with blank spaces required then

REPEAT
Filler += ' ';
Count := Count +1;
UNTIL Count = Target;

TextToFill := Filler + TextToFill;

EXIT(TextToFill);

David_Singleton

Odd, it works for me. Of course fix the typo first 8)

MBerger

Maybe you are putting the result in a Code field ? Because those delete any preceding and trailing spaces.
BTW, ehre is a simpler version for your function, without the need of a loop etc.

FunctionName : PadLeft, returns text[1024]
Parameters :
- ToPad Text[1024]
- ToLength : Integer
- PadChar : Text[1]

ToPad := padstr('',ToLength,PadChar) + ToPad ;
exit(copystr(ToPad,strlen(ToPad) - (ToLength-1),ToLength)) ;

clembo

Thakyou. Is type code the error!!

MBerger

clembo wrote:

Thakyou. Is type code the error!!

Great YOu might want to set the post as "solved" then !