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

Rank: 3 Rank: 3

帖子: 81
积分: 208
技术: 33
捐助: 0
注册时间: 2015-1-8

2楼

发表于 2015-3-9 11:45 | 只看该作者

本帖最后由 cobat 于 2015-3-14 09:21 编辑

看11楼和19楼

1 评分人数

慕夜蓝化: 我直接拿小说文本测试了，好快。自已写了 ...技术 + 1

pcl_test

荣誉版主

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

3楼

发表于 2015-3-9 12:29 | 只看该作者

本帖最后由 pcl_test 于 2015-3-9 12:34 编辑

回复 1# 慕夜蓝化
一般思路，逐行读取逐行统计字符数，并在每行标记上字符数（可用变量存储也可导出到临时文件），以标记的字符数进行排序取得最大值，用findstr "最大值" "文本"获得所有字符数最多的行
求字符串长度方法
http://www.bathome.net/viewthread.php?tid=11799

慕夜蓝化

四级士官

Rank: 3 Rank: 3

帖子: 194
积分: 274
技术: 19
捐助: 0
注册时间: 2012-7-31

4楼

发表于 2015-3-9 13:07 | 只看该作者

回复 3# pcl_test

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

踏实一些点.不要着急.你想要的时间都会给你.2

pcl_test

荣誉版主

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

5楼

发表于 2015-3-9 13:59 | 只看该作者

回复 4# 慕夜蓝化
另一种思路，先set max=0，逐行读取逐行统计字符数并标记好字符数，同时以辗转比较和赋值max的方式获取到最大值（如第一行字符数为23，23比max初值大，set max=23，第二行字符数为11，比max小，忽略，第三行字符数为40，比max大，set max=40……以此类推），用findstr "最大值" "文本"获得所有字符数最多的行

Rank: 3 Rank: 3

帖子: 81
积分: 208
技术: 33
捐助: 0
注册时间: 2015-1-8

6楼

发表于 2015-3-9 14:19 | 只看该作者

回复慕夜蓝化
一般思路，逐行读取逐行统计字符数，并在每行标记上字符数（可用变量存储也可导出到临时文 ...
pcl_test 发表于 2015-3-9 12:29

那贴的写法我没看懂,意思差不多对.

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

7楼

发表于 2015-3-9 15:36 | 只看该作者

回复 5# pcl_test

不用 findstr 也行，设 max 的时候顺便设一个 maxline=%%a 就好

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

pcl_test

荣誉版主

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

8楼

发表于 2015-3-9 16:14 | 只看该作者

回复 7# CrLf
findstr是考虑max不止一行，而在运行过程中我们都不知道下一行是不是max的一行

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

9楼

发表于 2015-3-9 16:15 | 只看该作者

回复 8# pcl_test

那可以这样：
maxline=!maxline!!换行!%%a

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

慕夜蓝化

四级士官

Rank: 3 Rank: 3

帖子: 194
积分: 274
技术: 19
捐助: 0
注册时间: 2012-7-31

10楼

发表于 2015-3-9 17:54 | 只看该作者

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

@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
复制代码

踏实一些点.不要着急.你想要的时间都会给你.2

apang

上将

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

11楼

发表于 2015-3-9 18:08 | 只看该作者

本帖最后由 apang 于 2015-3-12 19:51 编辑

@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判断逻辑

1 评分人数

慕夜蓝化: 感觉每次都让人大吃一惊的样子，原来还能这 ...技术 + 1

apang

上将

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

12楼

发表于 2015-3-9 18:18 | 只看该作者

本帖最后由 apang 于 2015-3-9 18:39 编辑

好像也可以这样：

@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;
}
复制代码

1 评分人数

慕夜蓝化: ....哎技术 + 1

Rank: 3 Rank: 3

帖子: 81
积分: 208
技术: 33
捐助: 0
注册时间: 2015-1-8

13楼

发表于 2015-3-9 19:44 | 只看该作者

本帖最后由 cobat 于 2015-3-9 19:48 编辑

回复 11# apang

又学到了,换行符好像可以直接赋值?

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

14楼

发表于 2015-3-9 19:51 | 只看该作者

回复 13# cobat

变量表中除了分隔符 00 字符外，其他字符都可以保存到变量中

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 3 Rank: 3

帖子: 81
积分: 208
技术: 33
捐助: 0
注册时间: 2015-1-8

15楼

发表于 2015-3-9 19:55 | 只看该作者

本帖最后由 cobat 于 2015-3-9 20:02 编辑

回复 14# CrLf

学习了,频繁的用call有没有问题,延迟变量在标签里是什么情况.不懂的太多了.