@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%a in ('sort /r aa.txt') do (
   set "a=%%a"
   if "!a:~,5!" neq "!b:~,5!" echo,!a!
   set "b=%%a"
))>bb.txt
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
	set str=%%a
	set $!str:~,5!=!str:~5!
)
(for /f "tokens=1* delims=$=" %%a in ('set $ ') do echo %%a%%b)>b.txt
pause
复制代码

sort a.txt|sed -n "H;${g;s/\(\<.....\).....*\1/\1/g;s/^\n//;p}">b.txt
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
Set dic = CreateObject("Scripting.Dictionary")
Set file = fso.OpenTextFile("aa.txt")

Do until file.AtEndOfStream
   strLine = RegEx(file.ReadLine)
   If strLine <> "" Then
      str1 = Left(strLine,5) : str2 = Right(strLine,5)
      IF Not dic.Exists(str1) Then
         dic.Add str1,str2
      Else
         dic.Item(str1) = dic.Item(str1) & vbLf & str2
      End If
   End If
Loop

a = dic.Keys
For i = 0 to UBound(a)
   b = Split(dic.Item(a(i)),vbLf)
   Max = "00000"
   For j = 0 to UBound(b)
      If b(j) > Max Then Max = b(j)
   Next
   str = str & a(i) & Max & vbCrLf 
Next
fso.CreateTextFile("bb.txt",True).Write Str

MsgBox "OK"

Function RegEx(strLine)
   Set re = New RegExp
   re.Pattern = "\s+"
   re.Global = True
   RegEx = re.Replace(StrLine,"")
End Function
复制代码

@set @n=0/*
@echo off
sort aa.txt | cscript.exe -nologo -e:jscript "%~f0" %*
pause
exit/b*/

WScript.StdIn.ReadAll().replace(
  /^(\w{5})\d{5}(?=\r\n(?!\1).*$)/gm, 
  function(s){WScript.Echo(s);}
);
复制代码

sort /r aa.txt|gawk "!s[substr($0,0,5)]++" >bb.txt
复制代码