学步园

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, padChar)
            End If
        End If
End Function