VBA解析复合文档01——实现的功能

实现功能：

Parse

'解析复合文档，获取复合文档文件信息'ir         一个实现了IReadWrite接口的类'Return     返回出错信息Function Parse(ir As IReadWrite) As String

这个函数是基础，只有先执行了这个函数，后面的函数才能正确执行。

GetStream

'读取某个数据流'dir_name   需要读取的文件名称，是复合文档中的文件名称'RetBytes   返回的数据Byte数组'Return     返回出错信息Function GetStream(dir_name As String, RetBytes() As Byte) As String

GetAllStream

'获取所有Stream，并保存为文件'SavePath   保存文件的路径'Return     返回出错信息Function GetAllStream(SavePath As String) As String

这个功能就相当于使用7Z压缩软件解压一个复合文档，将数据流单独存放为文件。

ReWriteStream

'改写数据流'dir_name   需要被改写的文件名称，是复合文档中的文件名称'WriteBytes 需要改写为的数据Byte数组'Return     返回出错信息Function ReWriteStream(dir_name As String, WriteBytes() As Byte) As String