不解压直接读取zip压缩包

enxianabc

我们知道Power Query能够连接很多不同格式的数据源，但同时还有很多是不能直接支持的，比如word文档、压缩包等等。
有这样一种场景：源数据来自于网络或者远程服务器，每天更新，文件格式是zip，压缩包内有csv。
如果不能直接读取zip，那么我们需要每天把zip下载下来，解压后再导入Power Query，非常麻烦，有什么办法可以解决这个问题呢？

张文洲

1. // 定义文件解压函数
   
2. UnZipFiles = (ZIPFile) =>
   
3. let
   
4.     Header = BinaryFormat.Record([
   
5.         MiscHeader = BinaryFormat.Binary(14),
   
6.         BinarySize = BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger32, ByteOrder.LittleEndian),
   
7.         FileSize   = BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger32, ByteOrder.LittleEndian),
   
8.         FileNameLen= BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger16, ByteOrder.LittleEndian),
   
9.         ExtrasLen  = BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger16, ByteOrder.LittleEndian)   
   
10.     ]),
    
11. 
    
12.     HeaderChoice = BinaryFormat.Choice(
    
13.         BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger32, ByteOrder.LittleEndian),
    
14.         each if _ <> 67324752             // not the IsValid number? then return a dummy formatter
    
15.             then BinaryFormat.Record([IsValid = false, Filename=null, Content=null])
    
16.             else BinaryFormat.Choice(
    
17.                     BinaryFormat.Binary(26),      // Header payload - 14+4+4+2+2
    
18.                     each BinaryFormat.Record([
    
19.                         IsValid  = true,
    
20.                         Filename = BinaryFormat.Text(Header(_)[FileNameLen]),
    
21.                         Extras   = BinaryFormat.Text(Header(_)[ExtrasLen]),
    
22.                         Content  = BinaryFormat.Transform(
    
23.                             BinaryFormat.Binary(Header(_)[BinarySize]),
    
24.                             (x) => try Binary.Buffer(Binary.Decompress(x, Compression.Deflate)) otherwise null
    
25.                         )
    
26.                         ]),
    
27.                         type binary                   // enable streaming
    
28.                 )
    
29.     ),
    
30. 
    
31.     ZipFormat = BinaryFormat.List(HeaderChoice, each _[IsValid] = true),
    
32. 
    
33.     Entries = List.Transform(
    
34.         List.RemoveLastN( ZipFormat(ZIPFile), 1),
    
35.         (e) => [FileName = e[Filename], Content = e[Content] ]
    
36.     )
    
37. in
    
38.     Table.FromRecords(Entries)
    
39. 
    
40. // 调用文件解压函数   
    
41. let
    
42.     源 = File.Contents("C:\Users\Administrator\Desktop\ZipFile\新建文件夹.zip"),
    
43.     Resulte = UnZipFiles(源)
    
44. in
    
45.     Resulte

复制代码

张文洲

UnZipFiles Code.rar (823 Bytes, 下载次数: 55)

2018-4-26 22:38 上传

点击文件名下载附件

enxianabc

非常感谢，这个好高大上。

zpy2

这个高端的，没用第三方库啊！

zpy2

UnZipFiles = (ZIPFile) =>
  // enable streaming
       python?

zpy2

unzip.exe rar.exe 应该可以解压吧，直接读取openxml或许可以，不过没试过。https://msdn.microsoft.com/en-us/library/bb448854(office.14).aspx

zpy2

https://msdn.microsoft.com/en-us/library/system.io.compression.zipfile.openread(v=vs.110).aspx
这篇文章可以看看

天道酬勤y

这个太炫了