关于数组的split疑问

442039099

               第一种写法不报错
                arr = Split(d(Target.value), "-")
                Target.Offset(0, 1) = arr(0)
                Target.Offset(0, 2) = arr(1)

                '下面的写法报错“下标越界”
                Target.Offset(0, 1) = Split(d(Target.value), "-")(0)
                Target.Offset(0, 2) = Split(d(Target.value), "-")(1)

               这2种写法难道不是等价的吗？

hasyh2008

d(Target.value)的值未设置，这时为空。

442039099

hasyh2008 发表于 2022-8-11 20:47
d(Target.value)的值未设置，这时为空。

我截取的代码不全，d(Target.value)是有值的，如果没有值，那上面那种写法也会报错的。但上面的写法不报错

砂海

...，如果没有值，那上面那种写法也会报错的。但上面的写法不报错

???

split 的结果 通常是数组 , 但没有分隔符 就是 非数组变量
非数组变量(0) 当然出错
更正:
split("","-") 返回 空数组
空数组(0) 出错


--------------------------------

硬跳过的话
split( 数据 & "-" , "-")  ,
这样结果就必定是有效数组了

大灰狼1976

确实等价的，如果上面的没出错，下面的也不会出错。
另，split返回的结果必定是一维数组，不管含不含分隔符。
如果还有问题请上传有问题的附件。

砂海

大灰狼1976 发表于 2022-8-12 14:09
确实等价的，如果上面的没出错，下面的也不会出错。
另，split返回的结果必定是一维数组，不管含不含分隔 ...

4楼回答更正为:
split("","-") 返回 空数组
空数组(0) 出错
===================================================

Sub cs()
    Dim a, i, z
    a = Array("", "b-b")
    For i = 0 To 1
        z = Split(a(i), "-")
        Debug.Print "i = " & i, IIf(UBound(z) < LBound(z), "空数组", "非空数组")
    Next i
End Sub

釜底抽薪

砂海 发表于 2022-8-13 15:20
4楼回答更正为:
split("","-") 返回 空数组
空数组(0) 出错

我用 cr = Split(ExADD, "$")  
cr是变量，拆分出来的数据是类型是文本格式。
   这里怎么在重新声明下cr 这个变量里面的元素是整数行的呢

大灰狼1976

砂海 发表于 2022-8-13 15:20
4楼回答更正为:
split("","-") 返回 空数组
空数组(0) 出错

确实，没有考虑原字符串是空字符串的情况，空字符串时ubound（arr）是-1，但是无法取值，如果分隔符也是空字符串时倒是可以。