Код:
@Echo Off
cls
>nul chcp 1251
Set "BoxIn=Z:\Путь к файлу"
Set "FileIn=Дан файл.txt"
Set "@R01="="
Set "@R02= =;"
Set "@R03=Выход=2"
Set "@R04=Вход=1"
Md "%BoxIn%\%~nx0.tmp"
>"%BoxIn%\%~nx0.tmp\%FileIn%" (FOR /F "usebackq delims=" %%s IN (`2^>nul More "%BoxIn%\%FileIn%"`) Do (
Set "Str=%%s"
FOR /F "usebackq tokens=1* delims==" %%q IN (`Set "@R"`) Do Call Set "Str=%%Str:%%r%%"
Call Echo %%Str%%
))
"C:\Program Files\7-Zip\7z.exe" a -tzip -ssw -mx1 -ppassword -r0 "%DATE:~0,2%.%DATE:~3,2%.%DATE:~-4%_4800_01.7z" "%BoxIn%\%~nx0.tmp\%FileIn%"
Rd /S /Q "%BoxIn%\%~nx0.tmp"
pause
Exit /B 0
