Eh? Porque tanto problema? mi codigo no ira para vb6 pero se arregla como dice seba con Mid() y es mucho mas corto q hacer todo eso :S
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
for i = 0 to string.lenth
array[i] = string[i]
next
@echo off
:Menu
cls
echo.
echo ---------------------------
echo PROGRAMA PARA HACER SUMAS
echo ---------------------------
echo.
echo.
set "num1="
set /p "num1=Ingrese el primer numero: "
if not defined num1 (goto Menu)
:Second
echo.
set "num2="
set /p "num2=Ingrese el segundo numero: "
if not defined num2 (goto Second)
set /a resultado= %num1%+%num2%
echo.
echo - Resultado: %resultado%
echo.
:Pregunta
echo.&&echo.
set "continuar="
set /p "continuar=Desea seguir o terminar? s/t: "
if not defined continuar (goto Pregunta)
if %continuar%== S (goto Menu)
if %continuar%== s (goto Menu)
if %continuar%== t (goto Salir)
if %continuar%== T (goto Salir)
goto Pregunta
:Salir
echo.&& echo - Gracias por usar el programa -
pause>nul
exit
@echo off
echo PROGRAMA PARA HACER SUMAS
:v
cls
echo.
set /p "var=Ingrese el primer numero: "
echo.
set /p "var1=Ingrese el sundo numero: "
set /a resultado=%var%+%var1%
echo.
echo Resultado: %resultado%
echo.
set /p "g=Desea seguir o terminar? s/t: "
if %g%==s goto v
if %g%==t goto t
:t
echo.&& echo Gracias por usar el programa.
pause>nul
exit