VBA解析VBAProject 05——提取模块代码

'读取某个模块的代码
'ModuleName 模块的名称
'StrCode    返回模块的代码
'Return     返回出错信息
Function GetModuleCode(ModuleName As String, ByRef StrCode As String) As String
    Dim ret As String
    
    Dim b() As Byte
    '读取原始的流
    ret = cf.GetStream(PrePath & "VBA\" & ModuleName, b)
    If VBA.Len(ret) Then
        GetModuleCode = ret
        Exit Function
    End If
    
    'vba代码只是后面的一部分
    Dim bCode() As Byte
    
    Dim moduleIndex As Long
    moduleIndex = GetModuleIndex(ModuleName)
    If moduleIndex = -1 Then
        GetModuleCode = "CVBAProject: 在ModuleInfo_中没有找到模块[" & ModuleName & "]"
        Exit Function
    End If
    
    Dim i As Long, j As Long
    '跳过前面不需要的部分
    ReDim bCode(UBound(b) - ModuleInfo_(moduleIndex).Offset) As Byte
    For i = ModuleInfo_(moduleIndex).Offset To UBound(b)
        bCode(i - ModuleInfo_(moduleIndex).Offset) = b(i)
    Next
    
    ''run length encoding解码dir流
    Dim cr As CRLE
    Set cr = New CRLE
    ret = cr.UnCompress(bCode, bCode)
    If VBA.Len(ret) Then
        GetModuleCode = ret
        Exit Function
    End If
    Set cr = Nothing
    
    StrCode = VBA.StrConv(bCode, vbUnicode)
End Function