Код:
@Echo Off
cls
>nul chcp 1251
Set "BoxIn=Z:\Путь к файлу"
Set "FileIn=Нужно привести файл в нужный формат.txt"
Md "%BoxIn%\%~nx0.tmp"
>"%BoxIn%\%~nx0.tmp\%FileIn%" (FOR /F "usebackq tokens=1,2,3 delims=;" %%i IN (`2^>nul More "%BoxIn%\%FileIn%"`) Do Call :Out "%%~i" "%%~j" "%%~k")
"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
:Out
If %1=="" Exit /B 1
Set "Str=%~2"
If /I %3=="Выход" Set "Str=%~1;%Str: =;%;2;1"
If /I %3=="Вход" Set "Str=%~1;%Str: =;%;1;1"
Echo %Str%
Exit /B
