excel - 是否有类似于 vba 中的 toString() 函数的实现函数？

Question

我想在不调用函数的情况下将集合中的对象作为字符串获取。
例如。:
在java中我可以

System.out.print(objVarXY)

并且编译器将自动调用 objVarXY.toString() 函数(如果已实现)

在VBA中是这样的

Debug.Print parameterListe.LList.Item(1)

会导致错误。

Debug.Print parameterListe.LList.Item(1).toString

如果我实现了一个 toString 子函数，它将起作用。
但是如果我不知道我的 LList 集合中会包含什么样的对象呢？

Answer 1

Debug.Print将隐式尝试将给定的值表达式强制转换为 String用于输出。

当你Debug.Print一个对象，VBA 尝试 Let - 将对象强制转换为一个值 - 如果该对象没有最终产生一个可以隐式转换为 String 的值的默认成员，然后如果类没有默认成员，则会收到运行时错误 438“对象不支持此属性或方法”。

如果对象是用户代码(即您自己的类模块)，并且如果这样做有意义，您可以自己添加一个默认成员，并让该类负责知道如何将自己表示为 String (请注意，VB 属性隐藏在 VBE 代码 Pane 中，并且必须在 VBE 之外进行编辑 - 除非您使用 Rubberduck ，在这种情况下，您可以简单地添加 @DefaultMember 注释并同步注释/属性):

'@DefaultMember
Public Function ToString() As String
Attribute ToString.VB_UserMemId = 0
    '...
End Function

但这所做的只是使该类能够被本质上视为 String ，通过隐式成员调用。我将其称为语言功能的滥用(通过这种机制 Debug.Print Excel.Application 输出应用程序的 Name 或 Debug.Print adoConnection 输出连接的 ConnectionString 属性)，因为正如您所指出的，您不妨只需调用 ToString明确的方法。

如果对象不知道如何将自己表示为 String ，然后某事，某处将不得不。在 Java (IIRC) 和 .NET 中，这基本上是默认的 ToString执行:

Debug.Print TypeName(objVarXY)

...这是相当无用的，但这本质上是 ToString默认情况下。

无论您是在编写 Java、C# 还是 VBA，都需要有代码负责知道如何表示 objVarXY作为 String .

可悲的是 VBA 不做花哨的模式匹配，所以我们不能 Select Case TypeOf obj就像在 C# 中一样(它最近才具备这种能力 - 不了解 Java)，并且因为 Select Case TypeName(obj)不会是类型安全的，我会选择 If...ElseIf :

Public Function Stringify(ByVal obj As Object) As String
    If TypeOf obj Is Something Then
        Dim objSomething As Something
        Set objSomething = obj ' cast to Something interface
        Stringify = objSomething.SomeProperty

    ElseIf TypeOf obj Is SomethingElse Then
        Dim objSomethingElse As SomethingElse
        Set objSomethingElse = obj ' cast to SomethingElse interface
        Stringify = objSomethingElse.AnotherProperty & "[" & objSomethingElse.Foo & "]"

    'ElseIf TypeOf obj Is ... Then
    '    ...
    Else
        ' we don't know what the type is; return the type name.
        Stringify = TypeName(obj)
    End If
End Function

显然，如果集合总是包含您拥有的类，更好的解决方案是让每个对象都知道如何将自己表示为 String。值(value)。

但是，让用户类公开 ToString他们默认界面上的方法并不理想:因为我们不知道我们从集合中得到什么类型，所以我们只有 Object和后期绑定(bind)调用 - 并且没有编译时保证该类实现 ToString方法，如果我们尝试调用 ToStrnig，则不会出现编译器警告.

解决办法是不放 ToString在类的默认接口(interface)上，并用一些 IString 形式化行为类模块，可能如下所示:

Option Explicit
Public Function ToString() As String
End Funtion

是的，这就是整个类(class)。

现在需要用字符串表示的用户类可以这样做:

Option Explicit
Implements IString

Private Function IString_ToString() As String
    ' todo: implement the method!
End Function

现在我们可以提前确定对象具有 ToString方法:

Dim o As Object
For Each o In MyCollection
    If TypeOf o Is IString Then
        Dim s As IString
        Set s = o 'cast to IString interface
        Debug.Print s.ToString
    Else
        Debug.Print TypeName(o)
    End If
Next

归根结底，无论您使用哪种语言，都没有魔法。