::Выделение из файла параметров объекта
::Автор Starter АМК форум
::------------------------
::Ожидание ввода
::Удаление комментариев
::Выделение из файла и перенос в %namefile%_%sp%_config_out.txt

@echo off
title Выделение из файла параметров объекта
:zanovo
if not exist %SystemDrive%\temp\starter_bat (mkdir %SystemDrive%\temp\starter_bat)
set ptmp=%SystemDrive%\temp\starter_bat
set outfile=config_out.txt
set file=*.ltx
FOR /L %%i IN (1,1,10) DO (if exist %ptmp%\tmp%%i.txt (del /q %ptmp%\tmp%%i.txt)
set tmp%%i=%ptmp%\tmp%%i.txt)
if exist *%outfile% del /q *%outfile%
@echo Выделение из файла параметров объекта
@echo Автор Starter АМК форум
@echo.
set /p spv=Введите имя секции (например: novice_outfit):
set sp=[%spv%]
@echo %sp%
cls
@echo Поиск %sp% ...
for /f "tokens=1 delims=;" %%i in ('findstr /b /v ";.*" %file%') do 1>>%tmp1% echo %%i
(
SETLOCAL EnableDelayedExpansion
set "TYPE=N"& for /f "usebackq delims=" %%a in (%tmp1%) do (set "$a=%%a"
if not "!$a!"=="!$a:%sp%=!" set "TYPE=Y"
if "!TYPE!"=="Y" echo !$a!
))>"%tmp2%"
for /f "tokens=1* delims=:" %%a in (%tmp2%) do (set namefile=%%a
@echo !namefile! !sp!>>!namefile!_%sp%_%outfile%
@echo -------------------->>!namefile!_%sp%_%outfile%
@echo.>>!namefile!_%sp%_%outfile%
@echo.%%b>>!namefile!_%sp%_%outfile%
goto next)
:next
(
SETLOCAL EnableDelayedExpansion
set "TYPE=N"& for /f "usebackq skip=1 delims=" %%a in (%tmp2%) do (set "$a=%%a"
if not "!$a!"=="!$a:[=!" set "TYPE=Y"
if "!TYPE!"=="N" echo !$a!
))>>"%tmp3%"
for /f "tokens=1* delims=:" %%a in (%tmp3%) do @echo.%%b>>%namefile%_%sp%_%outfile%
endlocal
FOR /L %%i IN (1,1,10) DO (if exist %ptmp%\tmp%%i.txt (del /q %ptmp%\tmp%%i.txt)
set tmp%%i=%ptmp%\tmp%%i.txt)
cls
if exist %namefile%_%sp%_%outfile% (
start %namefile%_%sp%_%outfile%
) else (
@Echo Не найдено.
pause>nul
cls
goto zanovo
)

::Удаление комментариев в конфиге
::Автор Starter АМК форум
::------------------------
::Удаление комментариев
::Вывод в "%outpath%\!namefile!"

@echo off
title Удаление комментариев в конифге
SETLOCAL EnableDelayedExpansion
@echo Удаление комментариев в конфиге
@echo Автор Starter АМК форум
@echo.
if not exist *.ltx (@echo *.ltx файлы не найдены...
pause>nul
goto :eof)
@echo Загрузка конфигов...
if not exist %SystemDrive%\temp\starter_bat (mkdir %SystemDrive%\temp\starter_bat)
set ptmp=%SystemDrive%\temp\starter_bat
set outpath=out_del_comment
if exist %outpath% (rd /s /q %outpath%
md %outpath%
) else (md %outpath%)
set file=*.ltx
FOR /L %%i IN (1,1,10) DO (if exist %ptmp%\tmp%%i.txt (del /q %ptmp%\tmp%%i.txt)
set tmp%%i=%ptmp%\tmp%%i.txt)
for /f "tokens=1 delims=;" %%i in ('findstr /b /v ";.*" %file%') do 1>>%tmp1% echo %%i
for /f "tokens=1* delims=:" %%a in (%tmp1%) do (set namefile=%%a
@echo Обработка !namefile!
@echo.%%b>>%outpath%\!namefile!
cls)
FOR /L %%i IN (1,1,10) DO (if exist %ptmp%\tmp%%i.txt (del /q %ptmp%\tmp%%i.txt)
set tmp%%i=%ptmp%\tmp%%i.txt)
endlocal

::Сбор секций
::Автор Starter АМК форум
::------------------------
::Сбор секций
::Вывод в "%outpath%\!namefile!"

@echo off
title Сбор секций
SETLOCAL EnableDelayedExpansion
@echo Сбор секций
@echo Автор Starter АМК форум
@echo.
if not exist *.ltx (@echo *.ltx файлы не найдены...
pause>nul
goto :eof)
@echo Загрузка конфигов...
if not exist %SystemDrive%\temp\starter_bat (mkdir %SystemDrive%\temp\starter_bat)
set ptmp=%SystemDrive%\temp\starter_bat
set outpath=out_sect
if exist %outpath% (rd /s /q %outpath%
md %outpath%
) else (md %outpath%)
set file=*.ltx
FOR /L %%i IN (1,1,10) DO (if exist %ptmp%\tmp%%i.txt (del /q %ptmp%\tmp%%i.txt)
set tmp%%i=%ptmp%\tmp%%i.txt)
for /f "tokens=1 delims=;" %%i in ('findstr /b /v ";.*" %file%') do 1>>%tmp1% echo %%i
for /f "tokens=1 delims=]" %%u in ('findstr "[" %tmp1%') do 1>>%tmp2% echo %%u]
for /f "tokens=1* delims=:" %%a in (%tmp2%) do (set namefile=%%a
cls
@echo Обработка !namefile!
@echo.%%b>>%outpath%\!namefile!_out.txt)
start %outpath%
FOR /L %%i IN (1,1,10) DO (if exist %ptmp%\tmp%%i.txt (del /q %ptmp%\tmp%%i.txt)
set tmp%%i=%ptmp%\tmp%%i.txt)
endlocal