一个asp填充函数-转载来的!用来收藏吧!

作者: 小古 分类: 网站技术 发布时间: 2012-1-17 ė14005 次浏览 60 条评论
Function fillStr(str,char,direction,length)
'------------------------------------------------------------
'功能: 填充字符
'参数说明:
' str : 操作的字符串
' char : 填充的字符
' direction: 方向,0:在str的前方填充,1:在后方
' length : 填充后的字符串长度,不能小于str的长度
'------------------------------------------------------------

tmp = str
strLen = Len(str)
fillLen = 0

If strlen >= length Then

Else
fillLen = length-strlen
End If

If direction = 0 Then
For i=1 To fillLen
tmp = char & tmp
Next
Else
For i=1 To fillLen
tmp = tmp & char
Next
End If

fillStr = tmp

END Function

本文出自 小古Blog,转载时请注明出处及相应链接。

本文永久链接: http://blog.chdz1.com/?post=137

|

发表评论:

电子邮件地址不会被公开。 必填项已用*标注

Ɣ回顶部
sitemap