中国DOS联盟

在附件中的a.txt内，有着很多种水产品的单价，（详情请下载后看看）
现在该如何列举每种水产品的最高价和最低价呢？

要求输出格式如下：

虹鳟鱼:



最低价:       青岛城阳                   34.00  

最高价:       闽福鼎农贸                 80.00



活鳜鱼:

      

最低价:       北京新发地                 24.00  

最高价:       北京八里桥                 26.00 

对于只有一个单价或价格一样的可以这样：

虹鳟鱼:



最低价:       闽福鼎农贸                 80.00  

最高价:       闽福鼎农贸                 80.00



活鳜鱼:

      

最低价:       北京新发地                 26.00  

最高价:       北京八里桥                 26.00 

Last edited by ccwan on 2007-1-10 at 06:35 AM ]

也来试试：

@echo off

setlocal enabledelayedexpansion



for /f "tokens=1,2,3" %%i in (a.txt) do (

     if not defined %%j (

        set a=

        set %%j=A

        set/a b+=1

        set str!b!=%%j)

     set/a a+=1

     set MP_%%j!a!=%%i=%%k

)

for /l %%i in (1 1 %b%) do (

    set Hprice=

    for /f "tokens=2,3 delims==" %%a in ('set MP_!str%%i!') do (

         set tmp=%%b

         set tmp=!tmp:.=!

         if not defined Hprice (

             set/a Hprice=!tmp! & set/a Lprice=!tmp!

             set Hmarcket=%%a & set Lmarcket=%%a

             ) else (

             if !tmp! GEQ !Hprice! set/a Hprice=!tmp! & set Hmarcket=%%a

             if !tmp! LEQ !Lprice! set/a Lprice=!tmp! & set Lmarcket=%%a)

      )

      echo !str%%i!：

      echo.

      echo 最高价：   !Hmarcket!      !Hprice:~0,-2!.!Hprice:~-2!

      echo 最低价：   !Lmarcket!      !Lprice:~0,-2!.!Lprice:~-2!

      echo.

)

pause>nul

Last edited by youxi01 on 2007-1-10 at 08:25 AM ]

　　演示代码如下：

@echo off

:: 当最高价和最低价相同时，产地将指向同一个地方，而不管同样的价格有几个产地

:: 并且这个产地在表中位于这类产品的最后

set max=1

set min=50000

setlocal enabledelayedexpansion

for /f "tokens=1-3" %%i in (a.txt) do (

    set class1=!class2!

    set class2=%%j&set price=%%k

    set price=!price:.=!

    if defined class1 if not "!class1!"=="!class2!" (

        call :echo_

        set max=1

        set min=50000

    )

    if !price! geq !max! set max=!price!&set addr_max=%%i

    if !price! leq !min! set min=!price!&set addr_min=%%i

)

call ::echo_

pause

goto :eof



:echo_

echo !class1!:

echo.

echo   最低价:  !addr_min!    !min:~0,-2!.!min:~-2!

echo   最高价:  !addr_max!    !max:~0,-2!.!max:~-2!

echo.

goto :eof

Last edited by namejm on 2007-1-9 at 07:00 PM ]

TO nameJM：
斑竹就是斑竹，看了你的代码真是惭愧啊。我开始的时候还去定义鱼的种类，真是多此一举啊！

还有一个问题就是，我修改之后怎么我的帖子怎么成了2F了，原来是3F的哦！

Originally posted by youxi01 at 2007-1-9 19:00:
斑竹就是斑竹，看了你的代码真是惭愧啊。我开始的时候还去定义鱼的种类，真是多此一举啊！
还有一个问题就是，我修改之后怎么我的帖子怎么成了2F了，原来是3F的哦！

　　我的代码存在一点瑕疵，具体看我代码里的说明。另外，你的代码有点问题，不知道你仔细查看了运行后的结果了没有。<img src="images/smilies/face-raspberry.png" align="absmiddle" border="0">

　　呵呵，因为我操作不慎，编辑帖子的时候，误点了删除，导致我发在2楼的帖子被删掉了-_-|

Last edited by namejm on 2007-1-9 at 07:08 PM ]

精彩！！！欣赏～～～
上面那两种鱼我都没吃过：（　　～～口水直流～～````

Originally posted by namejm at 2007-1-10 08:04 AM:

　　我的代码存在一点瑕疵，具体看我代码里的说明。另外，你的代码有点问题，不知道你仔细查看了运行后的结果了没有。:P

　　呵呵，因为我 ...

你提出的问题，我写的也没有考虑，其它的还没看到？

　　那我提示一下：在最后那几种产品中，产地显示有错误，应该是你没有注意清空变量导致的。

呵呵，看到了，谢谢，已改正！

真是太棒了！欣赏～～

　　以下代码能罗列所有的最高价和最低价记录，但是效率比较低下，并且还生成了临时文件：

@echo off



set num=0

md tmp 2>nul

setlocal enabledelayedexpansion



:: 按水产品类别建立临时文件

for /f "tokens=1-3" %%i in (a.txt) do (

    set class1=!class2!

    set class2=%%j

    set price=%%k

    if not defined class1 set /a num+=1&cd.>tmp\!num!.txt

    if defined class1 if not "!class1!"=="!class2!" (

        set /a num+=1&cd.>tmp\!num!.txt

        echo !price:.=!☆ %%i  %%j    %%k>>tmp\!num!.txt

    ) else echo !price:.=!☆ %%i  %%j    %%k>>tmp\!num!.txt

)



set num=1



:loop

echo.



:: 获取最低价记录

set switch_sort=

set switch_class=

set switch_H_or_L=0

set price1=&set price2=

set H_or_L=最低价：

set str=

for /l %%i in (1,1,3) do (

    set str=!str!

    if !switch_H_or_L! equ 0 call :sort_ !str!

)



:: 获取最高价记录

set switch_sort=/r

set switch_H_or_L=0

set price1=&set price2=

set H_or_L=最高价：

set str=

for /l %%i in (1,1,3) do (

    set str=!str:*]=!

    if !switch_H_or_L! equ 0 call :sort_ !str!

)

echo ______________________________



set /a num+=1

if exist tmp\%num%.txt goto loop



endlocal

rd /q /s tmp

pause

goto :eof





:sort_

:: 按由高到低/由低到高排序

for /f "tokens=1-4" %%i in ('findstr "^%1☆" tmp\%num%.txt^|sort %switch_sort%') do (

    set price1=!price2!

    set price2=%%i

    if not defined switch_class echo %%k:&echo.&set switch_class=1

    if not defined price1 (echo %H_or_L% %%j %%l&set switch_H_or_L=1) else (

        if "!price1!"=="!price2!" (

            echo %H_or_L% %%j %%l

        ) else goto :eof

    )

)

goto :eof

临时文件没关系，重要的是解决了问题。

结果和 11 楼 namejm 版主的一样，也是效率较低，但不用生成临时文件。

::zh159@bbs.cn-dos.net 2007-1-11

@echo off

setlocal EnableDelayedExpansion

for /f "tokens=1-3" %%i in (a.txt) do set $%%i %%j %%k=$

for /f "tokens=1-2" %%i in (a.txt) do if not "%%j" == "!Type!" set Type=%%j&&call :Scan %%j

pause

exit



:Scan

set Min=1000000

set Max=0

for /f "tokens=1-3* delims==$ " %%i in ('set $^|find "%1"') do (

    set num=%%k&&set num=!num:.=!

  if !num! LEQ !Min! set Min=!num!

  if !num! GEQ !Max! set Max=!num!

)

echo %1:

echo.

for /f "tokens=1-3* delims==$ " %%i in ('set $^|find "%1"') do set num=%%k&&set num=!num:.=!&&if "!num!" == "!Min!" echo   最低价:  %%i	%%k

for /f "tokens=1-3* delims==$ " %%i in ('set $^|find "%1"') do set num=%%k&&set num=!num:.=!&&if "!num!" == "!Max!" echo   最高价:  %%i	%%k

echo.------------------------------

goto :eof

Last edited by zh159 on 2007-1-11 at 11:45 PM ]

好东西啊

修改了一下，提高了效率，也不用生成临时文件。

::zh159@bbs.cn-dos.net 2007-1-13

@echo off

title 水产最低价^&最高价  zh159@bbs.cn-dos.net  2007-1-13

setlocal EnableDelayedExpansion

for /f "tokens=1-3*" %%i in (a.txt) do set %%j.%%i.%%k=.

for /f "tokens=1-3*" %%i in (a.txt) do if not "%%j" == "!Type!" set Type=%%j&&call :Scan %%j

pause

exit



:Scan

set Min=M

set Max=0

for /f "tokens=1-4* delims==." %%i in ('set "%1"') do (

  if %%k%%l LEQ !Min! set Min=%%k%%l

  if %%k%%l GEQ !Max! set Max=%%k%%l

)

echo %1:

echo.

for /f "tokens=1-4* delims==." %%i in ('set "%1"') do if "%%k%%l" == "%Min%" echo   最低价:  %%j	%%k.%%l

for /f "tokens=1-4* delims==." %%i in ('set "%1"') do if "%%k%%l" == "%Max%" echo   最高价:  %%j	%%k.%%l

echo.------------------------------

goto :eof