qixiaobin0715

最起码现在来说，我还是不太相信chatgtp，还是自己写代码比较放心。如果不在乎文本原来的顺序的话：

@echo off
for /f "tokens=1*" %%i in ('type data.txt^|sort') do (
    if "!str!"=="%%i" (
        set /a n+=1
        set _!n!=%%j
    ) else (
        if !n! geq 3 (
            (for /f "tokens=1* delims==" %%a in ('set _') do (
                echo,%%b
            )
            echo,)>>newdata.txt
            endlocal
        )
        setlocal enabledelayedexpansion
        set n=1
        set _1=%%j
    )
    set str=%%i
)
pause
复制代码

qixiaobin0715

回复 18# 520pcl
你没明白空白行是我故意留下的吗？不同组别之间以空行隔开，不想要空行的话，可以将代码第11行中“echo,”删除即可。
如果chatgtp真的像你说的那样神奇，大家何必在这里啰嗦呢。