时间: 2021-07-31 作者:daque
function strpad(strsource, destlength, padchar, l_or_r) dim srclength srclength = len(strsource) if(srclength >= destlength) then strpad = strsource else if(l_or_r = 0) then strpad = string(destlength - srclength, padchar) & strsource else strpad = strsource & string(destlength - srclength) end if end ifend function