中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-06-14 20:57

欢迎新会员 luminwei　 RSS
共 47,998 篇主题 / 350,065 篇帖子 / 今日 2 篇 / 48,211 位会员

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [挑战2] 变量的检测和计算[难度：★]

楼主 [挑战2] 变量的检测和计算[难度：★] 发表于 2007-04-30 13:51　·　中国广东广州联通

flyinspace

银牌会员

★★★

积分 1,206
发帖 517
注册 2007-03-25 01:18
UID 82819
性别男

状态离线

set "num1=qwer/asdf2/asd34f/1234567890123456/asdf/aaaa"
set "num2=aaaaa2/23456789012345678/asdfssasd/asdaa"

目标：在上面两个条件中提取出纯数字的组合，并计算这两个数字的和，然后正确输出到屏幕上。（提取上面两个字符串只可以使用一个子程序，因为是测试的关系，只给出2个字符串的组合）

编写条件：cmd (help里包含的命令)

难点：随机的数字存在位和计算时的溢出

目标人群：有一定批处理基础的人。

注：挑战会逐渐提高难度。（大家尽量就自己会做的做出来）

编写积分奖励：3分。

完成提取任务的一分，完成计算任务的二分。。

加分不是目的。是对能力的一种肯定。

2楼正确获取了随机的字符串，但在处理计算时问题上有点问题。

输出为科学记数法。。但要求是：输出精确数值。。（完成第一项，加一分）

[ Last edited by flyinspace on 2007-4-30 at 01:19 PM ]

知，不觉多。不知，乃求知

第 2 楼发表于 2007-04-30 14:48　·　中国河北保定联通

baomaboy

银牌会员

★★★

积分 1,513
发帖 554
注册 2005-12-30 00:50
UID 48180
性别男

状态离线

由于对P一窍不通写个VBS吧



num1="qwer/asdf2/asd34f/1234567890123456/asdf/aaaa"

num2="aaaaa2/23456789012345678/asdfssasd/asdaa"

numarr=split(num1&"/"&num2,"/")

For i=0 To UBound(numarr)

if IsNumeric(numarr(i)) then

num=num+CDbl(numarr(i))

end if

Next

msgbox num

msgbox FormatNumber(num,0,,,0)

[ Last edited by baomaboy on 2007-4-30 at 04:37 PM ]

本帖最近评分记录（共 2 条）点击查看详情

评分人	分数	时间
zh159	+3	2007-04-30 15:46
flyinspace	+1	2007-04-30 15:46

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

第 3 楼发表于 2007-04-30 15:18　·　中国广东广州联通

flyinspace

银牌会员

★★★

积分 1,206
发帖 517
注册 2007-03-25 01:18
UID 82819
性别男

状态离线

Originally posted by baomaboy at 2007-4-30 01:48 AM:
由于对P一窍不通写个VBS吧



num1="qwer/asdf2/asd34f/1234567890123456/asdf/aaaa"

num2="aaaaa2/23456789012345678/asdfssasd/asdaa"

numarr=split(num1&"/"&num2,"/")

For i=0 To UBound(numarr)

if IsNumeric(numarr(i)) then

num=num+CDbl(numarr(i))

end if

Next

msgbox num







挑战失败：

原因见附件：



我们要求正确输出 结果。



[ Last edited by flyinspace on 2007-4-30 at 02:35 AM ]

附件

知，不觉多。不知，乃求知

第 4 楼发表于 2007-04-30 15:41　·　中国广西玉林博白县电信

zh159

金牌会员

★★★★

积分 3,687
发帖 1,467
注册 2005-08-08 12:00
UID 44210

状态离线

楼上的，二楼结果是正确的，E+16是科学计数的写法代表N*（1后面有16个零）
24691356902469134=2.46913569024691*10000000000000000=2.46913569024691E+16

本帖最近评分记录（共 1 条）点击查看详情

评分人	分数	时间
flyinspace	+1	2007-04-30 15:46

第 5 楼发表于 2007-04-30 15:46　·　中国广东广州联通

flyinspace

银牌会员

★★★

积分 1,206
发帖 517
注册 2007-03-25 01:18
UID 82819
性别男

状态离线

不好意思，我也知道他的结果正确。。。。

但我们的要求是：
输出：24691356902469134
这个结果，而不是2.46913569024691E+16 这个结果。。

这个算我没有说清楚。。。。

若我们的数字再变化一下呢？？有 30位呢？

我们要求的是精确。。。呵呵。。

最后谢谢 zh159的指出。

知，不觉多。不知，乃求知

第 6 楼发表于 2007-04-30 16:35　·　中国河北保定联通

baomaboy

银牌会员

★★★

积分 1,513
发帖 554
注册 2005-12-30 00:50
UID 48180
性别男

状态离线

Originally posted by flyinspace at 2007-4-30 15:46:
不好意思，我也知道他的结果正确。。。。

但我们的要求是：
输出：24691356902469134
这个结果，而不是2.46913569024691E+16 这个结果。。

这个 ...

那就格式化一下吧：
msgbox FormatNumber(num,0,,,0)

不过估计你那最后两位34没人能得到吧，早几年在Excel中就发现超过15位后全显示0，也许是微软觉得15位已经够用了限制了吧，呵呵，开玩笑的，反正我是用不到15位不深究了，有人知道指点下。

[ Last edited by baomaboy on 2007-4-30 at 04:51 PM ]

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

第 7 楼发表于 2007-04-30 20:15　·　中国广东电信

digger

初级用户

★

游荡的孤魂

积分 79
发帖 29
注册 2007-04-02 11:08
UID 83714
性别男
来自湖南

状态离线

计算两数的和这个话题论坛里曾经有过专题讨论，在精华帖里，有难度啊。

第 8 楼发表于 2007-04-30 20:55　·　中国广东清远联通

youxi01

高级用户

★★

积分 846
发帖 247
注册 2006-10-27 12:03
UID 68504
性别男
来自湖南==》广东

状态离线

我曾经写过大数字的计算（乘法）的，计算数字在 100 位以内。

还有，看2F的代码似乎两个字符串只是其中有一项目是数字哦！（就是说没有其它的特殊情况罗，比如：有两项数字又该怎么处理等？）

[ Last edited by youxi01 on 2007-4-30 at 08:56 PM ]

第 9 楼发表于 2007-04-30 21:26　·　中国广东清远联通

youxi01

高级用户

★★

积分 846
发帖 247
注册 2006-10-27 12:03
UID 68504
性别男
来自湖南==》广东

状态离线

提供一下思路：（因为马上要工作，就不能给出详细代码了。同时，因为搬家的原因，短期内要上不了网，所以也可能暂离联盟。）
1、关于各字符段的提取，昨天的挑战一就有相关代码。
2、提取出的各字符段，是否是数字相关判断的问题。此问题解决办法有三：
1>利用set/a 的特殊性，此办法不严谨，无法防止字符段恰好为0的情况。
2>利用findstr+正则，比较精确，但效率不高。
3>个人比较推荐的办法：拿字母（包括汉字）直接和数字比较大小，如果，某字符段是纯数字，它就一定比 a 小。缺点：无法处理特殊字符。
3、有关特大数字的计算。我们可以采取分段计算的办法，已经有相关讨论，我曾经也写过相关代码，在此不作赘述。

第 10 楼给出计算大数字的演示,提取好象大家都会？发表于 2007-04-30 22:23　·　中国广东广州联通

flyinspace

银牌会员

★★★

积分 1,206
发帖 517
注册 2007-03-25 01:18
UID 82819
性别男

状态离线

@echo off & setlocal EnableDelayedExpansion
set "a=123456789012485642424543456"
set "b=234567890000000000000005678"
call :GetLen "%a%"
set "Len1=%Len%"
call :GetLen "%b%"
set "Len2=%Len%"
set "s="
set "bit=0"
set "count=0"
:recompute
set /a "count+=1"
if %Len1% GEQ 9 (
set "str1=%a:~-9%
set "a=%a:~0,-9%"
set /a "Len1-=9"
) else (
set "str1=%a%"
set "a=0"
)
if %Len2% GEQ 9 (
set "str2=%b:~-9%"
set "b=%b:~0,-9%
set /a "Len2-=9"
) else (
set "str2=%b%"
set "b=0"
)
call :formatstr %str1%
set "str1=%xxx%
call :formatstr %str2%
set "str2=%xxx%
set /a "num=!str1!+!str2!+!bit!"
call :GetLen "%num%"
if '%Len% GTR 9' (
set "bit=%num:~0,1%"
set "num=%num:~-9%"
)
set "s=%num%%s%"
echo : %str1%+%str2%=%s%
if "%a%"=="0" (
if "%b%" == "0" (
goto :END
)
)
goto :recompute

:formatstr _str_
set "xxx=%~1"
:reformat
set "lll=9"
if "%xxx:~0,1%"=="0" (
set "xxx=!xxx:~1,%lll%!
set /a "lll-=1"
goto :reformat
)
goto :EOF

:GetLen
set "string=%~1"
for /l %%i in (0,1,255) do (
if "!string:~%%i,1!"=="" (
set "Len=%%i"
goto :EOF
)
)
goto :EOF
:END
echo ——————————————————————————
echo 最后答案为：%s%
echo ——————————————————————————
echo 程序演示结束,任意键退出 & pause>nul

[ Last edited by flyinspace on 2007-4-30 at 04:29 PM ]

知，不觉多。不知，乃求知

第 11 楼发表于 2007-05-01 00:58　·　中国新疆乌鲁木齐天山区电信

zhoushijay

高级用户

★★★

Autowalk

积分 845
发帖 375
注册 2007-03-03 01:58
UID 80606
性别男

状态离线

num1="qwer/asdf2/asd34f/1234567890123456/asdf/aaaa"
num2="aaaaa2/23456789012345678/asdfssasd/asdaa"
len1=len(num1)
len2=len(num2)

for i=1 to len1
nu1=mid (num1,i,1)

on error resume next
a=int(nu1)
if err.number=0 then
b=b&a
end if
next

for a=1 to len2
nu2=mid (num2,a,1)

on error resume next
d=int(nu2)
if err.number=0 then
s=s&d

end if
next
s=int(s)
b=int(b)

he=s+b

msgbox(he)正确的答案应该是2564691356902469134，我用计算器算了2遍

[ Last edited by zhoushijay on 2007-4-30 at 04:53 PM ]

第 12 楼发表于 2007-05-01 04:18　·　中国河北保定联通

baomaboy

银牌会员

★★★

积分 1,513
发帖 554
注册 2005-12-30 00:50
UID 48180
性别男

状态离线

Originally posted by youxi01 at 2007-4-30 20:55:
我曾经写过大数字的计算（乘法）的，计算数字在 100 位以内。

还有，看2F的代码似乎两个字符串只是其中有一项目是数字哦！（就是说没有其 ...

当数值型字串与数值在一起做运算时,数值型字串被当作数值

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

第 13 楼发表于 2007-05-01 05:01　·　中国广东广州海珠区电信

flyinspace

银牌会员

★★★

积分 1,206
发帖 517
注册 2007-03-25 01:18
UID 82819
性别男

状态离线

Originally posted by zhoushijay at 2007-4-30 11:58 AM:
nu1=mid (num1,i,1)

on error resume next
a=int(nu1)
if err.number=0 then
b=b&a
end if
next

for a=1 to len2
nu2=mid (num2,a,1)

on error resume next
d=int(nu2)
if err.number=0 then
s=s&d

end if
next
s=int(s)
b=int(b)

he=s+b
msgbox(he)
正确的答案应该是2564691356902469134，我用计算器算了2遍

=1234567890123456
23456789012345678+
--------------------------------
24691356902469134

怎么比也没有算错啊？？

怎么会是
2564691356902469134呢？

[ Last edited by flyinspace on 2007-4-30 at 04:10 PM ]

知，不觉多。不知，乃求知

第 14 楼发表于 2007-05-01 05:16　·　中国浙江杭州电信

bjsh

银牌会员

★★★

积分 2,000
发帖 621
注册 2007-01-01 00:00
UID 75212
性别男

状态离线

抽出了点时间写了这个..
结果为:24691356902469134

@echo off & setlocal enabledelayedexpansion

set "num1=qwer/asdf2/asd34f/1234567890123456/asdf/aaaa"

set "num2=aaaaa2/23456789012345678/asdfssasd/asdaa"

set "num1=%num1:/= %" & call :get_number !num1! & set "num1=!t!"

set "num2=%num2:/= %" & call :get_number !num2! & set "num2=!t!"

set "result="

:c_loop

set /a x=%num1:~-8%

set /a y=%num2:~-8%

set /a z=%x%+%y%

if defined flag set /a z=%z%+%flag%

set "flag=%z:~0,-8%" >>nul 2>>nul && set "z=%z:~-8%"

set "num1=%num1:~0,-8%"

set "num2=%num2:~0,-8%"

set "result=%z%%result%"

if not defined num1 if not defined num2 set "result=%flag%%result%" & goto :show

if not defined num1 set /a num1=0

if not defined num2 set /a num2=0

goto c_loop

:show

echo %result% & pause & goto :eof

:get_number

:loop

echo %1 >>tmp.txt & shift

if not "%1"=="" goto :loop

for /f %%a in ('findstr /r "^" tmp.txt') do set "t=%%a"

del tmp.txt

BJSH发表于： 2007-04-30 16:04

本帖最近评分记录（共 1 条）点击查看详情

评分人	分数	时间
flyinspace	+3	2007-05-01 05:34

第 15 楼发表于 2007-05-01 05:17　·　中国广西玉林博白县电信

zh159

金牌会员

★★★★

积分 3,687
发帖 1,467
注册 2005-08-08 12:00
UID 44210

状态离线

Originally posted by zhoushijay at 2007-4-30 11:58:
nu1=mid (num1,i,1)

on error resume next
a=int(nu1)
if err.number=0 then
b=b&a
end if
next

for a=1 to len2
nu2=mid (num2,a,1)

on error resume next
d=int(nu2)
if err.number=0 then
s=s&d

end if
next
s=int(s)
b=int(b)

he=s+b
msgbox(he)
正确的答案应该是2564691356902469134，我用计算器算了2遍

16位数+17位数怎么也不可能得出19位数啊？

　　 1234567890123456
　+23456789012345678
--------------------------------------
　=24691356902469134
=================
2564691356902469134

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: