一个可以计算简单表达式的批处理 - 中国DOS联盟论坛

谢谢Will Sort指点！
我又改进了一下代码：

:: Eval.cmd - 2K/XP表达式计算批处理
:: Brglng - 2005.8.31
:: Thanks to: Will Sort modified on 2005.8.26
:: This batch file can only run in Chinese version of NT-based Windows! It cannot be run in DOS/Win9x/Me!
:: And do not use COMMAND.COM instead of CMD.EXE! Command.com cannot display Chinese, and its SET command is not as powerful as that of CMD.EXE
@echo off
setlocal
if /i "%1"=="/A" if "%2"=="" echo 必须指定文件路径！& goto end
if /i not "%1"=="/A" if /i not "%1"=="/N" if not "%1"=="/?" if not "%1"=="" goto EvalArgument

:EvalLogo
echo *****************************************************************
echo *              Eval.cmd - 2K/XP表达式计算批处理                 *
echo *         Brglng 2005.8.31    http://brglng.ys168.com           *
echo *          Thanks to: Will Sort modified on 2005.8.26           *
echo *****************************************************************
echo.
if not "%1"=="/?" echo 请输入表达式(输入"?"查看帮助, "Q"退出) & goto inputExpr

:Help
echo 命令行书写帮助：
echo.
echo   %0  
echo               表达式 : 指定要计算的表达式
echo             文件路径 : 若指定此参数则自动将表达式和计算结果存入指定文件。
echo.
echo   %0  : 普通模式下运行时总是将计算结果自动存入指定文件。
echo   %0           : 普通模式下运行时只计算而不存入文件。
echo   %0           : 查看命令行书写帮助
echo   %0      : 查看命令行书写帮助与表达式书写帮助
echo.
echo   如果不使用参数则进入默认的计算模式, 每次都须输入表达式并
echo   询问是否存入文件。
if /i not "%2"=="Expr" goto end
echo.
pause

:ExprHelp
echo 表达式书写帮助：
echo.
echo 本表达式计算批处理能处理简单计算，不支持浮点数以及高级数学函数。
echo 它以递减的优先权顺序支持下列操作：
echo. 
echo     ()                  - 分组 
echo     ! ~ -               - 一元运算符 
echo     * / %%               - 算数运算符 
echo     + -                 - 算数运算符 
echo     ^<^< ^>^>               - 逻辑移位 
echo                         - 按位“与” 
echo     ^^                   - 按位“异” 
echo     ^|                   - 按位“或” 
echo     = *= /= %%= += -=    - 赋值 
echo       ^&= ^^= ^|= ^<^<= ^>^>= 
echo     ,                   - 表达式分隔符 
echo. 
echo 如果在命令行下用参数计算，使用任何逻辑或取余操作符需要将表达式字符串用引号扩起来。表达式中的任何非数字字符串键作为环境变量名称，这些环境变量名称的值应在使用前定义，如果未在当前环境中定义，则默认为为零。您可以直接使用环境变量值做计算而不用键入那些 %% 符号来得到它们的值。除十六进制有 0x 前缀，八进制有 0 前缀的，数字值为十进位数字。因此， 0x12 与 18 和 022 相同。请注意八进制公式可能很容易搞混: 08 和 09 是无效的数字，因为 8 和 9 不是有效的八进制位数。
goto end

:EvalArgument
set /a EvalExpr="%1"
if "%EvalExpr%"=="" echo 表达式输入错误！ & goto end
echo %1=%EvalExpr%
if "%2"=="" goto end
echo %1=%EvalExpr% >>"%2"
echo 算式和计算结果已存入"%2"！
goto end

:inputExpr
set Expr=
set EvalExpr=
set /p Expr=^>
if "%Expr%"=="" goto inputExpr
if "%Expr%"=="?" call:ExprHelp & goto inputExpr
if /i "%Expr%"=="Q" goto end
set /a EvalExpr="%Expr%"
if "%EvalExpr%"=="" echo 输入错误！ & goto inputExpr
echo 计算结果为：%EvalExpr%
if /i "%1"=="/A" goto autosave
if /i "%1"=="/N" goto inputExpr

:if_save
set SaveEval=
set /p SaveEval=是否将表达式和计算结果存入文件?
if /i "%SaveEval%"=="Y" goto save
if /i "%SaveEval%"=="N" goto inputExpr
goto if_save

:save
set /p SaveEvalPath=请输入文件路径及文件名(如C:\Windows\file.txt。若只输入文件名则自动存入当前文件夹，留空则为上一次输入的路径)：
echo "%Expr%"=%EvalExpr% >>"%SaveEvalPath%"
echo 表达式以及计算结果已存入"%SaveEvalPath%"！
goto inputExpr

:autosave
echo "%Expr%"=%EvalExpr% >>"%2"
goto inputExpr

:end

第16楼　brglng	发表于 2005-08-31 12:57
银牌会员　发帖 466　积分 1,200　来自上海
谢谢Will Sort指点！我又改进了一下代码： :: Eval.cmd - 2K/XP表达式计算批处理 :: Brglng - 2005.8.31 :: Thanks to: Will Sort modified on 2005.8.26 :: This batch file can only run in Chinese version of NT-based Windows! It cannot be run in DOS/Win9x/Me! :: And do not use COMMAND.COM instead of CMD.EXE! Command.com cannot display Chinese, and its SET command is not as powerful as that of CMD.EXE @echo off setlocal if /i "%1"=="/A" if "%2"=="" echo 必须指定文件路径！& goto end if /i not "%1"=="/A" if /i not "%1"=="/N" if not "%1"=="/?" if not "%1"=="" goto EvalArgument :EvalLogo echo ***************************************************************** echo * Eval.cmd - 2K/XP表达式计算批处理 * echo * Brglng 2005.8.31 http://brglng.ys168.com * echo * Thanks to: Will Sort modified on 2005.8.26 * echo ***************************************************************** echo. if not "%1"=="/?" echo 请输入表达式(输入"?"查看帮助, "Q"退出) & goto inputExpr :Help echo 命令行书写帮助： echo. echo %0 echo 表达式 : 指定要计算的表达式 echo 文件路径 : 若指定此参数则自动将表达式和计算结果存入指定文件。 echo. echo %0 : 普通模式下运行时总是将计算结果自动存入指定文件。 echo %0 : 普通模式下运行时只计算而不存入文件。 echo %0 : 查看命令行书写帮助 echo %0 : 查看命令行书写帮助与表达式书写帮助 echo. echo 如果不使用参数则进入默认的计算模式, 每次都须输入表达式并 echo 询问是否存入文件。 if /i not "%2"=="Expr" goto end echo. pause :ExprHelp echo 表达式书写帮助： echo. echo 本表达式计算批处理能处理简单计算，不支持浮点数以及高级数学函数。 echo 它以递减的优先权顺序支持下列操作： echo. echo () - 分组 echo ! ~ - - 一元运算符 echo * / %% - 算数运算符 echo + - - 算数运算符 echo ^<^< ^>^> - 逻辑移位 echo - 按位“与” echo ^^ - 按位“异” echo ^\| - 按位“或” echo = *= /= %%= += -= - 赋值 echo ^&= ^^= ^\|= ^<^<= ^>^>= echo , - 表达式分隔符 echo. echo 如果在命令行下用参数计算，使用任何逻辑或取余操作符需要将表达式字符串用引号扩起来。表达式中的任何非数字字符串键作为环境变量名称，这些环境变量名称的值应在使用前定义，如果未在当前环境中定义，则默认为为零。您可以直接使用环境变量值做计算而不用键入那些 %% 符号来得到它们的值。除十六进制有 0x 前缀，八进制有 0 前缀的，数字值为十进位数字。因此， 0x12 与 18 和 022 相同。请注意八进制公式可能很容易搞混: 08 和 09 是无效的数字，因为 8 和 9 不是有效的八进制位数。 goto end :EvalArgument set /a EvalExpr="%1" if "%EvalExpr%"=="" echo 表达式输入错误！ & goto end echo %1=%EvalExpr% if "%2"=="" goto end echo %1=%EvalExpr% >>"%2" echo 算式和计算结果已存入"%2"！ goto end :inputExpr set Expr= set EvalExpr= set /p Expr=^> if "%Expr%"=="" goto inputExpr if "%Expr%"=="?" call:ExprHelp & goto inputExpr if /i "%Expr%"=="Q" goto end set /a EvalExpr="%Expr%" if "%EvalExpr%"=="" echo 输入错误！ & goto inputExpr echo 计算结果为：%EvalExpr% if /i "%1"=="/A" goto autosave if /i "%1"=="/N" goto inputExpr :if_save set SaveEval= set /p SaveEval=是否将表达式和计算结果存入文件? if /i "%SaveEval%"=="Y" goto save if /i "%SaveEval%"=="N" goto inputExpr goto if_save :save set /p SaveEvalPath=请输入文件路径及文件名(如C:\Windows\file.txt。若只输入文件名则自动存入当前文件夹，留空则为上一次输入的路径)： echo "%Expr%"=%EvalExpr% >>"%SaveEvalPath%" echo 表达式以及计算结果已存入"%SaveEvalPath%"！ goto inputExpr :autosave echo "%Expr%"=%EvalExpr% >>"%2" goto inputExpr :end

第17楼　willsort	发表于 2005-09-11 13:33
元老会员　发帖 1,512　积分 4,432
Re Brglng: 已经代码转贴于下帖，请查阅并测试精简文档后的代码的稳定性。 {8905}批处理编程的异类 http://www.cn-dos.net/forum/viewthread.php?tid=8905&page=1#pid54226

第18楼　brglng	发表于 2005-09-12 11:00
银牌会员　发帖 466　积分 1,200　来自上海
经测试完全正常，所有参数都可正常使用，暂时还没有发现什么不对。非常感谢Will Sort。

第19楼　zah98	发表于 2006-10-24 08:04
新手上路　发帖 4　积分 9
不错,谢谢

第20楼　electronixtar	发表于 2006-10-24 10:25
铂金会员　发帖 2,672　积分 7,493
我来凑个热闹，呵呵 Eval.vbs WScript.Echo Eval(WScript.Arguments(0)) 运行 cscript //NoLogo Eval.vbs 3.14159262E5 返回 628318.52 成功，yeah！或者不用输入参数，交互式输入的： WScript.Echo Eval(WScript.StdIn.ReadLine) [ Last edited by electronixtar on 2006-10-24 at 10:31 AM* ]

第21楼　lxmxn	发表于 2006-10-24 11:08
版主　发帖 4,938　积分 11,386
嘿嘿，多谢 electronixtar 兄，又学一招了，继续~支持~

第22楼　cxq5173	发表于 2006-10-24 13:04
初级用户　发帖 10　积分 23
学习了

第23楼　karl0000	发表于 2006-10-29 11:27
新手上路　发帖 3　积分 6
好东西，谢谢