本帖最后由 老刘1号 于 2017-7-27 09:20 编辑
再附一个批处理调用版(灵感来自于PCL斑竹的一段代码):
放到批处理文件末尾即可。- GOTO :EOF
- :CALC
- for /f %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(%~1)"^)(close^)') do Echo.%%a
复制代码 用法:- Call :Calc 1+1-1+666-999 %计算前面一堆的结果%
- Call :Calc 2^^10 %计算2的10次方%
- Call :Calc 1024^^0.1 %计算1024的0.1次方%
- Call :Calc 1.665544332211111111111111111123-0.55443322110000000000000012 %计算浮点数加减%
- Call :Calc (9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9*9.9)^^(1/15) %计算浮点数相乘除,幂运算%
复制代码 返回可以用FOR收集 |