Padding a string with spaces

[bobkrohn]

(03-04-2015 04:09 AM)Mark Hardman Wrote:  Sorry about that. I've put strike-through on my previous post.

I appears that this left pad "trick" is less useful than I thought.

What's to be sorry about!?
Your exhibiting "thinking outside the box" which is a G-O-O-D thing.
I will still fiddle around with it as I hope others will too.
Have fun.

Here's what I came up with so far.

PHP Code:

EXPORT PadLR(MyStr,MyLen,LorR) 
BEGIN 

LOCAL i,s;  
s:="";

// True  = -LorR = Left
// False = +LorR = Right
//     0 =       = Centered
//                 typ use Even MyLen 

IF LorR < 0 THEN
  REPLACE("",MyLen + 1 - DIM(MyStr),MyStr)▶MyStr; 
END;

IF LorR > 0 THEN
  REPLACE(MyStr,MyLen + 1,"")▶MyStr; 
END;

IF LorR == 0 THEN
  FOR i FROM 1 TO (MyLen-DIM(MyStr))/2 DO
    s := s + " "; 
  END;
  s + MyStr + s ▶ MyStr;
END;

RETURN MyStr;

END;