arrays – vb6数组,上限为-1

如果数组没有项目,某些函数(如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的long数组,而Split()和Join()函数仅对字符串数组进行操作.

我希望能够返回一个上限为-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对这个discussion的回答中发现了这一点.