hentai87

回复 15# newswan

加了in结果为空
    echo off
setlocal   ENABLEDELAYEDEXPANSION

for /f "delims=\ tokens=5" %%i in ('REG QUERY "HKLM\SYSTEM\CurrentControlSet\Services"') do (
    for /f "delims=_ tokens=2" %%k in ("%%i") do (
        set /a count_%%k+=1
    )
)
set count=0
for /f "usebackq tokens=2-3 delims=_=" %%a in (`set count_`) do (
    if "%%b" GTR "!count!" (
        set count=%%b
        set name=%%a
    )
)
pause

newswan

最后
echo %name%

hentai87

回复 17# newswan

结果不对。。不是次数最多的

newswan

回复 18# hentai87


if 后面 把引号去掉

WHY

@echo off
setlocal enabledelayedexpansion
set "Max=0"
for /f "delims=" %%i in ('REG QUERY "HKLM\SYSTEM\CurrentControlSet\Services"') do (
    for /f "tokens=2 delims=_" %%k in ("%%~nxi") do (
        set /a _%%k+=1
        if !_%%k! GTR !Max! set "Max=!_%%k!" & set "Name=%%k"
    )
)
echo;!Max! !Name!
pause
复制代码

Batcher

回复 16# hentai87

@echo off
for /f "tokens=5 delims=\" %%i in ('reg query "HKLM\SYSTEM\CurrentControlSet\Services"') do (
    for /f "tokens=2 delims=_" %%j in ("%%i") do (
        set /a count_%%j+=1
    )
)
set count=0
for /f "tokens=2-3 delims=_=" %%a in ('set count_') do (
    if %%b gtr !count! (
        set "count=%%b"
        set "name=%%a"
    )
)
echo !name!: !count!
endlocal
pause
复制代码

WHY

$arr = dir HKLM:\SYSTEM\CurrentControlSet\Services | ?{ $a = $_.Name.Split('\')[-1].Split('_'); $a.Count -ge 2 } | forEach{$a[1]} | group | sort Count -Desc;
'' + $arr[0].Count + ' ' + $arr[0].Name
复制代码