[Iska]

Я что-то не пойму, в чём проблема. Вроде ж всё должно работать, не?

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set /a iCountTotal = 0
set /a iCountAdd   = 0
set /a iCountReset = 0

for %%i in (a b c d e f d h i) do call :Sub "%%~i"

endlocal
exit /b 0
 
:Sub
	set /a iCountTotal += 1

	if /i "%~1" equ "d" (
		set /a iCountAdd += 1
		set /a iCountReset = 0
	) else (
		set /a iCountReset += 1
	)

	echo [%~1] [%iCountTotal%] [%iCountAdd%] [%iCountReset%]

	exit /b

Код: [a] [1] [0] [1] [b] [2] [0] [2] [c] [3] [0] [3] [d] [4] [1] [0] [e] [5] [1] [1] [f] [6] [1] [2] [d] [7] [2] [0] [h] [8] [2] [1] [i] [9] [2] [2]

[alpap]

Iska,
надо вот так

Код:

[a] [1] [0] [1]
[b] [2] [0] [2]
[c] [3] [0] [3]
[d] [4] [1] [0]
[e] [5] [2] [1]
[f] [6] [3] [2]
[d] [7] [4] [3]
[h] [8] [5] [4]
[i] [9] [6] [5]

почему-то когда добавляю второе условие (нужна сработка один раз, только по первой "d")

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set /a iCountTotal = 0
set /a iCountAdd   = 0
set /a iCountReset = 0
set s=

for %%i in (a b c d e f d h i) do call :Sub "%%~i"

endlocal
pause& exit
 
:Sub
	set /a iCountTotal += 1

	if /i "%~1" equ "d" if not defined s (
                set s=true
		set /a iCountAdd += 1
		set /a iCountReset = 0
	) else (
		set /a iCountReset += 1
	)

	echo [%~1] [%iCountTotal%] [%iCountAdd%] [%iCountReset%]>>"file.txt"

	exit /b

вывод вообще портится

Код:

[a] [1] [0] [0]
[b] [2] [0] [0]
[c] [3] [0] [0]
[d] [4] [1] [0]
[e] [5] [1] [0]
[f] [6] [1] [0]
[d] [7] [1] [1]
[h] [8] [1] [1]
[i] [9] [1] [1]

в идеале достаточно этого

Код:

[a] [1] [0]
[b] [2] [0]
[c] [3] [0]
[d] [4] [1]
[e] [5] [2]
[f] [6] [3]
[d] [7] [4]
[h] [8] [5]
[i] [9] [6]

[Iska]

надо вот так »

Кажись, начал понимать. По условию однократно запускается начало отсчёта. Можно попробовать так:

Скрытый текст

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set /a iCountTotal = 0
rem set /a iCountAdd   = 0
set /a iCountReset = 0

for %%i in (a b c d e f d h i) do call :Sub "%%~i"

endlocal
exit /b 0
 
:Sub
	set /a iCountTotal += 1

	if /i "%~1" equ "d" (
		set /a iCountReset = 0
		if not defined iCountAdd set /a iCountAdd = 0
	) else (
		set /a iCountReset += 1
	)

	if defined iCountAdd set /a iCountAdd += 1

	echo [%~1] [%iCountTotal%] [%iCountAdd%] [%iCountReset%]

	exit /b

Код: [a] [1] [] [1] [b] [2] [] [2] [c] [3] [] [3] [d] [4] [1] [0] [e] [5] [2] [1] [f] [6] [3] [2] [d] [7] [4] [0] [h] [8] [5] [1] [i] [9] [6] [2]

— если Вас устроит пустота в выводе. Если нет — потребуется ещё одна булева переменная, отвечающая за начало отсчёта, например, так:

Скрытый текст

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set /a iCountTotal = 0
set /a iCountAdd   = 0
set /a iCountReset = 0
set /a boolStartCount = 0

for %%i in (a b c d e f d h i) do call :Sub "%%~i"

endlocal
exit /b 0
 
:Sub
	set /a iCountTotal += 1

	if /i "%~1" equ "d" (
		set /a iCountReset = 0
		set /a boolStartCount = 1
	) else (
		set /a iCountReset += 1
	)

	if %boolStartCount% equ 1 set /a iCountAdd += 1

	echo [%~1] [%iCountTotal%] [%iCountAdd%] [%iCountReset%]

	exit /b

Код: [a] [1] [0] [1] [b] [2] [0] [2] [c] [3] [0] [3] [d] [4] [1] [0] [e] [5] [2] [1] [f] [6] [3] [2] [d] [7] [4] [0] [h] [8] [5] [1] [i] [9] [6] [2]

Но мне непонятен Ваш третий столбец. Почему у Вас здесь:

Код:

[d] [7] [4] [3]

в примере, как должно быть, при втором появлении d, не происходит оговоренного сброса третьего счётчика?!

[alpap]

Iska,
Вот Спасибо!
Первый код под спойлером именно то что нужно, а то я уже начал думать что это нереально.

мне этого достаточно для дальнейших своих действий:

Код:

@echo off
setlocal
 set/a m=0
 for %%a in (a b c d e f d h i) do call :# "%%a"
endlocal
pause& exit
 
:#
 set/a m+=1
 if "%~1"=="d" if not defined n set/a n=0
 if defined n set/a n+=1
 echo %m% %n%
exit /b