中国DOS联盟

Originally posted by bjsh at 2007-5-1 05:16 AM:
抽出了点时间 写了这个..
结果为:24691356902469134

Originally posted by 111ab at 2007-5-10 01:35 PM:

bjsh兄：
无意间看到了你的帖子，被你的代码折服了。花了一天多时间拜读了一下你的代码，刚弄懂提取数字字段那部分，我是菜鸟，别笑话我， ...

感觉你的 findstr 的正则表达式对字串类似"12345adfadfds45156"（头尾均为数字，但中间为字符）的情况也能匹配。我想改成这样地：
findstr "^*$" tmp.txt

注：正则表达式 "^*$" 并不能匹配字串类似"123457684 "的情况，所以:get_number段中代码要做一下小小改动，我的建议如下：
原代码： echo %1 >>tmp.txt & shift
修改后： echo %1>>tmp.txt& shift ::注意该处%1后和.txt后均不能有空格，否则空格会被输入到.txt中，影响正则表达式的匹配。
或改成： echo %1>>tmp.txt
shift

:: 向各位高手学习的同时，自己也写了个，没什么技术可言。

:: 不过好像就楼主的要求，能够达到目的

:: 得到的结果是 24691356902469134

:: 特点：

::     不限于数字的大小,只要是求和的都可以

:: 思路:

::    直接加最后一位数,再加进位的数,再将原数舍弃最后一位,如此循环,直至结果.





@echo off & setlocal enabledelayedexpansion

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

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



set "num1=%num1:/= %"&set "num2=%num2:/= %"&set b=1

for %%i in (%num1% %num2%) do (

echo %%i|findstr "^*$">nul&&set num!b!=%%i&&set /a b+=1

)

set jin=0



:loop

set /a a=%num1:~-1%+%num2:~-1%+%jin%

set jieguo=%a:~-1%%jieguo%

set a=0%a%

set jin=%a:~-2,1%

set num1=%num1:~0,-1%

set num2=%num2:~0,-1%

if "%num1%"=="" set /a zz=%num2%+%jin%&goto lis

if "%num2%"=="" set /a zz=%num1%+%jin%&goto lis

goto loop



:lis

if "%zz%"=="0" set zz=

echo.&echo   结果：%zz%%jieguo% 

echo.&pause

::code by youxi01@cn-dos.net

@echo off&setlocal enabledelayedexpansion

set "str1=qwer/asdf2/asd34f/123456789012345665644654456454665446565446544665446546545644565465464646546544654546654654465654465654665465465465446565446564/asdf/aaaa"

set "str2=aaaaa2/23456789012345678654466544466544641125654456455464654546654465654465446554665445454654544545654/asdfssasd/asdaa"

call :GetNum %str1% num1

call :GetNum %str2% num2

call :lineup num1

call :lineup num2

set/a flag=0

for /l %%i in (2 1 199) do (

 set/a var=!num1:~-%%i,1!+!num2:~-%%i,1!+!flag!

 set var=0!var!

 set flag=!var:~-2,1!

 set str=!var:~-1!!str!

 )

for /f "delims=0 tokens=*" %%i in ("!str!") do echo %%i

pause>nul

:GetNum OBJ Res 

   for /f "delims=/ tokens=1,*" %%i in ("%~1") do (

       if %%i LSS a set %2=%%i & goto :eof

       call :GetNum "%%j" %2

     ) & goto :eof

:lineup obj

    for /l %%i in (1 1 200) do set %1=0!%1!

    call set %1=!%1:~-200!

:: 写了个补位的，如你所说，全局没有一个goto和if

:: 但是效率好像没见有什么提高啊？



@echo off & setlocal enabledelayedexpansion

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

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



set "num1=%num1:/= %"&set "num2=%num2:/= %"&set b=1

for %%i in (%num1% %num2%) do (

echo %%i|findstr "^*$">nul&&set num!b!=%%i&&set /a b+=1

)

echo !num1! + !num2!

for /l %%i in (1 1 200) do (

set num1=0!num1!

set num2=0!num2!

)

set num1=!num1:~-200!&set num2=!num2:~-200!



set jin=0

for /l %%i in (-1 -1 -200) do (

set /a a=!num1:~%%i,1!+!num2:~%%i,1!+!jin!

set jie=!a:~-1!!jie!

set a=0!a!

set jin=!a:~-2,1!

)

for /f "tokens=* delims=0" %%i in ("!jie!") do echo.&echo %%i

echo.&pause