@echo off
:: 目的：
:: SearchNet.TXT中每行只有一個數，統計每個數的重復次數，并按照重復次數由高到低排序
:: 思路：
:: 先用sort把所有的數排序，然后統計重復次數，以 數+重復次數 的格式寫入臨時文件tmp2.txt；
:: 提取重復次數的數字，以該數字為長度建立以該數字命名的文件，用dir來把文件名(即重復次數)排序，寫入tmp3.txt；
:: 按行提取tmp3.txt中的內容，然后在tmp2.txt中查找與tmp3.txt中匹配的記錄，寫入結果；
:: 此方案會產生大量的臨時文件，但是效率比較高
::
::
set num=-1
sort<SearchNet.TXT>tmp1.txt
cd.>tmp2.txt
cd.>tmp3.txt
cd.>result.txt
:: 統計重復次數
setlocal enabledelayedexpansion
for /f %%i in (tmp1.txt) do (
set /a num+=1
set second=!first!
set first=%%i
if not "!second!"=="" if !second! neq !first! (>>tmp2.txt echo !second! !num!&set num=0)
)
>>tmp2.txt echo %first% %num%
:: 對重復次數排序
md tmp && pushd tmp
for /f "tokens=2" %%i in (../tmp2.txt) do (
cd.>%%i
for /l %%j in (1,1,%%i) do echo.>>%%i
)
>../tmp3.txt dir /o-s /b
:: 按重復次數提取記錄
for /f %%i in (../tmp3.txt) do (
>>../result.txt findstr " %%i$" ../tmp2.txt
)
popd && rd /q /s tmp
del tmp1.txt tmp2.txt tmp3.txt
start result.txt
goto :eof
關于統計字符出現個數的其他方案(都不生成臨時文件)
@echo off
:: 統計每個字符出現的次數，并求出出現次數最多的字符
:: 思路：
:: 通過提取每個位上的字符，賦予統一以 字符： 開頭的某些動態變量，
:: 如果變量名相同，則自加一次，然后，通過 set 字符：命令一次性提取
:: 所有以 字符： 開頭的動態變量，交給 for 語句來處理。set 用得很巧妙
:: 無須生成臨時文件，并按照字母升序排列
::
::
::
setlocal ENABLEDELAYEDEXPANSION
set str=adadfdfseffserfefsefseetsdmg
set /a m=0,n=0,l=0
call :loop
:: 以下是求出現次數最多的字符
for /f "tokens=1,2 delims==" %%i in ('set 字符：') do (
echo %%i=%%j
if %%j GTR !l! set l=%%j& set m=%%i
)
echo.出現次數最多的%m%=%l%
pause
goto :EOF
:loop
call set m=%%str:~%n%,1%%
if not defined m goto :EOF
set /a "字符：%m%+=1"
set /a n+=1
goto loop
@echo off
:: 統計字符出現次數
:: 思路：
:: 　　 先把字符串拆解為以空格分隔的單字符組成的字符串，
:: 然后用for語句來探測每個字符在串中出現的次數
:: 此方法無須生成臨時文件，并按照在字符串中出現的
:: 先后順序顯示
::
::
::
setlocal EnableDelayedExpansion
set str=adadfdfseffserfefsefseetsdg
rem 拆解字符串
:analyze
set str_tmp=%str_tmp% %str:~0,1%
set str=%str:~1%
if not "%str%" == "" goto analyze
rem
for %%i in (%str_tmp%) do call :exclude %%i
pause
exit
:exclude
for %%i in (%counted%) do if "%1"=="%%i" goto :eof
set counted=%counted% %1
call :count %1
goto :eof
:count
for %%i in (%str_tmp%) do if "%1"=="%%i" set /a %1+=1
echo %1 !%1!
goto :eof
@echo off
:: 統計字符出現的次數
:: 思路：
:: 拆解字符串，以空格分隔組成新字符串
:: 通過 shift 來call 不同的參數，并用
:: set 來命名變量，變量名具有統一的開頭
:: 最后通過 set 來顯示這些變量
::
::
::
setlocal EnableDelayedExpansion
set str=adadfdfseffserfefsefseetsdg
:loop
set str_tmp=%str_tmp% %str:~0,1% && set str=%str:~1%
if not "%str%" == "" goto loop
call :start %str_tmp%
set .
echo 出現次數最多的:%max%=%maxN%
pause
exit
:start
if [%1]==[] ( goto :eof ) else ( set /a .%1+=1 )
if !.%1! GTR !maxN! set maxN=!.%1!&& set max=.%1
shift
goto :start
@echo off
:: 綜合以上方案，最簡潔的代碼如下
::
::
setlocal EnableDelayedExpansion
set str=adadfdfseffserfefsefseetsdgadadfdfseffserfefsefseetsdga
:loop
set str$=%str$% %str:~0,1%&set str=%str:~1%
if not "%str%" == "" goto loop
for %%n in (%str$%) do (
set /a .%%n+=1
if !.%%n! GTR !maxN! set maxN=!.%%n!&&set max=%%n)
set .
echo 出現次數最多的:%max%=%maxN%
pause
exit
@echo off&setlocal
:: sort之后，通過比較這一次取到的內容和上一次的內容是否相等來統計重復次數
:: 如何同時保存本次和上次的內容需要很大的技巧
:: 注意要把次數的初值設置為1，for語句的后括號之后不能緊跟跳出語句
::
::
set /a n=1
for /f %%a in ('type 1.txt^|sort') do (
call :pp %%a
)
:pp
if not defined bb goto b
if "%bb%"=="%1" (set /a n+=1) else (>>ko.txt echo %bb% %n%次&set /a n=1)
:b
set bb=%1
goto :eof
@echo off&setlocal enabledelayedexpansion
:: 帶排序功能的代碼
:: 用 for /l 來控制每次 findstr 的字符長度，
:: 然后把同一長度的用 sort 來排序，從而突破了
:: sort 只能按字符位大小來排序這一限制
::
::
set a=[0-9]
for /l %%a in (1,1,3) do (
call :pp !a!
set a=!a![0-9]
)
goto c
:pp
for /f %%x in ('findstr "^%1$" aa.txt^|sort') do @echo %%x >>dd.txt
goto :eof
:c
set /a n=1
for /f %%a in ('type dd.txt') do (
call :pp %%a
)
:pp
if not defined bb goto b
if "%bb%"=="%1" (set /a n+=1) else (>>ko.txt echo %bb% %n%次&set /a n=1)
:b
set bb=%1
goto :eof