Jaja, cierto, lo había olvidado, hace mucho me habías dicho.
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úhttp://www.cplusplus.com/reference/clibrary/cstring/strstr/
http://librosfull.com/matematica/
@echo off
setlocal enableextensions enabledelayedexpansion
set /a counter=0
:: Opciones
for /f "tokens=*" %%_ in ('dir /b .') do (
set "choices[!counter!]=%%_"
set /a counter+=1
)
set /a n_choices=%counter%
set /a luz=1
set /a choice=0
call:print !luz! %n_choices%
:loop
call keyboard.com
if !errorlevel! equ 72 (
if !luz! equ 1 (
set /a luz=!n_choices!
) else (
set /a luz-=1
)
)
if !errorlevel! equ 80 (
if !luz! equ !n_choices! (
set /a luz=1
) else (
set /a luz+=1
)
)
if !errorlevel! equ 13 (
set /a choice=!luz!
)
call:print !luz! !n_choices!
if !choice! neq 0 (goto:eleccion)
goto:loop
:eleccion
set /a choice-=1
echo Elegiste la opción : !choices[%choice%]!
set /p "="
exit /b 0
:print
cls
set /a limit=%2 - 1
for /l %%_ in (0, 1, %limit%) do (
set /a local=%%_ + 1
if %1 equ !local! (
echo -^> !choices[%%_]!
) else (
echo !choices[%%_]!
)
)
goto:eof
Archivos de programa
-> ares
code.bat
CONFIG.SYS
cplusplus
cpps
c_codes
Documents and Settings
dudas.bat
escuela.rar
file.txt
Intel
KEYBOARD.COM
log_1.txt
log_2.txt
log_3.txt
log_4.txt
log_5.txt
log_6.txt
MinGW
Perl
Program Files
Qt
reporte_porno.rar
revistas
test.bat
Usb
WINDOWS
_Corel
_foster.rar
Elegiste la opci¾n : ares
C:\>
@echo off
setlocal enabledelayedexpansion
set /a counter=0
for /f "tokens=*" %%_ in ('type "file.txt" ^| find "-rw-r-----"') do (
set /a counter+=1
echo %%_ > "log_!counter!.txt"
)
exit /b 0