用于左填充指定数量的字符,以达到规范长度

2006-6-27 8:37:31　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

　　'**************************************************
'[用于左填充指定数量的字符,以达到规范长度]
'函数名：lpad
'作  用：用于左填充指定数量的字符,以达到规范长度
'参  数：desstr  ---- 目标字符
'参  数：padchar ---- 填充字符
'参  数：lenint  ---- 填充后的字符总长度
'返回值：返回字符
'示  例：response.write lpad(4,0,5),结果显示00004
'**************************************************
Public Function  lpad(ByVal desstr,ByVal padchar,ByVal lenint)
  dim d,p,t
  d = cstr(desstr)
  p = cstr(padchar)
  lpad=""
  for t=1 to lenint-len(d)
      lpad = p & lpad
  next
  lpad = lpad & d
end function

>> 相关文章