中国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