@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    set /a n+=1
    for %%i in (%%i) do (
        set/a _%%i+=1
        for %%j in (!_%%i!) do set $%%j=!$%%j! %%i
        set len%%i=!n! !len%%i!
   )
)

for /l %%i in (10 1 99) do (
    if defined $!_%%i! (
       for %%j in (!_%%i!) do (
           set #%%j=!$%%j!
           set "str=!str! %%j"
           set "$%%j="
       )
    )
)

for /f %%i in ('(for %%i in (!str!^) do @echo;%%i^)^|sort') do (
    set ar=%%i !ar!
)

for  %%i in (!ar!) do (
     for %%j in (!#%%i!) do (
         if defined len%%j (
            set flag=
            for %%k in (!len%%j!) do (
                if not defined f%%k (
                   set flag=1
                   set f%%k=1
                ) 
            )
            if defined flag set arr=!arr! %%j
            set len%%j=
        )
    )
)
echo!arr!
pause
复制代码

fn = "numbers.txt"

Set data = ReadNumbers(fn)

Do While data.Count > 0
    x = FetchOneNumber(data)
    WScript.Echo x
Loop


Function ReadNumbers(filespec)
    Dim objData, objFso, objFile, arrLine
    Set objData = WScript.CreateObject("Scripting.Dictionary")
    Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
    Set objFile = objFso.OpenTextFile(filespec, 1)
    Do While Not objFile.AtEndOfStream
        objData.Add objFile.Line, Split(objFile.ReadLine())
    Loop
    Set ReadNumbers = objData
End Function

Function FetchOneNumber(objDictionary)
    Dim objNum, objLine, lines, l, nums, n, i, j, theOne, theFreq
    Set objNum = WScript.CreateObject("Scripting.Dictionary")
    ' 将数据转换成 key:NUMBER/value:LINE 格式
    lines = objDictionary.Keys
    For i = 0 To UBound(lines)
        l = lines(i)
        nums = objDictionary.Item(l)
        For j = 0 To UBound(nums)
            n = nums(j)
            If Not objNum.Exists(n) Then
                Set objLine = WScript.CreateObject("Scripting.Dictionary")
                objNum.Add n, objLine
            End If
            objNum.Item(n).Add l, 1
        Next
    Next
    ' 找到出现频率最高的数字
    theOne = -1
    theFreq = 0
    nums = objNum.Keys
    For i = 0 To UBound(nums)
        n = nums(i)
        Set objLine = objNum.Item(n)
        If objLine.Count > theFreq Then
            theOne = n
            theFreq = objLine.Count
        End If
    Next
    ' 剔除已使用的行
    Set objLine = objNum.Item(theOne)
    lines = objLine.Keys
    Dim strMsg
    strMsg = "数字 " & theOne & " 出现 " & objLine.Count & " 次，位于第 "
    For j = 0 To UBound(lines)
        strMsg = strMsg & " " & lines(j)
        objDictionary.Remove lines(j)
    Next
    strMsg = strMsg & " 行；"
    ' WScript.StdOut.WriteLine strMsg
    ' 设置返回值
    FetchOneNumber = theOne
End Function
复制代码

@echo off
copy a.txt "%temp%\$"  >nul
:start
setlocal enabledelayedexpansion
for /f "usebackqdelims=" %%i in ("%temp%\$") do (
    for %%i in (%%i) do (
        set/a _%%i+=1
        if !n! lss !_%%i! (
           set n=!_%%i!
           set $!n!=%%i
        )
   )
)

if "!$%n%!" neq "" (
   for /f "tokens=1*" %%a in ("!$%n%! !arr!") do (
       endlocal
       set arr=%%a %%b
       >"%temp%\#" findstr /v "%%a" "%temp%\$"
       move "%temp%\#" "%temp%\$" >nul
       goto :start
   )
)
echo %arr%
pause
复制代码

20 40 60 80 13 15 17 19 24 26 28 35 37 39 46 48 57 59 68 79
复制代码

16 27 38 49 50 18 29 37 40 56 10 39 47 26 58 15 79 20 48 36
复制代码

@echo off
copy a.txt "%temp%\$"  >nul
:start
setlocal enabledelayedexpansion
for /f "usebackqdelims=" %%i in ("%temp%\$") do (
    set /a len+=1
    for %%j in (%%i) do (
        set/a _%%j+=1
        set len%%j=!len%%j! !len!
        if !n! lss !_%%j! (
           set n=!_%%j!
           set t=%%j
           set num=%%j
        ) else if !n! equ !_%%j! set t=!t! %%j
        )
    )
)

if "!t!" neq "!num!" (
   for %%i in (!t!) do (
       for %%j in (!len%%i!) do (
           set /a $%%j+=1
           set #%%i=!#%%i!+$%%j
       )
   )
   set n=999
   for %%i in (!t!) do (
       set /am=!#%%i!
       if !n! gtr !m! (
          set n=!m!
          set num=%%i
       )
   )
)

if "!num!" neq "" (
    >"%temp%\#" findstr /v "!num!" "%temp%\$"
    move "%temp%\#" "%temp%\$" >nul
    endlocal&set arr=%arr% %num%
    goto :start
)

echo;%arr:~1%
del "%temp%\$"
pause
复制代码