递归程序求助_ParamArray参数内含嵌套数组

makelot

以下程序用于判断单元格批注是否包含所有的信息片段，
测试当运行到递归语句时，提示运行时错误 28: 堆栈空间不足。
程序如何修改，还望高手帮助，不胜感激！

1. Function HasTheseCmts(TheCell As Range, ParamArray CmtArr() As Variant) As Boolean
   
2.    '判断单元格批注是否包含所有的信息片段
   
3.     Dim Item As Variant
   
4.     Set TheCell = TheCell(1)
   
5.     HasTheseCmts = False
   
6.     If Not TheCell.Comment Is Nothing Then
   
7.         For Each Item In CmtArr
   
8.             If IsArray(Item) Then
   
9.                 HasTheseCmts = HasTheseCmts(TheCell, Item) '运行时错误 28: 堆栈空间不足
   
10.             Else
    
11.                 If InStr(1, TheCell.Comment.Text, Item, vbTextCompare) > 0 Then
    
12.                     HasTheseCmts = True
    
13.                 Else
    
14.                     HasTheseCmts = False
    
15.                     Exit For
    
16.                 End If
    
17.             End If
    
18.         Next
    
19.     End If
    
20. End Function

复制代码

1. Sub HasTheseCmtsTest() 'B3单元格批注："PrnMark_DblTable_Table_Fst_Bgn"
   
2.     MsgBox HasTheseCmts([B3], "DblTable", "Table", "Fst", "Bgn")
   
3.     MsgBox HasTheseCmts([B3], Array("DblTable", "Table", "Fst", "Bgn"))
   
4.     MsgBox HasTheseCmts([B3], Array("DblTable", "Table"), Array("Fst", "Bgn"))
   
5.     MsgBox HasTheseCmts([B3], "DblTable", Array("Table"), Array("Fst", "Bgn"))
   
6. End Sub

复制代码

lsarydos

进入无限递归把内存消耗光了

makelot

lsarydos 发表于 2023-8-9 19:18
进入无限递归把内存消耗光了

测试完美，厉害，高手！
请问为什么加上这一句 If IsArray(CmtArr(0)) And UBound(CmtArr) = 0 Then Data = CmtArr(0) Else Data = CmtArr 就不报错了？

makelot

求助ChatGPT，解释如下：
这段代码中的 If 语句用于判断传递给函数的参数 CmtArr 是否为一个数组，并且数组的元素个数是否为1。如果满足这两个条件，则将 CmtArr(0) 赋值给变量 Data；否则，将整个 CmtArr 赋值给 Data。
首先，IsArray(CmtArr(0)) 判断 CmtArr(0) 是否为一个数组。这是因为在 VBA 中，可以将一个数组作为参数传递给函数。如果 CmtArr(0) 是一个数组，则表示传递给函数的参数 CmtArr 实际上是一个包含一个数组的数组。例如，CmtArr 可能是 Array(Array("a", "b", "c"))。
接下来，UBound(CmtArr) 返回数组 CmtArr 的上界索引。如果 CmtArr 是一个一维数组且只有一个元素，则 UBound(CmtArr) 的值为 0。这是因为数组的索引从 0 开始计数。
因此，IsArray(CmtArr(0)) And UBound(CmtArr) = 0 的判断条件表示传递给函数的参数 CmtArr 是一个包含一个数组的数组，并且这个数组只有一个元素。
如果满足这个条件，那么 CmtArr(0) 就是我们想要的数组，将其赋值给变量 Data。否则，将整个 CmtArr 赋值给 Data。
这样做的目的是为了确保在递归调用 HasTheseCmts 函数时，传递给它的参数 CmtArr 始终是一个一维数组。如果不进行这个判断，而直接将整个 CmtArr 传递给递归调用，会导致递归调用的堆栈空间不断增长，最终导致运行时错误 28：堆栈空间不足。
通过将 CmtArr 转换为只包含一个元素的数组，可以确保每次递归调用时，传递给函数的参数 CmtArr 都是一个一维数组，从而避免堆栈溢出的问题。

makelot

至于为什么这样做就可以确保在递归调用 HasTheseCmts 函数时，传递给它的参数 CmtArr 始终是一个一维数组？为什么如果不进行这个判断，而直接将整个 CmtArr 传递给递归调用，就会导致递归调用的堆栈空间不断增长？ChatGPT再解释如下：
当递归调用次数过多时，会导致堆栈空间的消耗过大，超过了系统所分配给程序的堆栈空间大小，就会发生堆栈溢出的错误。
在这段代码中，如果不进行判断直接将整个 CmtArr 传递给递归调用，就会导致递归调用的堆栈空间不断增长的原因是：
1. 假设 CmtArr 是一个包含多个数组的数组，例如 CmtArr = Array(Array("a", "b", "c"), Array("d", "e", "f"))。
2. 在第一次递归调用时，将整个 CmtArr 传递给函数，即 HasTheseCmts(TheCell, CmtArr)。
3. 在递归调用中，函数会遍历 CmtArr 中的每个元素，如果元素是数组，则继续递归调用 HasTheseCmts 函数。
4. 在第二次递归调用时，将第一个数组 Array("a", "b", "c") 作为参数传递给函数，即 HasTheseCmts(TheCell, Array("a", "b", "c"))。
5. 在第三次递归调用时，将第一个数组的第一个元素 "a" 作为参数传递给函数，即 HasTheseCmts(TheCell, "a")。
6. 在第四次递归调用时，将第一个数组的第一个元素的第一个字符 "a" 作为参数传递给函数，即 HasTheseCmts(TheCell, "a")。
7. 由于函数没有终止条件，递归调用会一直进行下去，导致堆栈空间不断增长，最终发生堆栈溢出的错误。
通过进行判断并将 CmtArr 转换为只包含一个元素的数组，可以避免上述情况的发生。这样做可以确保在递归调用 HasTheseCmts 函数时，传递给它的参数 CmtArr 始终是一个一维数组，而不是一个包含多个数组的数组。这样，递归调用就只会在一个维度上进行，不会无限扩展，从而避免了堆栈空间不断增长的问题。

makelot

为了验证ChatGPT对数组维度的理解是否和我一样，我让它按照自己的意思，举例说明怎样才是一维数组，怎样才是二维、三维数组，它的回答如下：
当我们谈论一维、二维、三维数组时，我们实际上是在描述数组的维度。
一维数组是最简单的数组形式，它只有一个维度。它可以被视为一个线性列表，其中每个元素都可以通过一个索引来访问。例如，[1, 2, 3, 4, 5] 是一个一维数组，其中每个元素都可以通过索引来访问，例如 arr[0] 是 1，arr[1] 是 2，以此类推。
二维数组是一个具有两个维度的数组。它可以被视为一个表格或矩阵，其中每个元素都可以通过两个索引来访问。例如，[[1, 2, 3], [4, 5, 6], [7, 8, 9]] 是一个二维数组，其中每个元素都可以通过两个索引来访问，例如 arr[0][0] 是 1，arr[1][2] 是 6，以此类推。
三维数组是一个具有三个维度的数组。它可以被视为一个立体结构，其中每个元素都可以通过三个索引来访问。例如，[[[1, 2], [3, 4]], [[5, 6], [7, 8]]] 是一个三维数组，其中每个元素都可以通过三个索引来访问，例如 arr[0][1][0] 是 3，arr[1][0][1] 是 6，以此类推。
在这段代码中，为了确保递归调用的参数 CmtArr 始终是一个一维数组，我们进行了判断和转换。如果 CmtArr 是一个二维或多维数组，我们将其转换为只包含一个元素的一维数组，以便递归调用只在一个维度上进行。

lsarydos

ParamArray  不限参数关键字,所以接收他的变量一定是一个数组CmtArr()  , 即使传入的是一个字符串 "abc" 也需要CmtArr(0) 来取值, 所以当你那个程序 isarray(item)  item是一个数组进行递归的时候  实际数组在CmtArr(0) 中     for each item in CmtArr   每次取出的都是CmtArr(0)中的这个数组  也就是一个死循环,最后结果就是内存消耗光,这种情况只出现在最后一层数组的时候,所以做个判断  如果item是数组 且CmtArr中只有一个结果时  将CmtArr中的数组取出循环即可 , 你原来的递归也没有一个退出条件

makelot

lsarydos 发表于 2023-8-11 16:36
ParamArray  不限参数关键字,所以接收他的变量一定是一个数组CmtArr()  , 即使传入的是一个字符串 "abc" 也 ...

谢谢！您的解释对于 ([B3], Array("DblTable", "Table", "Fst", "Bgn")) 这种情况我明白，但对于 ([B3], Array("DblTable", "Table"), Array("Fst", "Bgn")) 这种情况我还是不明白。能不能麻烦您再解释一下，非常感谢！

lsarydos

makelot 发表于 2023-8-11 19:23
谢谢！您的解释对于 (, Array("DblTable", "Table", "Fst", "Bgn")) 这种情况我明白，但对于 (, Array("D ...

([B3], Array("DblTable", "Table"), Array("Fst", "Bgn"))
按你原来没做判断的情况   cmtarr = {Array("DblTable", "Table"), Array("Fst", "Bgn")}  进入递归  cmtarr = {Array("DblTable", "Table")}  cmtarr(0)才是Array("DblTable", "Table")这个数组  没取值的话 item in cmtarr 的这个item 变量永远 = Array("DblTable", "Table")这个数组 所以会无限递归

做了判断的情况: cmtarr = {Array("DblTable", "Table"), Array("Fst", "Bgn")}  判断 cmtarr(0)是数组但下标为1则为假   data = {Array("DblTable", "Table"), Array("Fst", "Bgn")}    item = Array("DblTable", "Table") 进入递归 cmtarr = {Array("DblTable", "Table")} 再次判断是数组下标为0  data = Array("DblTable", "Table") 去掉一层数组  item = "DblTable"

这个是因为ParamArray会把参数自动放入一个数组中引起的,传入一个数组相当于数组又套了一个数组 需要处理一下,不使用这个关键字不会出现这个情况

makelot

lsarydos 发表于 2023-8-11 19:39
(, Array("DblTable", "Table"), Array("Fst", "Bgn"))
按你原来没做判断的情况   cmtarr = {Array("Dbl ...

谢谢！抱歉还得问您一次，下面这个程序为什么不用考虑剥皮的情况呢？

1. Sub Main()
   
2.     Dim nestedArray As Variant
   
3.     nestedArray = Array(Array(), 1, Array(2, Array(3, 4), 5), Array(6, 7, Array(8, 9, Array(10))))
   
4.     ListAllElements nestedArray
   
5. End Sub

复制代码

1. Sub ListAllElements(arrayTmp As Variant)
   
2.     Dim Item As Variant
   
3.     For Each Item In arrayTmp
   
4.         If IsArray(Item) Then
   
5.             ListAllElements Item
   
6.         Else
   
7.             Debug.Print Item;
   
8.         End If
   
9.     Next Item
   
10. End Sub

复制代码