Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Contributor


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

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


Код: Выделить весь код
@Echo Off
cls
	Set "FileIn=Z:\Box_In\test.txt"
	Set "FileOut=Z:\Box_In\test.Out.txt"
	Set /A N=11

	Set /A M=N-1
	>"%FileOut%" (FOR /F "usebackq tokens=1* delims=:" %%i In ("%FileIn%") DO (
		Set "S=%%j"
		Call :Out "%%i" "%%j" "%%S:~%M%%%"
	))
pause
Exit /B 0

:Out 
	If %3=="" Exit /B
	Echo %~1:%~2
Exit /B
Код: Выделить весь код
@Echo Off
cls
	Set "FileIn=Z:\Box_In\test.txt"
	Set "FileOut=Z:\Box_In\test.Out.txt"
	Set /A N=11

	Set "R=.*:"
	For /L %%i In (1,1,%N%) Do Call Set "R=%%R%%."
	2>nul >"%FileOut%" FindStr /R /C:"^%R%.*$" "%FileIn%"
pause
Exit /B 0

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


Последний раз редактировалось megaloman, 08-01-2023 в 10:31.

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

Отправлено: 10:14, 08-01-2023 | #3