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)

@echo off&Setlocal EnableDelayedExpansion
for /f "delims=" %%a in (1.txt) do (
        set str=%%a
        set str=!str:/=$_!
        exit|cmd/kprompt !str!>>new_.txt
)
start new_.txt

@ECHO OFF 2>nul 3>nul&setlocal enabledelayedexpansion
set "num1=qwer/asdf2/asd34f/1234567890123456/asdf/aaaa"
set "num2=aaaaa2/23456789012345678/asdfssasd/asdaa"
set num=%num1:/= % %num2:/= %
for %%i in (%num%) do echo %%i|findstr /b /e [0-9]*[0-9]&&SET Z=/0%%i !z!
call :next %z%&&goto :eof
:next
set A=%~1&set B=%~2
:ADD
SET/AX-=1
CALL SET/AT1=%%A:~%X%,1%%+%%B:~%X%,1%%||(
ECHO %T3%%C%&&PAUSE&&GOTO :EOF)
CALL SET T3=%%A:~2,%X%%%%%B:~2,%X%%%
SET/A1/T2&&SET/AT1=T1+1
SET/AT2=1/(T1/10)||SET T2=0
SET C=%T1:~-1%%C%
GOTO ADD

19586
453
10039
请按任意键继续. . .

::code by youxi01@cn-dos.net
@echo off & setlocal enabledelayedexpansion
set "str1=qwer/asdf2/asd34f/13546641654546546654654654144553098785546154/asdf/aaaa"
set "str2=aaaaa2/453216543225443263845482842643/asdfssasd/asdaa"
call :GetNum "%str1%" num1
call :GetNum "%str2%" num2
call :Split %num1%
set/a Mnum=%num%,num=0,flag=0
call :Split %num2%
if %Mnum% LSS %num% set/a Mnum=%num%
set/a Mnum_=%Mnum%-1
for /l %%i in (1 1 %Mnum_%) do (
   set/a Rnum%%i+=!flag!
   if !Rnum%%i! GTR 10000 set/a flag=1
   set Rnum%%i=000!Rnum%%i!
   set Rnum%%i=!Rnum%%i:~-4!
   set Rstr=!Rnum%%i!!Rstr!)
set/a Rnum%Mnum%+=%flag%
echo !Rnum%Mnum%!!Rstr!
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
:Split OBJ
    set str=%~1
    set/a num+=1
    if %str% LSS 10000 set/a Rnum%num%+=%str% & goto :eof
    set/a Rnum%num%+=10000%str:~-4%%%10000
    set str=%str:~0,-4%
    call :Split "%str%"

:: 向各位高手学习的同时，自己也写了个，没什么技术可言。
:: 不过好像就楼主的要求，能够达到目的
:: 得到的结果是 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 "^[0-9]*$">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 "^[0-9]*$">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