怎样用代码读取一个zip文件内的一个文本类文件的内容，参看附件

weist123

怎样用代码读取一个zip文件内的一个文本类文件的内容

1、需要用代码读取一个zip文件内的一个文本类文件的内容。调用外部7zip等程序也行；
2、需要读取这个文本文件的固定字段后面的内容：


请看附件，这个文本文件只是被改名为bookinfo.dat
内容是：


[General Information]
书名=粒状材料水力学
作者=Д.М.明滋  С.А.舒别尔特
页数=108
SS号=10254107
DX号=
出版日期=1957年11月第1版
出版社=水利出版社


需要读取“页数=”，后面的页码数字，赋值给变量。
“页数=”所在的行数不固定，但形式一定是““页数=”数字”，而且这个“页数=”在文本里是唯一的。


实在是个大难题，求老师帮忙！！


10254107.zip (31.23 KB, 下载次数: 43)

2016-1-1 10:00 上传

点击文件名下载附件

weist123

最好是在内存中提取，不要解压的磁盘，因为太多了。

Moneky

weist123 发表于 2016-1-1 11:05
最好是在内存中提取，不要解压的磁盘，因为太多了。

在哪里读应该都会解压吧。
与其等待不如用这段时间解压，然后读普通文本

weist123

这个我查了很多资料，要用zip，winrar等软件，恐怕要解压。
但现在csdn上也有人开发不少dll，说是可以在内存中直接读取，我就是不会用。

比如：QuickZip、SharpZipLib

http://blog.csdn.net/ZIP_xG/article/details/5764299
http://blog.csdn.net/ZIP_xG/article/details/5761592

希望老师们参考。

excelhomesnake

weist123 发表于 2016-1-1 11:52
这个我查了很多资料，要用zip，winrar等软件，恐怕要解压。
但现在csdn上也有人开发不少dll，说是可以在内 ...

是在内存中解压，不是直接可以提取的…

小fisher

Example.rar (100.74 KB, 下载次数: 160)

2016-1-5 09:16 上传

点击文件名下载附件

请查看附件，打开.xlsm文件前需要先运行install.bat

weist123

小fisher 发表于 2016-1-5 09:19
请查看附件，打开.xlsm文件前需要先运行install.bat

谢谢老师指导！

但是您的附件里面没有.xlsm文件啊，没有VBA程序。怎样用呢？

weist123

希望有老师能解决！！查遍了网络了！

zhuang1862

不使用压缩DLL在内的压缩工具，以下程序可以枚举ZIP文件中的文件信息。
Option Explicit

Private mintCnt As Integer

Private Function IsFolder(ByVal SrcPath As String) As Boolean
  IsFolder = CreateObject("Scripting.FileSystemObject").FolderExists(SrcPath)
End Function

Sub sListZipFile()
  psListZipFile "F:\Demo.zip"
End Sub

Sub psListZipFile(ByVal ivrtSPath As Variant, Optional ByVal ivrtTPath As Variant = "")
  Dim pobjSrc As Object
  Dim pbytTmp As Byte
  
  With CreateObject("Scripting.FileSystemObject")
    If .FileExists(ivrtSPath) = False Then Exit Sub
    If LCase(.GetExtensionName(ivrtSPath)) <> "zip" Then Exit Sub
    If IsFolder(ivrtTPath) = False Then ivrtTPath = .GetFile(ivrtSPath).ParentFolder.Path
  End With
  
  Application.ScreenUpdating = False
  With Me
    .Range(.UsedRange.Address).Delete
    With CreateObject("Shell.Application")
      Set pobjSrc = .Namespace(ivrtSPath)
      For pbytTmp = 0 To 8
        DoEvents
        Me.Cells(1, pbytTmp + 2) = pobjSrc.GetDetailsOf(, pbytTmp)
      Next
      mintCnt = 0
      psReadFileInfo pobjSrc
    End With
    .Columns.AutoFit
  End With
  Application.ScreenUpdating = True
  Set pobjSrc = Nothing
End Sub

Private Sub psReadFileInfo(objSrc As Object)
  Dim pobjTmp As Object
  Dim pbytTmp As Byte
  Dim pobjTnp As Object
  
  For Each pobjTmp In objSrc.items
    DoEvents
    If pobjTmp.IsFolder Then
      Set pobjTnp = pobjTmp.GetFolder
      psReadFileInfo pobjTnp
      Set pobjTnp = Nothing
    Else
      mintCnt = mintCnt + 1
      Me.Cells(mintCnt + 1, 1) = mintCnt
      For pbytTmp = 0 To 8
        DoEvents
        Me.Cells(mintCnt + 1, pbytTmp + 2) = objSrc.GetDetailsOf(pobjTmp, pbytTmp)
      Next
    End If
  Next
  Set pobjTmp = Nothing
End Sub