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
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
本文介绍了一个使用VBA编写的自定义函数strPad,该函数用于将字符串填充到指定长度。通过传递源字符串、目标长度及填充字符等参数,strPad能够实现字符串左或右对齐的功能。
564

被折叠的 条评论
为什么被折叠?



