[文本处理] [已解决]批处理如何查找出文本中字符数最多的行/字符串长度最长的行

慕夜蓝化

BAT如何找出文本最大行？
有一小说文本开头部分:

　　文本豪客 [url]www.txt.hk[/url] 〓 [url]www.bbzw.net[/url] 拜拜中文

　　作品：堕落血天使

　　作者：天龙怒吟

　　男主角：楚明

　　内容简介：

　　堕落血天使，是天龙怒吟写的一部西方奇幻小说，主要讲述的是一个中国小鬼学了一身杂七杂八的武功，把各种西方大神揍的满头是包的故事。

　　正文

　　背景设定

　　天使等级的划分
复制代码

要求：
在批处理窗口中直接显示字数最长的行。
比如这一行：

堕落血天使，是天龙怒吟写的一部西方奇幻小说，主要讲述的是一个中国小鬼学了一身杂七杂八的武功，把各种西方大神揍的满头是包的故事。
复制代码

若具有相同字数的最大行，则全部显示。
比如这两行：

　　首先，在没有形成整个世界的时候，创世之神，生命之神，破灭之神从混沌开始初生，三位大神并称为第一代神，也就是最原始的神。
　　我们不能说毁灭就是邪恶的，因为，如果没有毁灭，也就没有了创造的意义，就正如没有生命的死亡，这个世界将无限的堆满了人群。
复制代码

求解。

慕夜蓝化

回复 3# pcl_test

嗯嗯，我去看一下。
主要速度快就成。

慕夜蓝化

如果排除查找相同数的最大行数,第二种应该说最快了。

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    for /f "delims=:" %%a in ('(echo,%%i^&echo,^)^|findstr /o "."') do set/a len=%%a-3
    if not defined max set max=!len!
    if !len! geq !max! set max=!len!&set "#=%%i" 
    )
    echo,%#%
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (堕落血天使.txt) do (
    set/a len=0&set "str=%%i$"
    for %%a in (4096,2048,1024,516,258,126,64,32,16,8,4,2,1) do (
        if not "!str:~%%a!"=="" set/a len+=%%a&set str=!str:~%%a!
    )
    if not defined max set max=!len!
    if !len! geq !max! set max=!len!&set "#=%%i" 
    )
echo,%#%
pause
复制代码

慕夜蓝化

回复 23# CrLf

call 真的很慢....我之前写的时候经常用它，不过现在也在学着避免使用call
改用for 之类的来替换。