Это немного сложнее, чем использовать set /a, но это можно решить с помощью MS-DOS 6.22.
Одна часть состоит в написании функции для добавления отдельных цифр и одной функции, которая может добавлять несколько цифр.
Основная проблема - разделить число на однозначные числа, поскольку MS-DOS не поддерживает манипуляции со строками.
Но в обработке FOR-Loop есть небольшой недостаток: / разбивает текст на три части.
for %%a in (`abcdef/ghijklmno`) do echo %%a
Выходы
abcdef
g
hijklmno
С помощью этого трюка число можно разбить на однозначные числа
split.bat
@echo off
for %%P in (/%1.) do if %%P==: goto %1
set _idx=
set _remain=
set _splitRev=
set _splitRev_comma=
:loop
set _loop=1
for %%a in (/%_remain%) do call %0 :split %1 %%a
if NOT "%_remain%"=="" goto :loop
set %1=%_splitRev%
set %1_comma=%_splitRev_comma%
REM Clear temp vars
FOR %%v in (_remain _idx _loop _splitRev _splitRev_comma) do set %%v=
goto :eof
:split
if %_loop%%==2 goto :split_2
set _loop=2
set _remain=
set splitRev=%3%_splitRev%
set splitRev_comma=%3,%_splitRev_comma%
goto :eof
:split_2
set _remain=%3
goto :eof
:eof
А add.bat выглядит как
@echo off
for %%P in (/%1.) do if %%P==: goto %1
call splitt _valueRev1 %1
call splitt _valueRev2 %2
set _result=
set _carry=
for %%d in(%_valueRev1_comma%,0,0,0,0,0) do call %0 :getDig1 %%d
REM Remove leading zeros
:zeroLoop
for %%z in (/%_result%) do set _remain=%%z
if not %_result%==0%_remain% goto :finish
set _result=%_remain%
goto :zeroLoop
:finish
echo %1+%2=%_result%
REM Clear temp vars
FOR %%v in (_result _carry _len _digit1 _digit2 _remain _valueRev1 _valueRev1_comma _valueRev2 _valueRev2_comma) do set %%v=
goto :eof
:getDig1
set _digit1=%2
set _digit2=
for %%d in (/%_valueRev2%0) do call %0 :getDig2 %%d
set _len=%_carry%
call %0 :lenAddDigit %_digit1%
call %0 :lenAddDigit %_digit1%
call %0 :len2val
set _result=%_val%%_result%
goto :eof
:getDig2if not "%_digit2%"==" set _valueRev2=%2
if "%_digit2%"=="" set _digit2=%2
goto :eof
:lenAddDigit
if %2==1 set _len=%_len%#
if %2==2 set _len=%_len%##
if %2==3 set _len=%_len%###
if %2==4 set _len=%_len%####
if %2==5 set _len=%_len%#####
if %2==6 set _len=%_len%######
if %2==7 set _len=%_len%#######
if %2==8 set _len=%_len%########
if %2==9 set _len=%_len%#########
goto :eof
:len2val
set _carry=
set _val=
if %_len%.==. set _val=0
if %_len%.==. goto :eof
if %_len%==# set _val=1
if %_len%==## set _val=2
if %_len%==### set _val=3
if %_len%==#### set _val=4
if %_len%==##### set _val=5
if %_len%==###### set _val=6
if %_len%==####### set _val=7
if %_len%==######## set _val=8
if %_len%==######### set _val=9
if NOT "%_val%"=="" goto :eof
set _carry=#
##########
if %_len%==########## set _val=0
if %_len%==########### set _val=1
if %_len%==############ set _val=2
if %_len%==############# set _val=3
if %_len%==############## set _val=4
if %_len%==############### set _val=5
if %_len%==################ set _val=6
if %_len%==################# set _val=7
if %_len%==################## set _val=8
if %_len%==################### set _val=9
goto :eof
:eof
Успешно протестировано на MS-DOS 6.22 (VMWare)
Ограничения MS-DOS 6.22
IF не поддерживает ELSE
Обход:
IF %1==b echo It is equal
IF NOT %1==b echo It isn't equal
Только goto может перейти к метке, CALL может только запустить другую партию.
Решение:
Поместите что-то подобное в первую строку вашей партии
FOR %%P in (/%1) do IF %%P==: goto %1
...
REM This calls the current batch file and jumps to a label
CALL %0 :myLabel arg1
...
:myLabel
echo arg1=%2
echo Action1
echo Action2
goto :eof
Нет кодовых блоков, как
FOR %%a in (1 2 3 ) do (
set concat=%%a
echo %concat%
)
Обходной путь:
FOR %%a in (1 2 3 ) do CALL %0 :myFunc %%a
Нет косвенного расширения переменных
Обходной путь:
set var=content
set indirect=var
> temp$$$.bat echo set result=%%%indirect%%%
call temp$$$.bat
echo result=%result%