中国DOS联盟

　　各位的代码都很精彩，比起我的 sort 方案来，高明了很多，给各位加分！

　　我做的方案在这里

redtek的利用shift移位，set .的按顺序显示特性

增加出现次数最多的显示^_^

@echo off setlocal EnableDelayedExpansion set str=adadfdfseffserfefsefseetsdg :loop set str$=%str$% %str:~0,1% && set str=%str:~1% if not "%str%" == "" goto loop call :start %str$% set . echo 出现次数最多的:%max%=%maxN% pause exit :start if == ( goto :eof ) else ( set /a .%1+=1 ) if !.%1! GTR !maxN! set maxN=!.%1!&&set max=.%1 shift goto :start

修改了BUG

[ Last edited by zxcv on 2006-11-29 at 08:27 PM ]

namejm兄１７楼的方案 “做一个文本中关于内容统计的批处理” 正在欣赏，里面的代码真是有意思，太精彩了～～：）））

回zxcv兄：我１５楼代码没有做出现次数最多的那部分是因为我不会做（偷偷的说～）
真是精彩～～跟namejm、zxcv兄学习了～：）））

俺是现学现用
都是学习好榜样

厉害, 各位加油^_^

if !.%1! GTR !maxN! set maxN=!.%1! && set max=.%1
if %%j GTR !l! set l=%%j & set m=%%i

namejm和zxcv兄的这句有意思～～

找出最大的一个数，如果取到的值大于　“存储最大值的变量”　，则说明取到的数更大，则让它来代替原　“存储最大值的变量”　内，
当数据全“走”过一遍以后，“存储最大值的变量”　内的值自然是最大的值～：）

欣赏加狂顶！！！
又学到很多东东，交流碰撞出很多灵感～～

后面的越来越精彩了，这样的交流大家收获都不少，学习的还快，还有趣味。
建议以后大家多发现一些这样的问题，要求不要太难，重在参与。
大家讨论一下以后可不可以每期增加一些名誉性的奖项，比如：
代码最短
速度最快
稳定性最强
创意最好
还有一种谁都看不明白，但是能完成功能。

从这几个角度充分发挥大家的发散思维。不过，类似这样的名字怎么取...

还有一种谁都看不明白，但是能完成功能

呵呵,这个非无奈何斑竹你魔术了

那版主的名字就是　“空前绝后”　这名字棒吧～～

MS出现次数最多的结果都不太对,问题出在那里?

也贴一段不成熟的代码,统计各字符出现的次数：
思路：先用“函数”test取得变量str的长度，保存为OSlen;
然后取得变量的第一个字符，保存为str0,然后将变量str中的str0全部替换为空，再获取str的长度，保存为%num%,那么第一个出现的字符为：%str0%,长度为：%OSlen%-%num%,依次类推.....
@echo off setlocal EnableDelayedExpansion set str=adadfdfseffserfefsefseetsdg call :test %str% for /l %%i in (0 1 100) do ( set /a OSlen=!num! set str%%i=!str:~0,1! call :test1 !str! !str%%i! %%i) :exit pause>nul exit :test set /a num=0 set var=%1 for /l %%i in (1 1 100) do ( set var_=!var:~%%i,1! if "!var_!"=="" set /a num=%%i &&goto :eof) goto :eof :test1 set var=%1 set var_=%2 set num_=%3 set str=!var:%var_%=! if "%str%"=="" goto :exit call :test %str% set /a len%num_%=!OSlen!-!num! echo 字符 %2 出现的次数 !len%num_%!

[ Last edited by youxi01 on 2006-11-30 at 06:47 AM ]

用for /l 的我也贴一个!
@echo off&setlocal enabledelayedexpansion set str=adadfdfseffserfefsefseetsdgdsfjkljdsklfjdsfdsgdsafdsaf for /l %%i in (0,1,100) do ( if "!str:~%%i,1!"=="" goto end call :define !str:~%%i,1! set/a !str:~%%i,1!+=1 ) :end for /l %%x in (1,1,%num%) do ( call set exchang=%%!%%x!%% call echo !%%x!--%%!%%x!%%个 if !exchang! gtr !max! call set max=%%!%%x!%%&set maxstr=!%%x!) echo.&echo.出现次数最多的是%maxstr%=%max%次 pause>nul&goto :eof :define if not defined %1 set/a num+=1&&set !num!=%1

欣赏15、18楼的代码，学习了！对以上代码稍做了改动,灵魂不变！
@echo off setlocal EnableDelayedExpansion set str=adadfdfseffserfefsefseetsdg for /l %%i in (0 1 100) do ( if "!str:~%%i,1!"=="" goto :exit set /a .!str:~%%i,1!+=1) :exit set. for /f "delims== tokens=1,2" %%i in ('set.') do ( if %%j GTR !maxl! set /a maxl=%%j && set max=%%i) echo 出现最多的是 %max:.=% 字符，共 %maxl% 个 pause