Распаковка zip архива на примере файла формата OpenXML

#using "System.dll"
#using "WindowsBase.dll"
#using "System.xml.dll"

    using namespace System::IO;
    using namespace System::Text;
    using namespace System::Xml;
    using namespace System::Xml::XPath;
    using namespace System::IO::Packaging;

            Package ^pkg = Package::Open(file.xlsx, FileMode::Open, FileAccess::Read);
            PackagePartCollection ^packagePartCol = pkg->GetParts();
            PackageRelationshipCollection ^packageRelCol = pkg->GetRelationships();
 
            pkg->Close();
            delete pkg;

#using "System.dll"
#using "WindowsBase.dll"
#using "System.xml.dll"
 
    using namespace System::Text;
    using namespace System::Text::RegularExpressions;
    using namespace System::Xml;
    using namespace System::Xml::XPath;
    using namespace System::IO::Packaging;

            Package ^pkg = Package::Open(xlsx_file_name, FileMode::Open, FileAccess::Read); //  распаковываем архив
            PackagePartCollection ^packagePartCol = pkg->GetParts();                    //  получаем ссылки на все части архива
            array<String ^> ^sharedstrings = gcnew array<String ^>(1000);               //  массив для хранения набора текстовых строк из файла /xl/sharedStrings.xml
            array<String ^> ^sheets = gcnew array<String ^>(5) {"/xl/worksheets/sheet1.xml", 
                "/xl/worksheets/sheet2.xml", "/xl/worksheets/sheet3.xml", 
                "/xl/worksheets/sheet4.xml", "/xl/worksheets/sheet5.xml"};                                 // обрабатываем 5 вкладок файла xlsx
            array <System::String ^, 3> ^xls_data = gcnew array <System::String ^, 3>(5, 30, 50);  //     сохраняем содержимое xlsx файла в 3-мерный массив
                        for each (PackagePart ^pp in packagePartCol)                                //  ищем среди распакованных файлов нужный (со строками)
                if (pp->Uri->OriginalString == L"/xl/sharedStrings.xml")
                {
                    Stream ^fs = pp->GetStream();
                    array<Byte> ^by = gcnew array<Byte>(fs->Length);
                    fs->Read(by, 0, fs->Length);
                    String ^str_by = UTF8Encoding::UTF8->GetString(by);
                    int i = 0;
                    Regex ^reg = gcnew Regex("<t.*?>(?<capture>.*?)</t>");
                    for (Match ^m = reg->Match(str_by); m->Success; m = m->NextMatch())
                    {
                        sharedstrings[i] = m->Groups["capture"]->Value;
                        ++i;
                    }
                    delete(IDisposable ^) fs;
                }
            for (int sh = 0; sh<5; ++sh)                                                             //  перебор по пяти вкладкам
                for each (PackagePart ^pp in packagePartCol)
                    if (pp->Uri->OriginalString == sheets[sh])
                    {
                        Stream ^fs = pp->GetStream();
                        array<Byte> ^by = gcnew array<Byte>(fs->Length);
                        fs->Read(by, 0, fs->Length);
                        String ^str_by = UTF8Encoding::UTF8->GetString(by);
                        Regex ^reg = gcnew Regex("<row.+?r="(?<row>[0-9]+?)".*?>(?<cells>.*?)</row>");
                        for (Match ^m = reg->Match(str_by); m->Success && Int32::Parse(m->Groups["row"]->Value)<30; m = m->NextMatch())                                      //   находим строки
                        {
                            int row = Int32::Parse(m->Groups["row"]->Value);
                            int col = 0;
                            String ^cells = m->Groups["cells"]->Value;
                            String ^cell_pattern =  "<c.+?r="(?<index>[A-Z]+?[0-9]+?)".*?";     //  ищем индекс ячейки |<c r="D3" ...|
                            cell_pattern +=         "(((t="(?<type>[a-zA-z]+?)")?>";                //  ищем тип ячейки, если он есть  |t="s">| (см. Open Xml Standart, часть 1, глава 18.18.11)
                            cell_pattern +=         "((<v.*?>(?<digit>[0-9]+?)</v>)|";              //  ищем номер значения из sharedstrings, если оно есть |<v>30</v>| или
                            cell_pattern +=         "(<is.*?><t.*?>(?<inlinestr>.*?)</t></is>))";   //  или считываем его отсюда |<is><t>inline_string</t></is>|
                            cell_pattern +=         "</c>)|(/>))";                                  //  проверяем, а было ли что-то в ячейке <c ...>...</c> или она пустая <c .../>
                            Regex ^reg_c = gcnew Regex(cell_pattern);
                            for (Match ^mm = reg_c->Match(cells); mm->Success && col<50; mm = mm->NextMatch())                                     //      обрабатываем все ячейки из строки
                            {
                                String ^cell_index = mm->Groups["index"]->Value;
                                if (mm->Groups["type"]->Value == "s")
                                    xls_data[sh, row-1, col] = sharedstrings[Int32::Parse(mm->Groups["digit"]->Value)];                    //     записываем значение в 3-мерный массив строк: sh - номер вкладки, row - номер строки, col - номер столбца
                                else if (mm->Groups["type"]->Value == "b")
                                    xls_data[sh, row-1, col] = "Boolean type of cell in XLSX file";
                                else if (mm->Groups["type"]->Value == "d")
                                    xls_data[sh, row-1, col] = "Date format of cell";
                                else if (mm->Groups["type"]->Value == "e")
                                    xls_data[sh, row-1, col] = "Error cell in XLSX file";
                                else if (mm->Groups["type"]->Value == "n")
                                    xls_data[sh, row-1, col] = mm->Groups["digit"]->Value;
                                else if (mm->Groups["type"]->Value == "str")
                                    xls_data[sh, row-1, col] = "Cell contain formula string";
                                else if (mm->Groups["type"]->Value == "inlineStr")
                                    xls_data[sh, row-1, col] = mm->Groups["inlinestr"]->Value;
                                else if (mm->Groups["type"]->Value == "" && mm->Groups["digit"]->Value != "")
                                    xls_data[sh, row-1, col] = mm->Groups["digit"]->Value;
                                else xls_data[sh, row-1, col] = "Undefined value (out of table)";
                                ++col;
                            }
                        }
                    delete(IDisposable ^) fs;
                    }
            pkg->Close();
            delete pkg;