Переведено на библиотеку v8unpack.

Author: dmpas

bin/v8unpack.exe

@@ -11,6 +11,7 @@
 		.ЗависитОт("v8runner", "0.7.0")
 		.ЗависитОт("strings")
 		.ЗависитОт("1commands", "1.1.1")
+		.ЗависитОт("v8unpack")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")
 		.ВключитьФайл("features")

packagedef

@@ -13,6 +13,7 @@
 #Использовать v8runner
 #Использовать strings
 #Использовать 1commands
+#Использовать v8unpack
 
 Перем Лог;
 Перем мФайлПрограммыРаспаковки;
@@ -383,18 +384,9 @@
 КонецПроцедуры
 
 Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки)
-	ФайлДляРаспаковки = Новый файл(ФайлРаспаковки);
-	Если КаталогРаспаковки = "" тогда
-		КаталогРаспаковки = ВременныеФайлы.СоздатьКаталог();
-	КонецЕсли;
-
-	СтрокаЗапуска = """"+ФайлПрограммыРаспаковки()+""" -parse """+ФайлДляРаспаковки.ПолноеИмя+""" """+КаталогРаспаковки+"""";
-	Если НЕ ЭтоWindows Тогда
-		СтрокаЗапуска = "sh -c '"+СтрокаЗапуска+"'";
-	КонецЕсли;
-	Лог.Отладка(СтрокаЗапуска);
 
-	ЗапуститьПриложение(СтрокаЗапуска,,Истина);
+	Распаковщик = Новый ЧтениеФайла8(ФайлРаспаковки);
+	Распаковщик.ИзвлечьВсе(КаталогРаспаковки, Истина);
 
 КонецПроцедуры