Имя пользователя:
Пароль:
 

Название темы: [решено] Размножить bat
Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Alexander_88, Как понять: в файле categories.txt и names.txt одинаковое число строк? Надо последовательно выдернуть первую, вторую итд строки в categories.txt и в names.txt и что-то с ними делать?
Как-то так?
Код: Выделить весь код
@Echo Off
cls
	Set "BoxOut=Z:\Box_Out"
	Call :Var "Z:\Box_In\categories.txt" "@@cat"
	Call :Var "Z:\Box_In\names.txt"      "@@nam"
	
	Set /A i=1000000
	:Begin
		Set /A i+=1
		Call Set "Cat=%%@@cat%i%%%"
		Call Set "Nam=%%@@nam%i%%%"
		If "%Cat%"=="" GoTo :Cont &If "%Nam%"=="" GoTo :Cont
		>>"%BoxOut%\%Cat%.bat" (
			echo setlocal %Cat%
			echo setlocal enableextensions %Nam%
		)
	GoTo :Begin
:Cont
Pause
Exit /B

:Var
	FOR /F "usebackq tokens=1* delims=:" %%a IN (`2^>nul FINDSTR /N /R /C:"^.*" %1`) DO Set /A N=1000000+%%a &Call Set "%~2%%N%%=%%b"
Exit /B

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 10-07-2019 в 09:05.

Это сообщение посчитали полезным следующие участники:

Отправлено: 06:54, 10-07-2019 | #3

Название темы: [решено] Размножить bat