Skip to content

Instantly share code, notes, and snippets.

@b4tman
Last active April 20, 2016 13:20
Show Gist options
  • Save b4tman/11025977 to your computer and use it in GitHub Desktop.
Save b4tman/11025977 to your computer and use it in GitHub Desktop.
Автоматическая распаковка дистрибутивов конфигураций 1C 7.7. Позволяет распаковывать 16 разрядные установщики на 64 разрядных ОС.
@echo off
echo Автоматическая распаковка дистрибутивов конфигураций 7.7
echo --------------------------------------------------------
echo (c) 2012, Decker, andrewks
rem http://dml.compkaluga.ru/forum/index.php?showtopic=54199
rem необходим распаковщик STIX
rem (http://www.kannegieser.net/veit/quelle/stix_src.arj)
rem более шустрая версия для Windows 7 и выше
rem создаёт символические ссылки вместо копирования файлов
rem mklink требует админа
if "%1"=="admin" goto admin
set __COMPAT_LAYER=RunAsAdmin
start /B "" cmd.exe /c %0 admin
goto EOF
:admin
%~d0
cd %~dp0
FOR /r %%c in (std*.z) do echo %%~nxc >> files.lst
FOR /r %%c in (std*.1) do echo %%~nxc >> files.lst
FOR /r %%c in (std*.??) do echo %%~nxc >> files.lst
FOR /r %%c in (std*.??) do mklink %%~nxc "%%~dpnxc"
FOR /F "tokens=1" %%i IN (files.lst) DO stix_w32.exe %%~nxi unp
FOR /F "tokens=1" %%i IN (files.lst) DO del %%~nxi /q
del files.lst /q
:EOF
@echo off
echo Автоматическая распаковка дистрибутивов конфигураций 7.7
echo --------------------------------------------------------
echo (c) 2012, Decker, andrewks
rem http://dml.compkaluga.ru/forum/index.php?showtopic=54199
rem необходим распаковщик STIX
rem (http://www.kannegieser.net/veit/quelle/stix_src.arj)
FOR /r %%c in (std*.z) do echo %%~nxc >> files.lst
FOR /r %%c in (std*.1) do echo %%~nxc >> files.lst
FOR /r %%c in (std*.??) do echo %%~nxc >> files.lst
FOR /r %%c in (std*.??) do copy "%%~dpnxc" .
FOR /F "tokens=1" %%i IN (files.lst) DO stix_w32.exe %%~nxi unp
FOR /F "tokens=1" %%i IN (files.lst) DO del %%~nxi /q
del files.lst /q
@b4tman
Copy link
Author

b4tman commented Apr 18, 2014

На конфигурации УСН обнаружен баг: файл 1cv7.md обнуляется после распаковки одной из частей многотомного архива. Решается прерыванием распаковки до обнуления файла.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment