批处理计算器.docVIP

批处理计算器批处理计算器.txt复制时要把代码最下方的“智能批处理计算器使用说明”一起复制到代码中。否则会影响代码运行。@echo offset jiluk=set /a jilu=0,xsljjg=0,xiaosu=10title %~n0 智能计算器2 by 随风 @bbs.bathome.cn @2009-02-22set sangcijg=set pi=3.1415926535897932384626433832795setlocal enabledelayedexpansionset lin=00000for /l %%a in (1 1 5) do set lin=!lin!!lin!!lin!:kaisiset yyd=color cfecho.echo. 欢迎使用 智能批处理计算器echo.echo.echo. 首次使用请先仔细阅读使用说明echo.echo. 本代码源自 《批处理之家论坛》 bbs.bathome.cnecho.echo. 使用中若发现 bug 请去该处反馈、谢谢 ^^!^^!^^!echo.echo.echo.echo. 重要声明：echo.echo. 本代码为 bat 批处理业余爱好者编写echo.echo. 可任意转载、使用、但若因此导致的任何错误、损失、本人概不负责。echo.echo.echo.echo. 请选择： 1 阅读使用说明 2 进入对文本操作界面 3 进入手动界面:kaisi2echo.set xuanze=set /p xuanze= clsif %xuanze%==3 color 1fgoto start0if not defined xuanze color 1fgoto start0if defined yyd if !xuanze!==1 clsgoto kaisiif %xuanze%==1 ( call :ydsuom %~0 set yyd=aecho.echo. echo. 请选择：1 返回首页 2 进入对文本操作界面 3 进入手动界面 goto kaisi2)if not %xuanze%==2 clsgoto kaisi:wbjm 文本界面clscolor 1fecho.echo. 直接回车返回首页。echo.echo. 按 3 进入手动输入算式界面。echo.echo. 请输入文件名全名及全路径，或拖放文件来此。echo.set wenben=set /p wenben= clsset baocun=temp.txtif !wenben!==3 clsgoto start0if not defined wenben clsgoto kaisiset wenben=%wenben:=%if not exist %wenben% echo 文件不存在。。ping/n 3 127.0nulgoto wbjmecho.echo. 正在计算 %wenben:=% 中的算式，结果保存在 %baocun% 中echo.echo. 请稍候 。。。echo.setlocalcd.%baocun%for /f usebackq delims= %%a in (%wenben%) do ( call :start0 %%a okk %baocun% echo !okk!)start %baocun%exit:start0setlocalif !wenben!==3 set wenben=if defined wenben set suru=%~1goto wenbenecho.echo. 累计储存结果：%xsljjg%echo.echo. %sangcijg%echo.echo.echo.echo. 输入 bz 查看帮助echo.echo. 请输入算式 如：-7+{2+[1+(3+-2*0.5--2*2+3)]+[3*(9--8*2)]*5/2}--2+5=echo.set suru=set /p suru= clsif !suru!==bz ( call :ydsuom %~0 echo.echo. 按任意键返回 。。。pausenulclscolor 1f endlocalset xsljjg=%jilu%goto start0)if not defined suru endlocalclsset xsljjg=%jilu%goto start0set suru=%suru: =%if !suru:~-1!==+ set jiluk=aset bq=+if !suru:~-1!==- set jiluk=aset bq=-if !suru