[文本处理] 批处理如何获取字符列表出现次数最多的字符？

hentai87

echo off
for /f "delims=\ tokens=5" %%i in ('REG QUERY "HKLM\SYSTEM\CurrentControlSet\Services"') do (
for /f "delims=_ tokens=2" %%k in ("%%i") do (
echo %%k
))
复制代码

得
4b59e
4b59e
4b59e
4b59e
4b59e
Rec
GPIO2
GPIO2

想要4b59e，明显4b59e最多

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
复制代码

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

@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
复制代码

newswan

回复 18# hentai87


if 后面 把引号去掉

hentai87

回复 17# newswan

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

newswan

最后
echo %name%

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

少 了 in in in in in

hentai87

回复 13# newswan


    还是闪退

newswan

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 (
    echo %%a %%b
    if %%b GTR !count! (
        set count=%%b
        set name=%%a
    )
)
echo %name%
复制代码

hentai87

REG QUERY的输出
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WpnService
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WpnUserService_4b59e
。。。

hentai87

回复 5# newswan


    是不是不全，都没有运行REG QUERY，这段应该放哪里

hentai87

echo off
setlocal   ENABLEDELAYEDEXPANSION
for /f "usebackq tokens=2-3 delims=_=" %%a (`set count_`) do (
if %%b GTR !count! (
set count=%%b
set name=%%a
)
)
pause

hentai87

回复 8# newswan


    还是闪退