任何等同于PadLeft/PadRight的方法？

Question

只是想知道,VBA与VB .NET的PadLeft和PadRight方法有什么相同之处吗？

到目前为止,每当我想要一个字符串并使其具有前导空格的固定长度时,我会根据字符串的长度执行For ... Next循环.

例如,我将使用以下代码将字符串格式化为带有前导空格的8个字符:

intOrdNoLen = Len(strOrdNo)
For i = 1 To (8 - intOrdNoLen) Step 1
    strOrdNo = " " & strOrdNo
Next

有没有办法在VBA中用更少的行做同样的事情？

Answer 1

我不相信有任何显式PADLEFT或PADRIGHT函数,但您可以使用SPACE和LEFT或RIGHT前面的空格组合,然后获取正确的X个字符.

PADLEFT

strOrdNo = RIGHT(Space(8) & strOrdNo, 8)

如果你想要一个字符而不是空格,你可以使用STRING而不是空格(左边的例子用X填充):

strOrdNo = RIGHT(String(8, "X") & strOrdNo, 8)

PADRIGHT

strOrdNo = LEFT(strOrdNo & Space(8), 8)

strOrdNo = LEFT(strOrdNo & String(8, "X"), 8)

Answer 2

你可以使用这些.将它们放在公共模块中

'如果输入字符串长于总长度,则NB失败

Function PadLeft(text As Variant, totalLength As Integer, padCharacter As String) As String
    PadLeft = String(totalLength - Len(CStr(text)), padCharacter) & CStr(text)
End Function

Function PadRight(text As Variant, totalLength As Integer, padCharacter As String) As String
    PadRight = CStr(text) & String(totalLength - Len(CStr(text)), padCharacter)
End Function

Answer 3

由于我们通常在左侧填充,因此Format()函数更短,更简单:

Format(number, "    ")

Format(number, "00")

Answer 4

Format("abc","!@@@@@@") ' width >= 6; pad right side with spaces
Format("abc","@@@@@@") ' width >= 6; pad left side with spaces