[文本处理] 求助bat脚本提取重复出现2次或2次以上的文本行？

@if(0)==(0) echo off&cd %~dp0
title  保存ANSI格式BAT文件,处理ANSI文件

cscript -nologo -e:jscript "%~0" <"文本1.txt" >"文本2.txt"

pause&exit /b
@end
WSH.echo(WSH.StdIn.ReadAll().match(/^(.+)(\r?\n\1){1,}/img).join(''));
复制代码

gawk "{if(tolower($0)==tolower(A)){print A;B=1}else{if(B){print A;B=0}}}{A=$0}END{if(B)print A}" test.txt
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
    if /i "%%a"=="!str!" (
        echo,!str!
        set n=1
    ) else (
        if !n! equ 1 echo,!str!
        set n=0
    )
    set str=%%a
)
if !n! equ 1 echo,!str!
pause
复制代码

@echo off
setlocal enabledelayedexpansion
set n=1
for /f "delims=" %%a in (a.txt) do (
    if /i "%%a"=="!m4!" (
        set /a n+=1
        if !n! equ 5 (
            echo,!m1!
            echo,!m2!
            echo,!m3!
            echo,!m4!
            echo,%%a
        )
        if !n! equ 6 (
            echo,%%a
            set n=5
        )
    ) else (
        set n=1
    )
    set m1=!m2!
    set m2=!m3!
    set m3=!m4!
    set m4=%%a
)
pause
复制代码

gawk -vN=5 "{{if(tolower($0)==tolower(A)){a[++i]=A;B=1}else{if(B){if(++i>=N){a[i]=A;for(j=1;j<=i;j++)print a[j]};B=0;i=0}}}{A=$0}}END{if(B){if(++i>=N){a[i]=A;for(j=1;j<=i;j++)print a[j]}}}" 1.txt>2.txt
复制代码

@echo off &setlocal enabledelayedexpansion
set "lastS=" &set n=0
(for /f "delims=" %%s in ('sort 1.txt') do (
   if /i "!lastS!" == "%%~s" (
       if !n! equ 0 echo,!lastS!
       echo,%%s
       set/a n+=1
   ) else set n=0
   set "lastS=%%s"
))>2.txt
endlocal&exit/b
复制代码