中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 一个可以计算简单表达式的批处理
« [1] [2] »
作者:
标题: 一个可以计算简单表达式的批处理 上一主题 | 下一主题
brglng
银牌会员

永遠的DOS~~~



积分 1200
发帖 466
注册 2005-2-1
来自 上海
状态 离线
『楼 主』:  一个可以计算简单表达式的批处理

我编了一个有趣的批处理,用于2K/XP等NT类的系统,可以计算简单的表达式。只能算作入门级的吧,所以就贴在这里了。

  Quote:
@echo off
echo 欢迎使用2K/XP表达式计算批处理
echo Made by Brglng 2005.8.15
echo 下载地址:http://brglng.ys168.com
echo 有bug请及时汇报!Email:sky-0310@sohu.com
echo.
echo 注意:本批处理只能用于NT类的系统,不能用于Win9x/Me/DOS!
echo 如果在命令行下使用,请用附件里的“命令提示符”或者使用
echo cmd.exe,而不要使用command.com!
echo This batch file can only be used in Chinese version of
echo Windows 2K/XP/2003...!
echo Do not use command.com instead of cmd.exe!
pause

:inputExpr
set Expr=
set EvalExpr=
echo.
echo 请输入表达式(输入"?"查看帮助):
set /p Expr=
if "%Expr%"=="" (
goto inputExpr
)
if "%Expr%"=="?" (
echo 本表达式计算批处理很简单并以递减的优先权顺序支持下列操作:
echo     ^(^)                  ^- 分组
echo     ^! ^~ ^-               ^- 一元运算符
echo     ^* ^/ ^%               ^- 算数运算符
echo     ^+ ^-                 ^- 算数运算符
echo     ^<^< ^>^>               ^- 逻辑移位
echo                        ^- 按位“与”
echo     ^^                   ^- 按位“异”
echo     ^|                   ^- 按位“或”
echo     ^= ^*^= ^/^= ^%^= ^+^= ^-^=    ^- 赋值
echo       ^&^= ^^^= ^|^= ^<^<^= ^>^>^=
echo     ^,                   ^- 表达式分隔符
echo 如果您使用任何逻辑或取余操作符, 您需要将表达式字符串用
echo 引号扩起来。在表达式中的任何非数字字符串键作为环境变量
echo 名称,这些环境变量名称的值已在使用前转换成数字。如果指定
echo 了一个环境变量名称,但未在当前环境中定义,那么值将被定为
echo 零。这使您可以使用环境变量值做计算而不用键入那些 % 符号
echo 来得到它们的值。除十六进制有 0x 前缀,八进制有 0 前缀的,
echo 数字值为十进位数字。因此, 0x12 与 18 和 022 相同。请注意
echo 八进制公式可能很容易搞混: 08 和 09 是无效的数字,因为 8
echo 和 9 不是有效的八进制位数。
goto inputExpr
)
set /a EvalExpr="%Expr%"
if "%EvalExpr%"=="" (
echo 输入错误!
goto inputExpr
)
echo 计算结果为:%EvalExpr%

:if_save
set SaveEval=
echo.
echo 是否将表达式和计算结果存入文件[Y/N]?
set /p SaveEval=
if "%SaveEval%"=="Y" goto save
if "%SaveEval%"=="y" goto save
if "%SaveEval%"=="N" goto next
if "%SaveEval%"=="n" goto next
goto if_save

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

:next
set EvalNext=
echo 1.继续计算 2.退出
set /p EvalNext=
if "%EvalNext%"=="1" goto inputExpr
if "%EvalNext%"=="2" goto end
goto next

:end
echo 谢谢使用!按任意键退出……
pause >nul
set Expr=
set EvalExpr=
set SaveEval=
set SaveEvalPath=
set EvalNext=

这个批处理的最新版可以在我的E盘的“DIY”目录里下载到。

[ Last edited by namejm on 2007-2-3 at 09:49 PM ]



32位才是DOS未来的希望
个人网志:http://sololand.moe
2005-8-15 15:53
查看资料  发短消息 网志   编辑帖子  回复  引用回复
venchia
初级用户




积分 125
发帖 11
注册 2004-1-25
状态 离线
『第 2 楼』:  

不错,收藏

2005-8-15 18:02
查看资料  发短消息 网志   编辑帖子  回复  引用回复
merlin
初级用户

KMGT


积分 143
发帖 18
注册 2005-2-11
状态 离线
『第 3 楼』:  

怎么不写一个Win9x/me/DOS的啊!



坚持就是胜利!
2005-8-15 19:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
Michael
钻石会员





积分 10046
发帖 3039
注册 2002-11-11
状态 离线
『第 4 楼』:  

也许只有2k/xp才有现成的表达式求值语句吧。



简单就是美
2005-8-15 19:44
查看资料  发短消息 网志   编辑帖子  回复  引用回复
brglng
银牌会员

永遠的DOS~~~



积分 1200
发帖 466
注册 2005-2-1
来自 上海
状态 离线
『第 5 楼』:  



  Quote:
Originally posted by Michael at 2005-8-15 07:44 PM:
也许只有2k/xp才有现成的表达式求值语句吧。

嗯,没错
其实,要真正实现更好的表达式计算,只要用那些命令行计算器就可以了。它们的使用都很方便。NT的set命令的/a参数也有很多限制的,功能并不强,比如不支持浮点数,不支持复杂的数学函数(如sin、cos)等。所以,这个批处理实际上没什么实用价值,只能作为学习学习吧。我自认为这个批处理对2K/XP新的命令开关和语法的综合运用还是不错的。

[ Last edited by brglng on 2005-8-16 at 10:18 ]



32位才是DOS未来的希望
个人网志:http://sololand.moe
2005-8-16 09:41
查看资料  发短消息 网志   编辑帖子  回复  引用回复
Michael
钻石会员





积分 10046
发帖 3039
注册 2002-11-11
状态 离线
『第 6 楼』:  

开始还真吓了我一跳,我还以为表达式计算也是批处理完成的呢。

C++编一个类似程序还得需要这么多行呢:

#include<iostream>
#include<string>
#include<map>
#include<cctype>
#include<sstream>

using namespace std;

namespace Parser
{
        double prim(bool);
        double term(bool);
        double expr(bool);
}

namespace Lexer
{
        enum Token_value
        {
        NAME, NUMBER, END,
        PLUS='+', MINUS='-', MUL='*', DIV='/',
        PRINT=';', ASSIGN='=', LP='(', RP=')'
        };
       
        Token_value curr_tok;
        double number_value;
        string string_value;
        map<string,double>table;

        Token_value get_token();
        }

namespace Driver
{
        int no_of_errors;
        istream* input;
        void skip();
        void sta();
}

namespace Error
{
        struct Syntax_error
        {
                const char* p;
                Syntax_error(const char* q) {p=q;}
        };
        struct Zero_divide{};
}


using namespace Driver;
using namespace Parser;
using namespace Lexer;
using namespace Error;       

double Parser::expr(bool get)
{
        double left=term(get);
        for(;;)
                switch(curr_tok)
                {
                case PLUS:
                        left+=term(true);
                        break;
                case MINUS:
                        left-=term(true);
                        break;
                default:
                        return left;
                }
}

double Parser::term(bool get)
{
        double left=prim(get);
        for(;;)
                switch(curr_tok)
                {
                case MUL:
                        left*=prim(true);
                        break;
                case DIV:
                        if(double d=prim(true))
                        {
                                left/=d;
                                break;
                        }
                        throw Zero_divide();
                default:
                        return left;
                }
}



double Parser::prim(bool get)
{
        if (get) get_token();
        switch(curr_tok)
        {
        case NUMBER:
                {       
                        double v=number_value;
                        get_token();
                        return v;
                }
        case NAME:
                {
                        double& v=table[string_value];
                        if(get_token()==ASSIGN)v=expr(true);
                        return v;
                }
        case MINUS:
                return -prim(true);
        case LP:
        {
                double e=expr(true);
                if(curr_tok!=RP) throw Syntax_error("')'expected");
                get_token();
                return e;
        }
               
        default:
                throw Syntax_error("primary expected");
        }
       
}
Token_value Lexer::get_token()
{
        char ch;
        do
        {
                if(!input->get(ch))return curr_tok=END;
        }while(ch!='\n'&&isspace(ch));
                switch(ch)
                {               
                case '\n':
                        return curr_tok=PRINT;
                case ';':
                case '*':
                case '/':
                case '+':
                case '-':
                case '(':
                case ')':
                case '=':
                        return curr_tok=Token_value(ch);
                case '0':case '1':case '2':case '3':case '4':
                case '5':case '6':case '7':case '8':case '9':
                         input->putback(ch);
                         *input>>number_value;
                         return curr_tok=NUMBER;
                default:
                        if(isalpha(ch))
                        {
                                string_value=ch;
                                while(input->get(ch)&&isalnum(ch))string_value.push_back(ch);
                                input->putback(ch);
                                return curr_tok=NAME;
                        }
                        throw Syntax_error("bad token");
                }
}
void Driver::sta()
{
        while(*input){
                try
                {
                        get_token();
                        if(curr_tok==END)break;
                        if(curr_tok==PRINT)continue;
                        cout<<expr(false)<<endl;
                }
                catch(Zero_divide)
                {
                        cerr<<"attempt to divide by zero\n";
                        if(curr_tok!=PRINT)skip();
                }
                catch(Syntax_error e)
                {
                        cerr<<"syntax error:"<<e.p<<endl;
                        if(curr_tok!=PRINT)skip();
                }
        }
}
       


void Driver::skip()
{
        no_of_errors++;
       
        while(*input)
        {
                char ch;
                input->get(ch);
               
                switch(ch)
                {
                case '\n':
                case ';':
                        return;
                }
        }
}

int main(int argc, char*argv[])
{
        switch(argc)
        {
        case 1:
                input=&cin;
                break;
        case 2:
                input=new istringstream(argv[1]);
                break;
        default:
                cerr<<"too many arguments\n";
                return 1;
        }
        sta();
        if(input!=&cin)delete input;
        return no_of_errors;
}

[ Last edited by Michael on 2005-8-16 at 21:37 ]



简单就是美
2005-8-16 21:36
查看资料  发短消息 网志   编辑帖子  回复  引用回复
brglng
银牌会员

永遠的DOS~~~



积分 1200
发帖 466
注册 2005-2-1
来自 上海
状态 离线
『第 7 楼』:  

呵呵,我用VB编过一个。



32位才是DOS未来的希望
个人网志:http://sololand.moe
2005-8-17 15:46
查看资料  发短消息 网志   编辑帖子  回复  引用回复
willsort
元老会员

Batchinger


积分 4432
发帖 1512
注册 2002-10-18
状态 离线
『第 8 楼』:  

Re brglng:

      很好的代码,提三个建议:

      1、加入命令行参数支持,即在允许在命令行参数中写入表达式或者/?;

      2、set /p 的提示字符串可以写在 set 语句中,比如
          set /p SaveEval=是否将表达式和计算结果存入文件[Y/N]?

      3、if 语句中可以使用开关 /i 进行忽略大小写判断,比如:
          if /i "%SaveEval%"=="Y" goto save
          if /i "%SaveEval%"=="N" goto next

      另外,待代码完善后,我有意将它收入我的批处理收集帖 {8905}《批处理编程的异类》,但是因为版面限制,可能会删除大部分的说明性文档代码,不知 brglng 兄是否同意?



※ Batchinger 致 Bat Fans:请访问 [讨论]批处理编程的异类 ,欢迎交流与共享批处理编程心得!
2005-8-19 20:31
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
agboy888
新手上路





积分 1
发帖 1
注册 2005-8-20
状态 离线
『第 9 楼』:  

不错,谢谢

2005-8-20 01:20
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
brglng
银牌会员

永遠的DOS~~~



积分 1200
发帖 466
注册 2005-2-1
来自 上海
状态 离线
『第 10 楼』:  



  Quote:
Originally posted by willsort at 2005-8-19 08:31 PM:
Re brglng:

      很好的代码,提三个建议:

      1、加入命令行参数支持,即在允许在命令行参数中写入表达式或者/?;

      2、set /p 的提示字笠...

谢谢Willsort高手的建议。关于收录,我没什么意见,反正本来就是随便写写的。



32位才是DOS未来的希望
个人网志:http://sololand.moe
2005-8-23 14:56
查看资料  发短消息 网志   编辑帖子  回复  引用回复
brglng
银牌会员

永遠的DOS~~~



积分 1200
发帖 466
注册 2005-2-1
来自 上海
状态 离线
『第 11 楼』:  

以下是根据willsort建议改进后的代码(增加了很多功能):
@echo off
echo 本表达式计算批处理很简单并以递减的优先权顺序支持下列操作: >EvalExpr.hlp
echo. >>EvalExpr.hlp
echo     ^(^)                  ^- 分组 >>EvalExpr.hlp
echo     ^! ^~ ^-               ^- 一元运算符 >>EvalExpr.hlp
echo     ^* ^/ %%               ^- 算数运算符 >>EvalExpr.hlp
echo     ^+ ^-                 ^- 算数运算符 >>EvalExpr.hlp
echo     ^<^< ^>^>               ^- 逻辑移位 >>EvalExpr.hlp
echo                        ^- 按位“与” >>EvalExpr.hlp
echo     ^^                   ^- 按位“异” >>EvalExpr.hlp
echo     ^|                   ^- 按位“或” >>EvalExpr.hlp
echo     ^= ^*^= ^/^= %%^= ^+^= ^-^=    ^- 赋值 >>EvalExpr.hlp
echo       ^&^= ^^^= ^|^= ^<^<^= ^>^>^= >>EvalExpr.hlp
echo     ^,                   ^- 表达式分隔符 >>EvalExpr.hlp
echo. >>EvalExpr.hlp
echo 如果您使用任何逻辑或取余操作符, 您需要将表达式字符串用引号扩起来。在表达式中的任何非数字字符串键作为环境变量名称,这些环境变量名称的值已在使用前转换成数字。如果指定了一个环境变量名称,但未在当前环境中定义,那么值将被定为零。这使您可以使用环境变量值做计算而不用键入那些 %% 符号来得到它们的值。除十六进制有 0x 前缀,八进制有 0 前缀的,数字值为十进位数字。因此, 0x12 与 18 和 022 相同。请注意八进制公式可能很容易搞混: 08 和 09 是无效的数字,因为 8 和 9 不是有效的八进制位数。 >>EvalExpr.hlp
::cls

if "%1"=="" goto start
if "%1"=="/?" goto start
if /i "%1"=="/?:Expr" goto start
if /i "%1"=="/A" if "%2"=="" (
echo 必须指定文件路径!
goto end
)
if /i "%1"=="/A" goto start
set /a EvalExpr=%1
if "%EvalExpr%"=="" (
echo 表达式输入错误!
goto end
)
echo %1=%EvalExpr%
if "%2"=="" goto end
echo %1=%EvalExpr% >>"%2"
echo 算式和计算结果已存入"%2"!
goto end

:start
if /i "%1"=="/?:Expr" more EvalExpr.hlp
if /i "%1"=="/?:Expr" goto end
echo 欢迎使用2K/XP表达式计算批处理
echo Made by Brglng 2005.8.25
echo 下载地址:http://brglng.ys168.com
echo 有bug请及时汇报!Email:sky-0310@sohu.com
echo.
echo 注意:本批处理只能用于NT类的系统,不能用于Win9x/Me/DOS!
echo 如果在命令行下使用,请用附件里的“命令提示符”或者使用cmd.exe,而不要使用command.com!
echo This batch file can only be used in Chinese version of Windows 2K/XP/2003...!
echo Do not use command.com instead of cmd.exe!
echo.
if not "%1"=="/?" pause
if not "%1"=="/?" goto inputExpr
echo 用法:
echo EvalExpr [表达式] [文件路径]
echo EvalExpr [/A] [文件路径]
echo EvalExpr [/?]
echo EvalExpr [/?:Expr]
echo.
echo [表达式]        : 要计算的表达式
echo [文件路径]      : 使用此参数将表达式和计算结果存入指定的文件
echo [/A] [文件路径] : 非使用参数计算时总是将计算结果自动存入指定文件
echo                   注:文件路径将作为第二个参数,必须和/A参数配合使用。
echo [/?]            : 查看此帮助
echo [/?:Expr]       : 查看表达式书写方面的帮助
goto end

:inputExpr
echo.
set Expr=
set EvalExpr=
set /p Expr=请输入表达式(输入"?"查看帮助, "Exit"退出):
if "%Expr%"=="" goto inputExpr
if "%Expr%"=="?" (
echo.
more  EvalExpr.hlp
goto inputExpr
)
if /i "%Expr%"=="Exit" goto end
set /a EvalExpr="%Expr%"
if "%EvalExpr%"=="" (
echo 输入错误!
goto inputExpr
)
echo 计算结果为:%EvalExpr%
if /i "%1"=="/A" goto autosave

:if_save
set SaveEval=
echo.
set /p SaveEval=是否将表达式和计算结果存入文件[Y/N]?
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
if /i "%1"=="/A" if not "%2"=="" echo 所有的表达式和计算结果都已存入"%2"!
del /q EvalExpr.hlp >nul 2>nul
set Expr=
set EvalExpr=
set SaveEval=
set SaveEvalPath=
set EvalNext=




32位才是DOS未来的希望
个人网志:http://sololand.moe
2005-8-25 11:39
查看资料  发短消息 网志   编辑帖子  回复  引用回复
defrag
中级用户

痴迷DOS者


积分 456
发帖 570
注册 2004-10-9
状态 离线
『第 12 楼』:  

用GW-BASIC编计算器并不是很难。。。
这个没测试过
没有错误处理
main.bas:
10 if flag=-1 goto 80
15 input "A=",expres$
20 if expres$="" goto 90
20 open "temp.bas" for output as #1
30 print #1,"10 A=";expres$
40 print #1,"20 PRINT ";CHR$(34);expres$;"=";chr$(34);"A"
50 print #1,"30 flag=-1"
60 print #1,"40 chain ";CHR$(34);"main.bas";CHR$(34)
70 close #1
75 chain "temp.bas"
80 goto 10
90 end
用QB7.1也可以(要用QBX运行,不能编译)
有错误处理
也没测试
main.bas:
if flag=-1 goto 70
10 input "A=",expres$
if expres$="" goto 80
open "temp.bas" for output as #1
print #1,"ON ERROR RESUME NEXT
print #1,"10 A=";expres$
PRINT #1,"IF ERR>0 THEN PRINT";CHR$(34);"Error!";CHR$(34);":goto 30"
print #1,"20 PRINT ";CHR$(34);expres$;"=";chr$(34);"A"
print #1,"30 flag=-1"
print #1,"40 chain ";CHR$(34);"main.bas";CHR$(34)
close #1
chain "temp.bas"
80 goto 10
90 end
[ Last edited by defrag on 2005-8-30 at 19:41 ]



DOS不是万能的,没有DOS是万万不能的
自古系统谁无死?留取胆清照汗青![upload=bmp]uploadImages/20035317345478982.png[/upload]
2005-8-26 00:54
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
willsort
元老会员

Batchinger


积分 4432
发帖 1512
注册 2002-10-18
状态 离线
『第 13 楼』:  

Re Brglng:

      在结构上作了一些变化,让程序执行流程更加清晰,核心代码并为做出更改,请 Brglng 兄做一下测试吧。关于表达式用法帮助,我起初使用了 for 的语句以节省代码,但后来考虑到可读性的问题,最后舍弃了,你也可以一起测试一下。
:: Eval.bat - 2K/XP表达式计算批处理
:: Brglng - 2005.8.25
:: Modified: Will Sort - 2005.8.26
@echo off
setlocal
if /i "%1"=="/A" if "%2"=="" echo 必须指定文件路径!& goto end
if /i not "%1"=="/A" if not "%1"=="/?" if not "%1"=="" goto EvalArgument

:EvalLogo
cls
echo.
echo 欢迎使用2K/XP表达式计算批处理
echo Made by Brglng 2005.8.25
echo 下载地址:http://brglng.ys168.com
echo 有bug请及时汇报!Email:sky-0310@sohu.com
echo.
echo 注意:本批处理只能用于NT类的系统,不能用于Win9x/Me/DOS!
echo 如果在命令行下使用,请用附件里的“命令提示符”或者使用cmd.exe,而不要使用command.com!
echo This batch file can only be used in Chinese version of Windows 2K/XP/2003...!
echo Do not use command.com instead of cmd.exe!
echo.
if not "%1"=="/?" goto inputExpr

:Help
pause>nul
cls
echo 命令行书写帮助:
echo.
echo   %0 [表达式] [文件路径]
echo   %0 [/A 文件路径]
echo   %0 [/?]
echo   %0 [/? Expr]
echo.
echo   [表达式]        : 要计算的表达式
echo   [文件路径]      : 使用此参数将表达式和计算结果存入指定的文件
echo   [/A 文件路径]   : 非使用参数计算时总是将计算结果自动存入指定文件
echo                 注:文件路径将作为第二个参数,必须和/A参数配合使用。
echo   [/?]            : 查看命令行书写帮助
echo   [/? Expr]       : 查看命令行书写帮助与表达式书写帮助
echo.
if /i not "%2"=="Expr" goto end
pause>nul

:ExprHelp
cls
echo 表达式书写帮助:
echo.
::set /?> sethelp.txt
::for /f "skip=29 delims=" %%h in (sethelp.txt) do echo %%h & if "%%h"=="因为 8 和 9 不是有效的八进制位数。" goto end
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 表达式输入错误!& pause & goto ExprHelp
echo %1=%EvalExpr%
if "%2"=="" goto end
echo %1=%EvalExpr% >>"%2"
echo 算式和计算结果已存入"%2"!
goto end

:inputExpr
set Expr=
set EvalExpr=
set /p Expr=请输入表达式(输入"?"查看帮助, "Q"退出):
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_save
set SaveEval=
echo.
set /p SaveEval=是否将表达式和计算结果存入文件[Y/N]?
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
[ Last edited by willsort on 2005-9-11 at 13:19 ]



※ Batchinger 致 Bat Fans:请访问 [讨论]批处理编程的异类 ,欢迎交流与共享批处理编程心得!
2005-8-26 11:28
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
pfox
银牌会员




积分 1451
发帖 446
注册 2002-10-20
状态 离线
『第 14 楼』:  

几位用其他语言编写的朋友,能不能随便编译成exe上传?




我的下载空间
2005-8-26 15:01
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
defrag
中级用户

痴迷DOS者


积分 456
发帖 570
注册 2004-10-9
状态 离线
『第 15 楼』:  

说过,我那个只能在IDE(急成开发环境)里运行。。。



DOS不是万能的,没有DOS是万万不能的
自古系统谁无死?留取胆清照汗青![upload=bmp]uploadImages/20035317345478982.png[/upload]
2005-8-27 16:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: