vbscript - 使用 vbscript 枚举

Question

由于 vbscript 不支持枚举，是否有解决此问题的方法？
我有这个代码:

Private Enum dataType
 dt_Nothing
 dt_Boolean
 dt_Decimal
 dt_Double
 dt_Integer
 dt_string
 dt_Array
 dt_NetJSON
End Enum

提前致谢!

Answer 1

使用常量是非常合乎逻辑的。另一方面，您可以使用自己的类的全局实例来模拟 VB 枚举。请注意，看起来就像枚举一样，我不确定它是否真的有必要。

Class EnumDataType
    Public  dt_Nothing, dt_Boolean, dt_Decimal
    Private Sub Class_Initialize
        dt_Nothing = 1
        dt_Boolean = 2
        dt_Decimal = 4
    End Sub
End Class

Dim dataType
Set dataType = New EnumDataType

WScript.Echo dataType.dt_Nothing Or dataType.dt_Boolean Or dataType.dt_Decimal