apang

@echo off & setlocal enabledelayedexpansion
set Lf=^


for /f "delims=" %%a in (a.txt) do (
        set "s=%%a"
        set "Len=0"
        for %%b in (4096 2048 1024 512 256 128 64 32 16) do (
                if "!s:~%%b!" NEQ "" set /a Len+=%%b & set "s=!s:~%%b!"
        )
        set "s=!s!fedcba9876543210"
        set /a Len+=0x!s:~16,1!
        if !Len! GEQ !Max! (
                for %%b in (!Len!) do set "_%%b=!_%%b!%%a!Lf!"
                set "Max=!Len!"
        )
)
echo,!_%Max%!
pause
复制代码

发现 set /a Len+=0x!s:~15,1! 是错误的，改一下，顺便改一下if判断逻辑

apang

好像也可以这样：

@set @n=0;// & cscript -nologo -e:jscript "%~0" < a.txt & pause & exit

s = WScript.StdIn.ReadAll() + "\r\n";
ar = s.split("\r\n").sort(function(x,y){return y.length-x.length});
for (i=0; i<ar.length-1; i++) {
        WScript.Echo(ar[i]);
        if (ar[i].length != ar[i+1].length) break;
}
复制代码

apang

findstr /o 得到的是字节数，不是字符数，难道是我记错了？好像文本最后还需要两个回车换行，否则最后一行获取不到

apang

回复 27# caruko


    嗯嗯，%%~za

话说本帖浏览超过1000次，火火的