【SolidWorks宏】VBA获取数组的长度
REM "获取数组长度"
Public Function ArrayLength(ByVal ary) As Integer
python获取数组长度ArrayLength = UBound(ary) - LBound(ary) + 1
End Function
REM "调⽤⽰例"
Sub SplitSample()
'声明
Dim temp() As String
Dim EgStr As String
'执⾏过程
EgStr = "str1  str2    str3"
temp = Split(EgStr, " ")
MsgBox(ArrayLength(temp))
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。