VBA 字符串空间：首选方法？

Question

连接字符串时，有多种插入空格的有效方法。

空间函数：

Print "A" & Space(1) & "B"
A B

VS

引述：

Print "A" & " " & "B"
A B

VS

Chr：

Print "A" & Chr(32) & "B"
A B

---

所有三种方法产生相同的结果。我发现 Space 有益的唯一地方是使用变量来表示空格数。

Space( <expression of number - len(var)> )

谁能提供任何关于为什么一种方法比另一种更好的见解？

Answer 1

正如建议的那样，它们在编译时都会产生相同的结果。可能会有一些情境优势，例如：

1) Space() - 当需要多个空间时很好。
Space(100) 优于 chr(32) & chr(32) & chr(32) & ...

2) " " - 易于理解的视觉表达，尤其适用于新的 vba 学习者
编辑：也比方法调用更快，感谢 Blackhawk 指出

3) chr() - 可用于打印特定字符以表示文本文件的字符表达式。例如。使用 chr(10) 打印 Enter/Return。但是，我没有看到打印空间有任何明显的好处

Answer 2

使用字符串文字应该是最快的，因为其他两个是函数。正如您所指出的，这很容易理解，但是当您需要的不仅仅是一个空间时，@Alex pointed out Space() 肯定会更好。我总是更喜欢文字或space() 而不是chr(32)。 chr(32) 对于维护者来说非常晦涩难懂。

还有一个你没有考虑过的选项。创建一个常量。

Const space As String = " "

这具有space(1) 的所有可读性以及文字" " 的性能。作为一个额外的好处，内存中只有一个常量实例，因为每个实例的文字都会显示一次。

---

如果您决定使用chr(32)，则最好使用它的字符串版本：chr$(32)。常规版本返回一个变体，而字符串版本返回一个字符串。变体有一些额外的开销，在这里可以避免。

Answer 3

也许存在性能差异？你可以自己测试一下！请参阅the code at this answer related to the performance counters 以获取有用的 VBA 计时器类。

这是（Excel-ish）VBA 中此类计时的示例：

Option Explicit

Sub DoTimings()
    Dim oTimer As New CTimer
    Dim fTimer(3) As Double

    Dim iiter As Long
    Const ITERATIONS As Long = 10000

    oTimer.StartCounter
    For iiter = 1 To ITERATIONS
        Debug.Print "A" & Space(1) & "B"
    Next
    fTimer(1) = oTimer.TimeElapsed

    oTimer.StartCounter
    For iiter = 1 To ITERATIONS
        Debug.Print "A" & " " & "B"
    Next
    fTimer(2) = oTimer.TimeElapsed

    oTimer.StartCounter
    For iiter = 1 To ITERATIONS
        Debug.Print "A" & Chr(32) & "B"
    Next
    fTimer(3) = oTimer.TimeElapsed

    Range("A1").Value = "Spaces: "
    Range("B1").Value = fTimer(1)
    Range("A2").Value = "Quotes: "
    Range("B2").Value = fTimer(2)
    Range("A3").Value = "Chr: "
    Range("B3").Value = fTimer(3)

End Sub

当我在我的机器上运行它时，差异可以忽略不计或受其他因素支配（最明显的是您要打印到的任何 I/O）。因此，可以肯定地说，没有任何明显的性能差异，从可维护性的角度来看，您可以使用最有意义的任何东西。