[开_144]提示冗余的变量和常量[已总结]

清风_ll

感谢几位的热情参与，正如Lee1892童鞋在3楼所提出的这种情况，之前的确没有考虑到。还有代码后面的注释也不容易判断，是正则表达式不能完成的任务；越来越觉得这个课题真的不容易完成，但是我相信几位的代码针于个人的代码书写习惯应该都是可以实现。{:soso_e179:}
感慨一下：有一个标准的书写规范是多么重要啊！

jsxjd

确实版主的题目有一定难度，需要考虑的方面比较多。
续行
两类注释（' 、Rem）
两类标签（纯数字的、后面带冒号的）
字符串常量
汉字等特殊字符变量
Redim 定义的变量和使用的变量

清风_ll

lee1892 发表于 2013-8-5 16:32
写得贼啰嗦，本来是为了应付普遍检查的~~

把检查用的代码放出来呗。

分离此类变量可以通过判断括号是否成对出现来定位一个变量。以下针对该字符串实现的代码。

Sub GetRedimVar()

    Dim sStr As String
    sStr = "Redim arr(UBound(Array(1, 2)), UBound(Array(2, 3))), brr(UBound(Array(1, 2)), UBound(Array(2, 4)))"
    sStr = Mid(sStr, 7, Len(sStr))
    sStr = Replace(sStr, ", ", "")
    GetRedimV sStr

End Sub

Function GetRedimV(s As String)
    Dim k As Long, cnt As Long, i As Long
    k = InStr(1, s, "(")
    If k > 0 Then Debug.Print Mid(s, 1, k - 1)
    cnt = 1
    For i = k + 1 To Len(s)
        If Mid(s, i, 1) = "(" Then
            cnt = cnt + 1
        ElseIf Mid(s, i, 1) = ")" Then
            cnt = cnt - 1
        End If
        If cnt = 0 Then
            GetRedimV Mid(s, i + 1, Len(s))
            Exit Function
        End If
    Next
End Function

清风_ll

没仔细看Lee1892帖中的代码，基本相同。{:soso_e106:}

jsxjd

清风_ll 发表于 2013-10-3 20:36
分离此类变量可以通过判断括号是否成对出现来定位一个变量。以下针对该字符串实现的代码。

Sub GetRed ...

1. Sub GetRedimVar_2() '保留数组声明的原始定义
   
2.     Dim sStr As String
   
3.     sStr = "Redim crr(1,2,3),arr(UBound(Array(1, 2)), UBound(Array(Array(Array(2, 3), 3), 3))), brr(UBound(Array(1, 2)), UBound(Array(2, 4)))"
   
4.     For Each s In Split(GetRedimV_2(sStr), "|")
   
5.         Debug.Print s
   
6.     Next
   
7. End Sub
   
8. 
   
9. Function GetRedimV_2(s As String) As String
   
10.     s = Trim(Mid(Trim(s), 7))
    
11.     For i = 1 To Len(s)
    
12.         c = Mid(s, i, 1)
    
13.         If VarNameStart = 0 Then
    
14.             If c <> "," And c <> " " Then
    
15.                 VarNameStart = i
    
16.                 i = InStr(i, s, "(")
    
17.                 ParenthesesNumber = 1
    
18.             End If
    
19.         Else
    
20.             ParenthesesNumber = ParenthesesNumber + IIf(c = "(", 1, IIf(c = ")", -1, 0))
    
21.             If ParenthesesNumber = 0 Then
    
22.                 GetRedimV_2 = GetRedimV_2 & "|" & Mid(s, VarNameStart, i - VarNameStart + 1)
    
23.                 VarNameStart = 0
    
24.             End If
    
25.         End If
    
26.     Next
    
27.     If Len(GetRedimV_2) > 0 Then GetRedimV_2 = Right(GetRedimV_2, Len(GetRedimV_2) - 1)
    
28. End Function

复制代码

清风_ll

因为这段时间忙得焦头烂额，所以这个题目一拖再拖，实在抱歉得很。抽空简单总结一下。
1、测评结果：


2、存在问题：
几位参赛者都存在的一个问题是，检验变量是否已使用都在所有代码中查找，而不是在定义以后的代码中查找，这样在以下情况下有缺陷。

Sub Test1()
    Dim a$, s
    a = Left(s, k - 1)
    Dim k As Long
    ReDim arrCommentsPos(lngStart To lngEnd, 1)
        
End Sub

lee1892

清风_ll 发表于 2013-10-13 23:08
因为这段时间忙得焦头烂额，所以这个题目一拖再拖，实在抱歉得很。抽空简单总结一下。
1、测评结果：

嗯，看来记录行号是有用处的，呵呵。

原本你出题全面查的时候就开始写了，所以上来就先构造了一堆自定义的数据类型，改题后就顺着写了。

数据组织好对理清思路还是很有帮助的，扩展功能、修订问题、调试代码等，相对也容易很多。

另外感觉正则表达式写相对容易，一旦长的话要读懂含义可真不容易～

清风_ll

我的作业，有些发现的问题只能以后再完善了。
检查冗余变量.rar (23.91 KB, 下载次数: 19)

2013-10-14 00:33 上传

点击文件名下载附件