
CODE: [Copy to clipboard][ Last edited by zh159 on 2007-3-13 at 01:12 PM ]@echo off
:Start
cls
echo.
set Sums=
set /p Sums= 请输入算式:
if not defined Sums exit
>Sums.vbs echo Sums = %Sums%
>>Sums.vbs echo Wscript.Echo " 算式:",wscript.arguments(0) + "=" + FormatNumber(Sums,2,-1,-1,0)
echo.
cscript //nologo Sums.vbs %Sums%
del Sums.vbs
echo.
pause
goto Start
| Quote: | |
|
CODE: [Copy to clipboard]测试::'Code by est@CN-DOS
:On Error Resume Next
:Sub bat
echo off & cls
echo '>nul & cmd /kCscript //e:vbscript //NoLogo "%~f0" %*
Exit Sub:End Sub
WScript.Echo eval(WScript.Arguments(0))
CODE: [Copy to clipboard]@echo off
:Start
cls
echo.
set Sums=
set /p Sums= 请输入算式:
if not defined Sums exit
set/p= 计算结果=<nul
echo.|gawk "{print %Sums%}"
pause>nul
goto Start
| Quote: | |
|
CODE: [Copy to clipboard]::MCalc.bat
@echo off
if "%1"=="" exit
mshta vbscript:msgbox(%1)(window.close)
附件 1:MCalc.JPG (2007-3-14 03:10, 7.13 K, 下载附件所需积分 1 点 ,下载次数: 2)
![]()
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |