[文本处理] [讨论]批处理统计一行数字字符串中每个数字出现的个数

novaa

比如这个数字
4545658721212489654213134156749879456431215453535542124748643515348687893513215643541246

novaa

我的代码为

@echo off
setlocal enabledelayedexpansion
set var=4540056587212124089654213134156749879456431215453535542124748643515348687893513215643541246
set num=0
for /l %%a in (1 1 100) do ( set var1=!var:~0,1! 
set var=!var:~1!
set /a num+=1
call :tongji
if "!var!"="" goto :shuchu
)
:tongji
if ( !var1!==0 set /a num0+=1
if (!var1!==1 set /a num1+=1
if (!var1!==2 set /a num2+=1
if (!var1!==3 set /a num3+=1
if (!var1!==4 set /a num4+=1
if (!var1!==5 set /a num5+=1
if (!var1!==6 set /a num6+=1
if (!var1!==7 set /a num7+=1
if (!var1!==8 set /a num8+=1
if (!var1!==9 set /a num9+=1
)
)
)
)
)
)
)
)
)
)
:shuchu
echo 0的个数为: !num0!
echo 1的个数为: !num1!
echo 2的个数为: !num2!
echo 3的个数为: !num3!
echo 4的个数为: !num4!
echo 5的个数为: !num5!
echo 6的个数为: !num6!
echo 7的个数为: !num7!
echo 8的个数为: !num8!
echo 9的个数为: !num9!
pause>nul
复制代码

运行发现一闪而过，不管我在哪里加PAUSE
不段测试
不同地方加了pause
而且截取了部分分别看是否能运行
还是不知道哪里错了
请老手指教

novaa

测试失败
没有结果？

novaa

方法果然精简，哈哈，收获了

@echo off &setlocal enabledelayedexpansion
set "str=4545658721212489654213134156749879456431215453535542124748643515348687893513215643541246000"
set num=0
for /l %%a in (0,1,9) do (
        for /l %%b in (0,1,200) do (
            if "!str:~%%b,1!"=="!num!" (
            set /a z%%a+=1
            )
        )
        echo %%a出现:!z%%a!次.
        set /a num+=1
)
pause

@echo off &setlocal enabledelayedexpansion
set "str=4545658721212489654213134156749879456431215453535542124748643515348687893513215643541246000"
for /l %%a in (0,1,9) do (
        for /l %%b in (0,1,200) do (
            if "!str:~%%b,1!"=="%%a" set /a num%%a+=1
        )
        echo %%a出现:!num%%a!次.
)
pause

这两个OK
但是

@echo off &setlocal enabledelayedexpansion
set "str=4545658721212489654213134156749879456431215453535542124748643515348687893513215643541246"
call :test
for /f "tokens=1,* delims=_=" %%i in ('set _') do echo %%i出现的次数为：%%j
pause>nul

:test
for /l %%i in (0 1 200) do (
set "var=!str:~%%i,1!"
if "!var!"=="" goto :eof
set /a _!var!+=1
)

不行。

novaa

哎
经%#&%…………%@！@￥#发现是我的CMD有问题，
呵呵
惭愧啊！！
大家的代码都OK！
呵呵
不过随风和YOUXI的有点难度，呵呵
就要这样才好，不同思路，这样才有的看头和学习啊