[文本处理] [已解决]批处理怎样统计下记事本中运动员连续比赛，就是统计相同数？

@echo off
setlocal enabledelayedexpansion
for /f %%a in ('type CSJL.txt ^| find /c /v ""') do (
    set "RowNum=%%a"
)
set /a RowNum-=2
set skip=skip=%RowNum%
set "str="
for /f "%skip% tokens=1-3" %%a in (CSJL.txt) do (
    if not defined %%a (
        set "%%a=1"
    ) else (
        set "str=!str! %%a"
    )
    if not defined %%b (
        set "%%b=1"
    ) else (
        set "str=!str! %%b"
    )
    if not defined %%c (
        set "%%c=1"
    ) else (
        set "str=!str! %%c"
    )
)
set now=%time:~0,5%
>>LXCS.txt echo !str! Time:%now%
复制代码

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objWMI, objEvents, objEvent
Set objWMI = GetObject("Winmgmts:\\.\Root\Cimv2")
Dim File, CFile, LogFile
'如没有与VBS在同一目录下请填写完整路径，并将路径中的\写成\\，如c:\\test\\csjl.txt
File = "CSJL.txt"
CFile = Replace(File, "\\", "\")
'如没有与VBS在同一目录下请填写完整路径
LogFile = "LXCS.txt"
objFSO.OpenTextFile(LogFile, 2, True).WriteLine "连赛记录："
'设置WMI文件修改事件监控，这里是每60秒监控一次
Set objEvents = objWMI.ExecNotifiCationQuery _
  ("Select * From __InstanceOperationEvent Within 60 " _
    & "Where TargetInstance Isa 'CIM_DataFile' And " _
      & "TargetInstance.Name='" & File & "'")
Do While True
  Set objEvent = objEvents.NextEvent()
  If objEvent.Path_.Class = "__InstanceModificationEvent" Then 
    Juge
    If Juge <> "" Then _
      objFSO.OpenTextFile(LogFile, 8, True).WriteLine Juge & " Date_Time:" & Now()
  End If
Loop

Function Juge()
  '重复参赛判断函数
  Dim objStr, Arr, Arr1, Str
  objStr = objFSO.OpenTextFile(CFile).ReadAll()
  Arr = Split(objStr, vbCrLf)
  For i = UBound(Arr) - 1 To UBound(Arr)
    Arr1 = Split(Arr(i), " ")
    For j = 0 To 2
      If InStr(Str, Arr1(j)) = 0 Then
        Str = Str & Arr1(j) & " "
        Else
        Juge = Juge & Arr1(j) & " "
      End If
    Next
  Next
End Function
复制代码

@echo off&setlocal enabledelayedexpansion
for /f %%i in ('find /c /v "" ^<CSJL.txt') do set/a i=%%i-3
if !i! gtr 0 (
   for /f "skip=%i% tokens=1-3" %%a in (CSJL.txt) do (
       if defined str (
          for %%i in (!str!) do set _%%i=i
          for %%i in (%%a %%b %%c) do if defined _%%i set var=!var! %%i
      ) 
          set str=%%a %%b %%c
   )
)
if defined var for /f "tokens=1-3" %%i in ('time /t') do >>LXCS.txt echo!var! Time:%%i
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set L=3
for /f %%i in ('find /c /v "" ^<CSJL.txt') do set/a i=%%i-L
if !i! gtr 0 (
   for /f "skip=%i% tokens=1-3" %%a in (CSJL.txt) do (
       set "var="
       if defined str (
          for %%i in (!str!) do set _%%i=i
          for %%i in (%%a %%b %%c) do (
              if defined _%%i set var=!var! %%i
              set "_%%i="
          )
              for %%i in (!str!) do set _%%i=
              set i=&set str=!var!
       ) else if defined i set str=%%a %%b %%c
   )
         if defined var >>LXCS.txt echo!var! Time:%time:~,5%
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set L=3
for /f %%i in ('find /c /v "" ^<CSJL.txt') do set/a i=%%i-L,L-=1
if !i! gtr 0 (
   for /f "skip=%i% tokens=1-3" %%a in (CSJL.txt) do (
       for %%i in (%%a %%b %%c) do if defined _%%i set /a $%%i+=1&set "_%%i="
       set str=%%a %%b %%c
       for %%i in (!str!) do set _%%i=i
   )
       for %%i in (!str!) do (
           if !$%%i! equ !L! (
              if defined _%%i set var=!var! %%i&set "_%%i="
           )
       )
       if defined var >>LXCS.txt echo!var! Time:%time:~,5%
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1-3" %%a in ('sort /+65536 CSJL.txt') do (
  set /a n+=1,_%%a+=1,_%%b+=1,_%%c+=1
  if !n! equ 3 (
    for /f "tokens=1,2 delims==" %%i in ('set _') do (
      if %%j==3 set "str=!str! %%i"
    )
    if "!str!" neq "" (
      set "str=!str:_=!"
      >>LXCS.txt echo,!str:~1! 时间：%time:~,5%
    )
    goto :eof
  )
)
复制代码