Для тех, кто в танке

buchOfficePack – fxUnzip – часть 1 ядро

#АнатомияФункций - buchOfficePack



Всем привет!

Ну что ж – началось – пилим библиотеку на камеру.

Видос уже на Ютубе

Код для страждущих тут:

(ZIP)=>

    [

    u16 =BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger16,ByteOrder.LittleEndian),

    u32 =BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger32,ByteOrder.LittleEndian),

    get=(x)=>BinaryFormat.Record(

        if Binary.Range(x,0,4)=#binary({0x50,0x4b,0x03,0x04})

        then [  Name=BinaryFormat.Text(u16(Binary.Range(x,26,2))),

                Extr=BinaryFormat.Binary(u16(Binary.Range(x,28,2))),

                Value=BinaryFormat.Transform(BinaryFormat.Binary(u32(Binary.Range(x,18,4))),(x)=>Binary.Decompress(x,Compression.Deflate)),

                flag=true]

        else [flag=false]

    ),

    lst = BinaryFormat.List(BinaryFormat.Choice(BinaryFormat.Binary(30),get),(x)=>x[flag]=true)(ZIP),

to = Table.FromRecords(List.RemoveLastN(lst,1),type table [Name=text,Value=binary])][to]

Если это начинание кажется полезным просьба не забывать подписываться на ютуб, ставить лайки и оставлять комментарии.



Надеюсь, было полезно.

Всех благ!

@buchlotnik