Наложение строки на строку (ведущие нули/символы)

enum (StringOverlayCentering) { SOC_SOURCE_LEFT, SOC_SOURCE_RIGHT, SOC_SOURCE_CENTER }

// Places the overlay string on the source string and returns result string. Centering method specifies position of the remaining symbols.
string StringOverlay(string source, string overlay, StringOverlayCentering centeringMethod) {
    integer slen = StringLength(source)
    integer olen = StringLength(overlay)
    integer delta = olen - slen
    integer gamma = 0
    string result = ""
    if (delta > 0) {
        if (centeringMethod == SOC_SOURCE_RIGHT) {
            return SubString(overlay, 0, delta) + source 
        } elseif (centeringMethod == SOC_SOURCE_LEFT) {
            return source + SubString(overlay, olen - delta, olen)
        } else {
            gamma = delta / 2
            delta = R2I( I2R(delta) / 2  + 0.5 )
            return SubString(overlay, 0, delta) + source + SubString(overlay, olen - gamma, olen)
        }
    }
    return source
}

BJDebugMsg( StringOverlay("mama","ABCDEF", SOC_SOURCE_LEFT) ) // = "mamaEF"

BJDebugMsg( StringOverlay("mama","ABCDEF", SOC_SOURCE_RIGHT) ) // = "ABmama"

BJDebugMsg( StringOverlay(I2S(285),"00000000", SOC_SOURCE_RIGHT) ) // = "00000285"

BJDebugMsg( StringOverlay("mama","ABCDEF", SOC_SOURCE_CENTER) ) // = "AmamaF"

BJDebugMsg( StringOverlay("mama","ABCDEFG", SOC_SOURCE_CENTER) ) // = "ABmamaG"

BJDebugMsg( StringOverlay("mam","ABCDEFG", SOC_SOURCE_CENTER) ) // = "ABmamFG"

BJDebugMsg( StringOverlay("mam","ABCDEF", SOC_SOURCE_CENTER) ) // = "ABmamF"

BJDebugMsg( StringOverlay("mam","ABCDEFGHIJKLMNOPQRSTUVWXYZ", SOC_SOURCE_CENTER) ) // = "ABCDEFGHIJKLmamPQRSTUVWXYZ"

BJDebugMsg( StringOverlay("mam","ABCD", SOC_SOURCE_CENTER) ) // = "Amam"

BJDebugMsg( StringOverlay("scorpiot","ABCDEF", SOC_SOURCE_CENTER) ) // = "scorpiot"

// Places the overlay string on the source string and returns result string
function str_overlay takes string source, string overlay, boolean source_to_the_right returns string
     local integer slen = StringLength(source)
     local integer olen = StringLength(overlay)
     local integer delta = olen - slen
     local string result = ""
     if delta > 0 then
          if source_to_the_right then
               return SubString(overlay, 0, delta) + source 
          else
               return source + SubString(overlay, olen - delta, olen)
          endif
     endif
     return source
endfunction

BJDebugMsg(str_overlay("mama","ABCDEF", true)) // = "ABmama"
BJDebugMsg(str_overlay("mama","ABCDEF", false)) // = "mamaEF"
BJDebugMsg(str_overlay("scorpiot","ABCDEF", true)) // = "scorpiot"