Excel VBA宏处理.h文件：多行注释排除逻辑问题求助

你的代码核心问题出在StrComp的判断逻辑搞反了，同时未考虑注释标记非整行、同一行同时出现开闭注释的场景：

• StrComp函数返回0表示两个字符串相等，非0表示不等。你原代码中If (StrComp(FileLine, "/*")) Then实际是当该行不等于"/*"时才执行赋值，完全和预期逻辑相反
• 未处理/*前有空格、或与代码混在同一行的情况（比如 /* 开始注释）
• 同一行内同时出现/*和*/时，会错误地先开启再关闭注释，导致状态异常

解决方案 #

修正判断逻辑，完善多行注释的状态管理，同时覆盖单行注释、行内混合注释的场景，以下是修正后的代码片段：

Dim CommentStarted As Integer
CommentStarted = 0 ' 初始状态：未进入多行注释

While Not EOF(1)
    Line Input #1, FileLine
    CurLineNum = CurLineNum + 1
    Dim tempLine As String
    tempLine = Trim(FileLine) ' 去除首尾空格，方便判断注释标记
    
    ' 先处理单行//注释：截取//之前的有效内容
    Dim slashPos As Integer
    slashPos = InStr(tempLine, "//")
    If slashPos > 0 Then
        tempLine = Left(tempLine, slashPos - 1)
    End If
    
    ' 处理多行注释状态：先检查是否在注释中，再处理结束标记
    If CommentStarted = 1 Then
        Dim endCommentPos As Integer
        endCommentPos = InStr(tempLine, "*/")
        If endCommentPos > 0 Then
            CommentStarted = 0
            ' 截取*/之后的内容，继续检查是否有#define
            tempLine = Mid(tempLine, endCommentPos + 2)
        Else
            ' 整行都在注释内，跳过后续处理
            GoTo NextLine
        End If
    End If
    
    ' 非注释状态下，检查是否有多行注释开始标记
    Dim startCommentPos As Integer
    startCommentPos = InStr(tempLine, "/*")
    If startCommentPos > 0 Then
        CommentStarted = 1
        ' 检查同一行是否有结束标记在/*之后
        endCommentPos = InStr(startCommentPos + 2, tempLine, "*/")
        If endCommentPos > 0 Then
            CommentStarted = 0
            ' 截取/*之前的内容，用于处理#define
            tempLine = Left(tempLine, startCommentPos - 1)
        Else
            tempLine = Left(tempLine, startCommentPos - 1)
        End If
    End If
    
    ' 处理#define：仅当不在注释中，且行内包含有效#define
    Dim definePos As Integer
    definePos = InStr(tempLine, "#define")
    If definePos > 0 Then
        ' 此处添加你的重复定义查找逻辑
        ' 例如提取宏名、记录行号等
        Debug.Print "找到#define 行号：" & CurLineNum & " 内容：" & tempLine
    End If
    
NextLine:
Wend

关键修改说明 #

1. 替换StrComp为InStr：更灵活地查找注释标记，支持标记非整行的场景
2. 状态处理顺序优化：先处理注释结束、再处理注释开始，避免同一行内开闭标记导致的状态混乱
3. 单行注释优先截断：避免把//注释里的/*误判为多行注释开始
4. 行内混合注释兼容：同一行同时出现/*和*/时，正确切换状态并保留注释外的有效代码

内容的提问来源于stack exchange，提问作者Edo