[已解决]求查错，批处理找出字符最多的行，不含空格。

BHsolve · 发表于 2014-1-15 17:23:59

本帖最后由 BHsolve 于 2014-1-16 09:08 编辑

@echo off
setlocal enabledelayedexpansion
set comp=1
for /f "tokens=* delims=" %%i in (a.txt) do (
set /a n+=1
set line!n!=%%i
for %%I in (%%i) do (
set var=%%I
call :length judge)
if !n! gtr 1 (
if num!comp! leq num!n! set comp=!n!
))
echo 最多字符串的行为!comp!:line!comp!
goto :eof
:length judge
set num=0
:loop
call set temp=%%var:~!num!,1%%
set num+=1
set num!n!+=1
if "!temp!" neq "" (goto loop)
pause > nul

复制代码

代码如上，运行后成了死循环，求解释

xxpinqz · 发表于 2014-1-15 19:29:40

这样逐字检测效率很低的，论坛上应该有类似的帖子可以参考的。
目测死循环应该是由19-20行的set出错，“set”应该改为计算的“set/a ”
貌似13行的echo 最多字符串的行为!comp!:line!comp!也是有误吧，你的原意应该是：
echo 最多字符串的行为!comp!:!line%comp%!

xxpinqz · 发表于 2014-1-15 19:32:03

最后一行pause >nul最好删除了。
14行改为pause&goto :eof

BHsolve · 发表于 2014-1-16 09:07:51

回复 2# xxpinqz

果然，灰常感谢。

BHsolve · 发表于 2014-1-16 09:28:47

回复 3# xxpinqz

多谢指点

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] [已解决]求查错，批处理找出字符最多的行，不含空格。

评分

评分