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