vb6数组,上限为-1

Question

Split()如果数组没有项目,某些函数会返回一个数组,其中上限为-1,下限为零,例如:

Dim s() As String
s = Split("", ",")
Debug.Print UBound(s)
Debug.Pring LBound(s)

在这种情况下,UBound将等于-1,LBound(s)将等于0.我有相当数量的代码检查上限的-1,以查看数组是否有值.这非常有效.

问题是我现在想要将数组数据类型从字符串更改为long.我似乎无法创建多头阵列与一个上限的-1和下界的0,并且Split()和Join()功能仅在字符串数组操作.

我希望能够返回一个上限为-1的长数组.这可能吗？

Answer 1

我不认为你可以在 VB6 中自己完成它。但是，如果您愿意使用 Windows API 函数SafeArrayCreateVector，您可以这样做：

Private Declare Function LongSplitEmulator Lib "OLEAUT32.DLL" Alias "SafeArrayCreateVector" _
    (Optional ByVal vt As VbVarType = vbLong, _
     Optional ByVal low As Long = 0, _
     Optional ByVal count As Long = 0) As Long()

Dim a() As Long
a = LongSplitEmulator()
MsgBox UBound(a)

如果需要对其他数据类型执行此操作，可以更改 vt 参数。

请注意，我想我最初是从 Vi2 对此讨论的回答中发现这一点的。