关于如何判断数组是否为空的问题

feiling

今天在写一个程序时，碰到需要判断数组是否为空的问题，发现IsNull或者IsEmpty都不起作用。寻遍网上也没发现比较简单明了的解决方法，基本上都是用On Error语句来规避的。于是写了一个EmptyArr的布尔型的自定义函数来执行判断，和大家分享一下，请勿见笑。


Sub Macro1()
Dim a() As String, i As Long

If EmptyArr(a) Then MsgBox "数组为空"

ReDim a(20)

For i = 1 To 20
  a(i) = Chr(i + 64)
Next

If EmptyArr(a) Then
  MsgBox "数组为空"
Else
  MsgBox "数组不为空"
End If
End Sub


Function EmptyArr(ByRef x() As String) As Boolean  '判断是否为空数组的自定义函数
Dim tempStr As String
tempStr = Join(x, ",")
EmptyArr = LenB(tempStr) <= 0
End Function

livewire

Dim tempStr As String
tempStr = Join(x, ",")

好像 tempStr = Join(x, "")  更合适些

lolmuta

但是他不能判定定態陣列啊!
若我將這個(陣列裡面值是"")也視為一種非空的值的話。

1. Sub sad()
   
2. 
   
3. Dim ad() As String
   
4. Debug.Print EmptyArr(ad)'result is True
   
5. redim ad(0)
   
6. Debug.Print EmptyArr(ad)'result also True
   
7. 
   
8. End Sub
   
9. 
   
10. Function EmptyArr(ByRef x() As String) As Boolean  '
    
11. Dim tempStr As String
    
12. tempStr = Join(x, "")
    
13. EmptyArr = LenB(tempStr) <= 0
    
14. End Function
    

复制代码

[ 本帖最后由 lolmuta 于 2010-11-6 19:36 编辑 ]

dcw0402

不错,学习了

yanjie

请问判断数组为空，是什么意思？
例如：
dim arr() as integer
这时候数组为空吗？

yanjie

请问判断数组为空，是什么意思？
例如：
dim arr(1 to 3) as integer
还是这时候数组为空吗？

yanjie

如果是第2种情况：
dim arr(1 to 3) as integer
dim mystr as string
For i = 1 To 3
  If arr(i) > "" Then
   mystr= mystr + arr(i)
  End If
Next
if mystr="" then msgbox "数组arr为空!"

[ 本帖最后由 yanjie 于 2010-11-6 20:42 编辑 ]

yanjie

如果是第1种情况，可以利用它的UBound(arr)下标越界的出错来判断它：
On error resume next
i=UBound(arr)
if err.number<>0 then msgbox "数组为空"
on error goto 0

[ 本帖最后由 yanjie 于 2010-11-7 09:22 编辑 ]

lolmuta

vba對於動態陣列尚未redim的判定始終沒有好的函數，也就是第一種情況，我想樓主希望在不調用err的情況下來做判定。
當然我看過調用api的，那又太麻煩了。
所以不err 不api，應該是做不出來吧!

marszhu0271

在             学习中