0) VARIOS EJERCICIOS DE PARÁMETROS
EJ1_PARA.BAT
Muestra los 10 primeros parámetros (0 al 9)
@ECHO OFF CLS ECHO EL PARAMETRO CERO ES %0 ECHO EL PARAMETRO UNO ES %1 ECHO EL PARAMETRO DOS ES %2 ECHO EL PARAMETRO TRES ES %3 ECHO EL PARAMETRO CUATRO ES %4 ECHO EL PARAMETRO CINCO ES %5 ECHO EL PARAMETRO SEIS ES %6 ECHO EL PARAMETRO SIETE ES %7 ECHO EL PARAMETRO OCHO ES %8 ECHO EL PARAMETRO NUEVE ES %9
EJ2_PARA.BAT
Muestra el listado de archivos cuya extensión coincida con el primer parámetro, crea un directorio con el segundo y copia todos los archivos al mismo, mostrando al final un listado en formato árbol
@ECHO OFF CLS DIR *.%1 MD %2 COPY *.* %2 TREE /F
EJ3_PARA.BAT
Crea un directorio con el primer parámetro, copia los archivos que empiecen con el segundo a dicho directorio y crea un archivo con el tercero con contenido la fecha actual, mostrando finalmente dicho contenido
@ECHO OFF CLS MD %1 COPY %2*.* %1 DATE /T>%3 TYPE %3
EJ4_PARA.BAT
Muestra los 3 primeros parámetros, crea 2 directorios con los 2 primeros y un archivo con la hora actual con el tercero
@ECHO OFF CLS ECHO LOS PARAMETROS SON %1 - %2 - %3 MD %1 %2 TIME /T>%3.TXT
1) EJ1_PARAMETROS.BAT
Muestra un mensaje con los primeros 15 parámetros
El primer parámetro es asfdasf
El segundo parámetro es xxxxx
@ECHO OFF CLS ECHO EL PARAMETRO 1 ES %1 ECHO EL PARAMETRO 2 ES %2 ECHO EL PARAMETRO 3 ES %3 ECHO EL PARAMETRO 4 ES %4 ECHO EL PARAMETRO 5 ES %5 ECHO EL PARAMETRO 6 ES %6 ECHO EL PARAMETRO 7 ES %7 ECHO EL PARAMETRO 8 ES %8 ECHO EL PARAMETRO 9 ES %9 SHIFT ECHO EL PARAMETRO 10 ES %9 SHIFT ECHO EL PARAMETRO 11 ES %9 SHIFT ECHO EL PARAMETRO 12 ES %9 SHIFT ECHO EL PARAMETRO 13 ES %9 SHIFT ECHO EL PARAMETRO 14 ES %9 SHIFT ECHO EL PARAMETRO 15 ES %9
2) EJ2_UNIR.BAT
Admite 3 parámetros que son 3 ficheros de texto
y une los dos primeros en el último
EJEMPLO: EJ2_UNIR.BAT FI1.TXT FI2.TXT UNION.TXT
@ECHO OFF CLS COPY %1 + %2 %3
3) EJ3_PARA.BAT
Copia el fichero introducido como primer parámetro al directorio pasado como segundo parámetro y muestra el contenido de dicho directorio
@ECHO OFF CLS COPY %1 %2
4) EJ4_PARA2.BAT
Cambia el nombre de los ficheros cuya extensión coincida con el primer parámetro a la extensión pasada como segundo parámetro.
Ej: EJ4_PARA2.BAT TXT OPA
@ECHO OFF CLS REN *.%1 *.%2
5) EJ5_PARA3.BAT
Fichero que admite cinco parámetros
Cambia la etiqueta del sistema por el nombre introducido como primer parámetro
Muestra dicha etiqueta
Crea el directorio pasado como segundo parámetro y copia todos los archivos con extensión pasada como tercer parámetro a dicho directorio.
Finalmente copia el contenido de todos esos archivos pasados a un fichero llamado como el cuarto parámetro.
Finalmente crea un fichero llamado CONTE.TXT con el contenido pasado como quinto parámetro y finalmente muestra dicho archivo.
@ECHO OFF CLS LABEL C: %1 VOL MD %2 COPY *.%3 %2 TYPE *.%3>>%4 ECHO %5>CONTE.TXT TYPE CONTE.TXT
6) EJ6_EXISTE.BAT
Comprueba que existe el fichero que introducimos como primer parámetro.
- Si existe
muestra el mensaje correspondiente
muestra también su contenido
muestra sus atributos
- Si no existe muestra el mensaje correspondiente
@ECHO OFF CLS IF EXIST %1 GOTO EXISTE IF NOT EXIST %1 GOTO NOEXISTE :EXISTE ECHO %1 EXISTE TYPE %1 ATTRIB %1 GOTO END :NOEXISTE ECHO %1 NO EXISTE :END
7) EJ7_COMPARA.BAT
Comprueba que los 3 parámetros introducidos sean iguales o diferentes
Si son los 3 iguales
Si son los 3 diferentes
Si son iguales tal y tal
@ECHO OFF CLS IF "%1"=="%2" GOTO 1Y2IGUALES IF NOT "%1"=="%2" GOTO 1Y2NOIGUALES :1Y2IGUALES IF "%1"=="%3" GOTO 3IGUALES IF NOT "%1"=="%3" GOTO 1Y2IGUALES3NO :1Y2IGUALES3NO ECHO P1 %1 Y P2 %2 SON IGUALES PERO P3 %3 NO GOTO FIN :3IGUALES ECHO P1 %1, P2 %2 Y P3 %3 SON IGUALES GOTO FIN :1Y2NOIGUALES IF "%1"=="%3" GOTO 1Y2DIF1Y3IGUALES IF NOT "%1"=="%3" GOTO 1Y2DIF1Y3DIF :1Y2DIF1Y3IGUALES ECHO P1 %1 Y P2 %2 SON DIFERENTES PERO P1 %1 Y P3 %3 SON IGUALES GOTO FIN :1Y2DIF1Y3DIF IF "%2"=="%3" GOTO 1Y2DIF2Y3IGUALES IF NOT "%2"=="%3" GOTO 3DIFE :1Y2DIF2Y3IGUALES ECHO P1 %1 Y P2 %2 SON DIFERENTES PERO P2 %2 Y P3 %3 SON IGUALES GOTO FIN :3DIFE ECHO P1 %1, P2 %2 Y P3 %3 SON DIFERENTES :FIN
(nota: como ejercicio para casa, debéis optimizar el código anterior, eliminando las órdenes innecesarias tal y cómo hemos visto en clase)
8) EJ8_NUMPARA.BAT
Admite 3 parámetros exactos, e indica en su caso el mensaje correspondiente.
Ha introducido 0 parámetro(s), debe introducir 3
Ha introducido 1 parámetro(s), debe introducir 3
…
Ha introducido más de 3 parámetros, debe introducir solo 3
@ECHO OFF CLS IF "%1"=="" GOTO 0PARA IF "%2"=="" GOTO 1PARA IF "%3"=="" GOTO 2PARA IF "%4"=="" GOTO 3PARA ECHO HA INTRODUCIDO MAS DE 3 PARAMETROS, DEBE INTRODUCIR SOLO3 GOTO FIN :0PARA ECHO HA INTRODUCIDO 0 PARAMETRO(S) DEBE INTRODUCIR 3 GOTO FIN :1PARA ECHO HA INTRODUCIDO 1 PARAMETRO(S) DEBE INTRODUCIR 3 GOTO FIN :2PARA ECHO HA INTRODUCIDO 2 PARAMETRO(S) DEBE INTRODUCIR 3 GOTO FIN :3PARA ECHO CORRECTO! HA INTRODUCIDO 3 PARAMETROS :FIN
9) EJ9_COMPRUEBAYEXISTE.BAT
Pide 1 parámetro que es el nombre de un directorio y solo 1 (mostrando el mensaje correspondiente.
En caso de introducir 1, comprueba si existe
Si existe muestra su contenido
Si no existe lo crea
@ECHO OFF CLS IF "%1"=="" GOTO 0PARA IF "%2"=="" GOTO 1PARA ECHO HA INTRODUCIDO MAS DE 1 PARAMETROS, DEBE INTRODUCIR SOLO 1 GOTO FIN :0PARA ECHO HA INTRODUCIDO 0 PARAMETRO(S) DEBE INTRODUCIR 1 GOTO FIN :1PARA IF EXIST %1 DIR %1 MD %1 :FIN
10) EJ10_FICHEROS.BAT
Muestra el nombre de todos los ficheros que tengan la extensión introducida como primer parámetro
@ECHO OFF CLS REM UTILIZAMOS EL /R PARA QUE SEA RECURSIVO (DENTRO DE CADA CARPETA) FOR /R %%F IN (*.%1) DO ECHO %%F
11) EJ11_CUENTAINVERSA.BAT
Muestra los números del 100 al 0 de 2 en 2
@ECHO OFF CLS FOR /L %%N IN (100,-2,0) DO ECHO %%N
12) EJ12_CUENTA.BAT
Muestra los números desde el primer parámetro hasta el segundo parámetro, contando de “n” en “n”, donde “n” es el tercer parámetro
@ECHO OFF CLS FOR /L %%N IN (%1,%3,%2) DO ECHO %%N
13) EJ13_CHOICEUENTA.BAT
Ejemplo de CHOICE con 3 opciones utilizando IF ERRORLEVEL
@ECHO OFF @ECHO OFF CLS ECHO MENU DE OPCIONES ECHO A.OPCIONA ECHO B.OPCIONB ECHO C.OPCIONC CHOICE /C:ABC /M "Selecciona una opcion: " IF ERRORLEVEL 3 GOTO OPCC IF ERRORLEVEL 2 GOTO OPCB IF ERRORLEVEL 1 GOTO OPCA :OPCA ECHO HA SELECCIONADO LA OPCION A GOTO FIN :OPCB ECHO HA SELECCIONADO LA OPCION B GOTO FIN :OPCC ECHO HA SELECCIONADO LA OPCION C :FIN
14) EJ14_AGENDA.BAT
Utilizando el fichero AMIGOS.TXT (listado de nombres, localidad y teléfonos) de ejercicios anteriores Muestra el siguiente menu:
AMIGOS.TXT
Ismael Caballero Valladolid 7986821 María López Córdoba 4568756 Sonia Aguilar Valladolid 1239083 Juan Ramírez Córdoba 7643434 Laura Díaz Córdoba 4221336 Enrique Ortiz Burgos 3423444 Mónica Carrasco Madrid 1234123 Cristina Reyes Madrid 3344334
AGENDA
V. Ver agenda (normal)
L. Ordenada por localidad
A. Ordenada por apellidos
S. Salir
Mostrando una pausa en cada pantalla y un mensaje de agradecimiento al salir (en PRINCIPIO SOLO SE VA A EJECUTAR UNA VEZ)
@ECHO OFF CLS ECHO AGENDA ECHO. ECHO V.VER AGENDA (NORMAL) ECHO L.ORDENADO POR LOCALIDAD ECHO A.ORDENADO POR APELLIDOS ECHO S.SALIR CHOICE /C:VLAS /M "Selecciona una opcion: " IF ERRORLEVEL 4 GOTO SALIR IF ERRORLEVEL 3 GOTO APELL IF ERRORLEVEL 2 GOTO LOCAL IF ERRORLEVEL 1 GOTO NORMA :NORMA ECHO. ECHO Ver agenda ECHO. TYPE AMIGOS.TXT PAUSE GOTO SALIR :LOCAL ECHO. ECHO Ordenada por localidad ECHO. TYPE AMIGOS.TXT |SORT /+26 PAUSE GOTO SALIR :APELL ECHO. ECHO Ordenada por apellido ECHO. TYPE AMIGOS.TXT |SORT /+12 PAUSE GOTO SALIR :SALIR ECHO. ECHO Gracias por utilizarnos ;)
Y si queremos que se EJECUTE SIEMPRE EL MENÚ HASTA QUE NO PULSEMOS LA TECLA SALIR SERÍA:
@ECHO OFF :INICIO CLS ECHO AGENDA ECHO. ECHO V.VER AGENDA (NORMAL) ECHO L.ORDENADO POR LOCALIDAD ECHO A.ORDENADO POR APELLIDOS ECHO S.SALIR CHOICE /C:VLAS /M "Selecciona una opcion: " IF ERRORLEVEL 4 GOTO SALIR IF ERRORLEVEL 3 GOTO APELL IF ERRORLEVEL 2 GOTO LOCAL IF ERRORLEVEL 1 GOTO NORMA :NORMA ECHO. ECHO Ver agenda ECHO. TYPE AMIGOS.TXT PAUSE GOTO INICIO :LOCAL ECHO. ECHO Ordenada por localidad ECHO. TYPE AMIGOS.TXT |SORT /+26 PAUSE GOTO INICIO :APELL ECHO. ECHO Ordenada por apellido ECHO. TYPE AMIGOS.TXT |SORT /+12 PAUSE GOTO INICIO :SALIR ECHO. ECHO Gracias por utilizarnos ;)
15) EJ15_AGENDACALL.BAT
Igual que el 14 (con etiqueta inicio) pero utilizando además del archivo principal los archivos
VERNORMAL.BAT
ORDENAPE.BAT
ORDENLOC.BAT
que hay que llamarlos OBLIGATORIAMENTE CON LA ORDEN CALL
EJ15_AGENDACALL.BAT
@ECHO OFF :INICIO CLS ECHO AGENDA ECHO. ECHO V.VER AGENDA (NORMAL) ECHO L.ORDENADO POR LOCALIDAD ECHO A.ORDENADO POR APELLIDOS ECHO S.SALIR CHOICE /C:VLAS /M "Selecciona una opcion: " IF ERRORLEVEL 4 GOTO SALIR IF ERRORLEVEL 3 GOTO APELL IF ERRORLEVEL 2 GOTO LOCAL IF ERRORLEVEL 1 GOTO NORMA :NORMA CALL VERNORMAL.BAT GOTO INICIO :LOCAL CALL ORDENLOC.BAT GOTO INICIO :APELL CALL ORDENAPE.BAT GOTO INICIO :SALIR ECHO. ECHO Gracias por utilizarnos ;)
VERNORMAL.BAT
@ECHO OFF CLS ECHO. ECHO Ver agenda ECHO. TYPE AMIGOS.TXT PAUSE
ORDENAPE.BAT
@ECHO OFF CLS ECHO. ECHO Ordenada por Apellido ECHO. TYPE AMIGOS.TXT |SORT /+12 PAUSE
ORDENLOC.BAT
@ECHO OFF CLS ECHO. ECHO Ordenada por localidad ECHO. TYPE AMIGOS.TXT |SORT /+26 PAUSE
16) EJ16_AGENDASINCALL.BAT
Igual que el 15 (con etiqueta inicio) pero utilizando además del archivo principal los archivos
VERNORMAL2.BAT
ORDENAPE2.BAT
ORDENLOC2.BAT
que hay que llamarlos OBLIGATORIAMENTE SIN LA ORDEN CALL
EJ16_AGENDASINCALL.BAT
@ECHO OFF :INICIO CLS ECHO AGENDA ECHO. ECHO V.VER AGENDA (NORMAL) ECHO L.ORDENADO POR LOCALIDAD ECHO A.ORDENADO POR APELLIDOS ECHO S.SALIR CHOICE /C:VLAS /M "Selecciona una opcion: " IF ERRORLEVEL 4 GOTO SALIR IF ERRORLEVEL 3 GOTO APELL IF ERRORLEVEL 2 GOTO LOCAL IF ERRORLEVEL 1 GOTO NORMA REM YA NO HARÍAN FALTA LAS ETIQUETAS ":INICIO" NI TAMPOCO "GOTO INICIO" PERO REN LAS DEJAMOS PARA VER LA SIMILITUD CON EL ANTERIOR :NORMA VERNORMAL2.BAT GOTO INICIO :LOCAL ORDENLOC2.BAT GOTO INICIO :APELL ORDENAPE2.BAT GOTO INICIO :SALIR ECHO. ECHO Gracias por utilizarnos ;)
VERNORMAL2.BAT
@ECHO OFF CLS ECHO. ECHO Ver agenda ECHO. TYPE AMIGOS.TXT PAUSE EJ16_AGENDASINCALL.BAT
ORDENAPE2.BAT
@ECHO OFF CLS ECHO. ECHO Ordenada por Apellido ECHO. TYPE AMIGOS.TXT |SORT /+12 PAUSE EJ16_AGENDASINCALL.BAT
ORDENLOC2.BAT
@ECHO OFF CLS ECHO. ECHO Ordenada por localidad ECHO. TYPE AMIGOS.TXT |SORT /+26 PAUSE EJ16_AGENDASINCALL.BAT
17) EJ17_AGENDAconSET.BAT
Igual que el EJ15_AGENDACALL.BAT, pero sin utilizar la orden CHOICE, es decir, utilizando la orden SET
(solo modificamos el fichero principal, el resto son iguales)
@ECHO OFF :INICIO CLS ECHO AGENDA ECHO. ECHO V.VER AGENDA (NORMAL) ECHO L.ORDENADO POR LOCALIDAD ECHO A.ORDENADO POR APELLIDOS ECHO S.SALIR SET /P OPCION=Selecciona una opcion: IF "%OPCION%"=="V" GOTO SALIR IF "%OPCION%"=="L" GOTO APELL IF "%OPCION%"=="A" GOTO LOCAL IF "%OPCION%"=="S" GOTO NORMA :NORMA CALL VERNORMAL.BAT GOTO INICIO :LOCAL CALL ORDENLOC.BAT GOTO INICIO :APELL CALL ORDENAPE.BAT GOTO INICIO :SALIR ECHO. ECHO Gracias por utilizarnos ;)
18) EJ18_BUSCA.BAT
Pide el nombre de un archivo y comprueba si existe o no en el directorio actual
@ECHO OFF CLS SET /P ARCHIVO=Introduzca archivo: IF EXIST %ARCHIVO% ECHO EL ARCHIVO %ARCHIVO% Existe IF NOT EXIST %ARCHIVO% ECHO EL ARCHIVO %ARCHIVO% no Existe
19) EJ19_CALCULA.BAT
Pide 2 números y muestra el mensaje, Tipo de operación (+,-,*,/)?:
y realiza la operación correspondiente
@ECHO OFF CLS SET /P NUM1=Numero 1: SET /P NUM2=Numero 2: SET /P OPER=Selecciona operación (+,-,*,/)? REM MODO 1 SET /A RESULTADO=%NUM1% %OPER% %NUM2% ECHO %NUM1% %OPER% %NUM2% = %RESULTADO% REM MODO2 IF "%OPER%"=="+" GOTO SUMA IF "%OPER%"=="-" GOTO RESTA IF "%OPER%"=="*" GOTO MULTI IF "%OPER%"=="/" GOTO DIVI :SUMA SET /A RESULTADO=%NUM1% + %NUM2% ECHO %NUM1% + %NUM2% = %RESULTADO% GOTO FIN REM Y ASI CON EL RESTO DE OPERACIONES
20) EJ20_CUENTANUMEROS.BAT
– Pide números indefinidamente hasta que introduzcamos el 999
– Al final me cuenta el total de números introducidos (sin contar el 999)
– También me muestra la suma total (sin contar con el 999) y la media
@ECHO OFF CLS SET /A CONTADOR=0 SET /A ACUMULADOR=0 :REPITE SET /P NUM=Numero: IF "%NUM%"=="999" GOTO FIN SET /A CONTADOR=%CONTADOR%+1 SET /A ACUMULADOR=%ACUMULADOR%+%NUM% GOTO REPITE :FIN REM HABRIA QUE COMPROBAR QUE CONTADOR ES DISTINTO DE 0 REM PERO LO VAMOS A OBVIAR (SE HARÍA CON IF) SET /A MEDIA=%ACUMULADOR%/%CONTADOR% ECHO HA INTRODUCIDO %CONTADOR% NUMEROS ECHO LA SUMA DE TODOS ES %ACUMULADOR% ECHO Y LA MEDIA %MEDIA%
21) EJ21_CONCURSO1.BAT
Hace la pregunta ¿2+2? y tenemos 3 intentos para acertar.
Cuando acierta, indicamos un mensaje
CORRECTO! ha acertado en el intento tal
Si pasan los 3 y no acierta, indica mensaje
GAME OVER
@ECHO OFF CLS SET /A INTENTO=1 :REPITE SET /P RESP=2+2? IF "%RESP%"=="4" GOTO ACIERTO SET /A INTENTO=%INTENTO%+1 IF "%INTENTO%"=="4" GOTO GAMEOVER GOTO REPITE :ACIERTO ECHO CORRECTO! HA ACERTADO EN EL INTENTO %INTENTO% GOTO FIN :GAMEOVER ECHO GAME OVER, HAN ACABADO SUS INTENTOS :FIN
Ejemplo de CÓMO NO HACER EL PROGRAMA OS DEJO EL SIGUIENTE
@ECHO OFF CLS SET /P RESP=2+2? IF "%RESP%"=="4" GOTO UNO SET /P RESP=2+2? IF "%RESP%"=="4" GOTO DOS SET /P RESP=2+2? IF "%RESP%"=="4" GOTO TRES ECHO GAME OVER GOTO FIN :UNO ECHO HA ACERTADO EN EL INTENTO 1 GOTO FIN :DOS ECHO HA ACERTADO EN EL INTENTO 2 GOTO FIN :TRES ECHO HA ACERTADO EN EL INTENTO 3 GOTO FIN :FIN
22) EJ22_CONCURSO2.BAT
Pide un nombre de jugador al inicio, comprueba que el jugador no ha jugado otra vez, si ya ha jugado, le indica un mensaje y termina, si no ha jugado antes, realiza 3 preguntas, 2+2,3+3 y 4+4, y cuenta el número de aciertos.
Finalmente guarda el número de aciertos, un espacio, y el nombre del jugador en un fichero llamado CONCURSANTES.TXT.
Me pregunta al final si quiero ver le fichero de concursantes y si indico que sí me vuelve a preguntar si lo quiere ordenado por puntos o por nombre, y visualizo la opción correspondiente.
Para terminar, pregunta si quiere jugar con otro jugador, y si contesta afirmativamente, le vuelve a pedir el nombre y continua todo el proceso
@ECHO OFF :INICIO CLS SET /A ACIERTOS=0 SET /A RESP=0 SET /P Jugador=Introduce jugador: FIND "%Jugador%" /i CONCURSANTES.TXT>NUL IF ERRORLEVEL 1 GOTO NOHAJUGADO IF ERRORLEVEL 0 GOTO HAJUGADO :NOHAJUGADO SET /P RESP=2+2? IF "%RESP%"=="4" SET /A ACIERTOS=%ACIERTOS%+1 SET /P RESP=3+3? IF "%RESP%"=="6" SET /A ACIERTOS=%ACIERTOS%+1 SET /P RESP=4+4? IF "%RESP%"=="8" SET /A ACIERTOS=%ACIERTOS%+1 ECHO HA TENIDO %ACIERTOS% ACIERTOS ECHO %ACIERTOS% %JUGADOR%>>CONCURSANTES.TXT SET /P VERFIC=Desea ver el fichero concursantes (s)? IF "%VERFIC%"=="s" goto VERF GOTO FIN :VERF SET /P ORDE=Ordenado por aciertos (a) o nombre (n)? IF "%ORDE%"=="a" TYPE CONCURSANTES.TXT | SORT /R IF "%ORDE%"=="n" TYPE CONCURSANTES.TXT | SORT /+3 GOTO FIN :HAJUGADO ECHO Lo siento, %JUGADOR% YA HA JUGADO :FIN SET /P SIGUE=Otro jugador(s/n)? IF "%SIGUE%"=="s" GOTO INICIO
23) EJ23_INFORME.BAT
Muestra el siguiente menú:
1. Versión del S.O.
2. Etiqueta de volumen
3. Bytes libre libres
4. Crear/Ver informe
5. Salir
CREARYVER.BAT
Desea crear informe o visualizarlo?
El Informe contiene
—————–
fecha y hora
etiqueta de volumen
bytes libres
—————–
y se va añadiendo cada vez que lo vayamos creando
Una vez visualizado o creado, pregunta si quiere volver al menu principal, y o bien vuelve o bien pregunta nuevamente
Desea crear informe o visualizarlo?
EJ23_INFORME.BAT
@ECHO OFF :INICIO CLS ECHO MENU ECHO 1. Version S.O. ECHO 2. Etiqueta ECHO 3. Bytes libres ECHO 4. Ver/Crear informe ECHO 5. Salir SET /P OPC=Seleccione opcion: IF "%OPC%"=="1" VER IF "%OPC%"=="2" VOL IF "%OPC%"=="3" DIR C:\ | FIND "bytes libres" IF "%OPC%"=="4" CALL VERCREAR.BAT IF "%OPC%"=="5" GOTO FIN PAUSE GOTO INICIO :FIN ECHO Gracias por utilizarnos ;)
VERCREAR.BAT
@ECHO OFF :INICIO CLS SET /P INFORME=Desea crear (c) informe o visualizarlo (v)? IF "%INFORME%"=="v" GOTO VERINF IF "%INFORME%"=="c" GOTO CREAR ECHO OPCION NO VALIDA, solo (c) o (v) PAUSE GOTO INICIO :VERINF type INFORME_EJ23.TXT GOTO FIN :CREAR DATE /T>>INFORME_EJ23.TXT TIME /T>>INFORME_EJ23.TXT DIR C:\ | FIND "bytes libres" >>INFORME_EJ23.TXT ECHO ============================= >>INFORME_EJ23.TXT :fIN SET /P VOLVER=Desea volver al menu ppal (s/n) ? IF "%VOLVER%"=="n" GOTO INICIO
EJ23->GESTSOCIOS.BAT y GESTIONAR.BAT
Con los menús dados en clase, realizar la gestión de socios requerida.
GESTSOCIOS.BAT
@ECHO OFF :INICIO CLS ECHO MENU DE GESTION ECHO. ECHO 1. VER TODOS ECHO 2. BUSCAR SOCIO ECHO 3. GESTIONAR ECHO 4. SALIR SET /P OPC=Seleccione opcion: IF "%OPC%"=="1" TYPE SOCIOS.TXT IF "%OPC%"=="2" GOTO BUSCAR IF "%OPC%"=="3" CALL GESTIONAR.BAT IF "%OPC%"=="4" GOTO FIN PAUSE GOTO INICIO :BUSCAR SET /P DNI=Dni a buscar: TYPE SOCIOS.TXT |FIND "%DNI%" PAUSE GOTO FIN :FIN ECHO Gracias por todo ;)
GESTIONAR.BAT
@ECHO OFF :INICIO CLS ECHO A. ALTAS ECHO B. BAJAS ECHO C. MODIFICACIONES ECHO V. VOLVER SET /P OPCION=Selecciones opcion: IF "%OPCION%"=="A" GOTO ALTAS IF "%OPCION%"=="B" GOTO BAJAS IF "%OPCION%"=="C" GOTO MODIFI IF "%OPCION%"=="V" GOTO FIN PAUSE GOTO INICIO :ALTAS SET /P DNI=Introduzca DNI: TYPE SOCIOS.TXT | FIND "%DNI%">NUL IF ERRORLEVEL 1 GOTO ALTANOENCONTRADO ECHO EL %DNI% YA PERTENECE A SOCIOS.TXT PAUSE GOTO INICIO :ALTANOENCONTRADO SET /P NOM=Introduzca nombre: SET /P LOCAL=Introduzca localidad: ECHO %DNI% %NOM% %LOCAL% >> SOCIOS.TXT GOTO INICIO :BAJAS SET /P DNI=Introduzca DNI: TYPE SOCIOS.TXT | FIND "%DNI%">NUL IF ERRORLEVEL 1 GOTO BAJANOENCONTRADO SET /P BORRAR=Va a eliminar un socio, esta seguro (s/n)? IF "%BORRAR%"=="n" GOTO INICIO TYPE SOCIOS.TXT | FIND "%DNI%" /V >SOCIOS.TEMP DEL SOCIOS.TXT REN SOCIOS.TEMP SOCIOS.TXT GOTO INICIO :BAJANOENCONTRADO ECHO EL %DNI% NO PERTENECE A SOCIOS.TXT PAUSE GOTO INICIO :MODIFI SET /P DNI=Introduzca DNI: TYPE SOCIOS.TXT | FIND "%DNI%">NUL IF ERRORLEVEL 1 GOTO BAJANOENCONTRADO TYPE SOCIOS.TXT | FIND "%DNI%" /V >SOCIOS.TEMP DEL SOCIOS.TXT REN SOCIOS.TEMP SOCIOS.TXT SET /P NOM=Introduzca nombre: SET /P LOCAL=Introduzca localidad: ECHO %DNI% %NOM% %LOCAL% >> SOCIOS.TXT PAUSE GOTO INICIO :FIN
EJ24_IPCONECTADA.BAT
Pide una IP dentro del rango dónde se encuentra el equipo y muestra si hay o no un equipo conectado a la misma
(probando)
@ECHO OFF CLS SET /P IP=Introduzcas ip: PING %IP% | FIND "Respuesta desde" > NUL IF ERRORLEVEL 1 GOTO NO ECHO IP %IP% CONECTADA GOTO FIN :NO ECHO IP %IP% NO CONECTADA :FIN
EJ26_NUMERITOS.BAT
@ECHO OFF @ECHO OFF CLS REM SI EMPIEZA A CONTAR EN CADA EJECUCIÓN IF EXIST EJ26NUMERITOS.TXT DEL EJ26NUMERITOS.TXT SET CONTADOR=0 SET ACUMULADOR=0 :INICIO SET /P NUMERO=Introduzca numero: IF "%NUMERO%"=="999" GOTO FIN SET /A CONTADOR=%CONTADOR% + 1 SET /A ACUMULADOR=%ACUMULADOR% + %NUMERO% ECHO %NUMERO% >> EJ26NUMERITOS.TXT GOTO INICIO :FIN ECHO HAS INTRODUCIDO %CONTADOR% NUMEROS ECHO LA SUMA DE LOS NUMEROS INTRODUCIDOS ES %ACUMULADOR% SET /A MEDIA=%ACUMULADOR% / %CONTADOR% ECHO LA MEDIA ES %MEDIA% ECHO. SET /P PREGUNTA="Quieres ver los numeros introducidos:? (S/N) " IF "%PREGUNTA%"=="N" GOTO FIN SET /P ORDEN="Orden (I)ntroducido/(A)scencente/(D)escendente? " IF "%ORDEN%"=="I" TYPE EJ26NUMERITOS.TXT IF "%ORDEN%"=="A" TYPE EJ26NUMERITOS.TXT | SORT IF "%ORDEN%"=="D" TYPE EJ26NUMERITOS.TXT | SORT /R :FIN EJ27_CABECERA.BAT @ECHO OFF :INICIO CLS SET /P FICHERO="Introduzca fichero: " SET /P CABECERA="Introduzca cabecera: " ECHO %CABECERA%>EJ27.TMP ECHO ==================== >> EJ27.TMP TYPE %FICHERO% >> EJ27.TMP DEL %FICHERO% REN EJ27.TMP %FICHERO% SET /P OTRO="Quiere introducir otro fichero?: " IF "%OTRO%"=="S" GOTO INICIO
EJ28_CUADRADO.BAT
@ECHO OFF @ECHO OFF CLS IF "%1"=="" GOTO NOINTRODUCIDO IF NOT "%1"=="" GOTO INTRODUCIDO :INTRODUCIDO SET /A CUADRADO=%1 * %1 ECHO EL CUADRADO DEL NUMERO %1 ES %CUADRADO% PAUSE GOTO SALIR :NOINTRODUCIDO SET /P PARAMETRO= "NO HAS INTRODUCIDO NINGUN PARAMETROS QUIERES HACERLO AHORA? (S/N): ?" IF "%PARAMETRO%"=="S" GOTO CUADRADO IF NOT "%PARAMETRO%"=="S" GOTO SALIR :CUADRADO SET /P NUMERO= "INTRODUZCA EL NUMERO: " SET /A CUADRADO=%NUMERO% * %NUMERO% ECHO EL CUADRADO DEL NUMERO %NUMERO% ES %CUADRADO% PAUSE GOTO SALIR :SALIR ECHO GRACIAS POR UTILIZARNOS :)
EJ29_COPIA.BAT
@ECHO OFF @ECHO OFF CLS SET /P FICHERO="fICHERO: " IF EXIST "%FICHERO%" GOTO FICEXISTE ECHO EL FICHERO %FICHERO% NO EXISTE GOTO FIN :FICEXISTE SET /P DIRE="Directorio: " IF EXIST "%DIRE%" GOTO CORRECTO MKDIR %DIRE% :CORRECTO COPY %FICHERO% %DIRE% DIR %DIRE% :FIN
EJ30_EVALUA.BAT
@ECHO OFF @echo off :inicio cls echo Rellene los siguientes datos: set /p modulo="Nombre de modulo:" if exist %modulo%.txt ( goto existe ) else ( goto noexiste ) :noexiste echo El fichero que ha nombrado no existe pause goto inicio :existe set /p alumno="Nombre del alumno:" type %modulo%.txt | find /i "%alumno%" >nul if errorlevel 1 goto noencontrado if errorlevel 0 goto encontrado :encontrado echo Este alumno ya esta registrado. pause goto inicio :noencontrado set /p nota="Nota del alumno:" echo %nota% %alumno% >> %modulo%.txt set /p ver="Desea ver el fichero?" if "%ver%"=="s" goto ver if "%ver%"=="n" goto final :ver type %modulo%.txt goto final :final
EJ_REPASO1.BAT
Estamos configurando el campeonato nacional de ficheros por lotes, para ello existen una serie de equipos y las puntuaciones obtenidas, que se gestionan a través del siguiente menú:
EQUIPOS POR LOTES
V) VER EQUIPOS (Muestra equipos.txt)
C) CONSULTAR EQUIPO (Pide equipo y muestra equipo y puntuación de equipos.txt)
A) INSERTAR EQUIPOS (Pide equipo y puntuación y lo inserta en equipos.txt
E) ELIMINAR EQUIPOS (Pide equipo y elimina dicho equipo de equipos.txt
M) MODIFICAR EQUIPOS (Pide equipo y modifica puntuación)
S) Salir
NOTAS:
– Debéis comprobar en insertar que no exista ya el equipo
– ” ” en consultar,eliminar y modificar que ya exista el equipo
– Siempre se muestra el mensaje correspondiente
– El fichero equipos.txt es de la forma:
puntuación equipo
@ECHO OFF :INICIO CLS ECHO EQUIPOS ECHO V) VER EQUIPOS ECHO C) CONSULTAR EQUIPOS ECHO A) INSERTAR EQUIPOS ECHO E) ELIMINAR EQUIPOS ECHO M) MODIFICAR EQUIPOS ECHO S) SALIR SET /P OPCION=ELIGE UNA OPCION: IF "%OPCION%"=="V" GOTO VER IF "%OPCION%"=="C" GOTO CONSULTAR IF "%OPCION%"=="A" GOTO INSERTAR IF "%OPCION%"=="E" GOTO ELIMINAR IF "%OPCION%"=="M" GOTO MODIFICAR IF "%OPCION%"=="S" GOTO :SALIR :VER TYPE EQUIPOS.TXT PAUSE GOTO INICIO :CONSULTAR SET /P NOMBRE=INTRODUCE EL NOMBRE: TYPE EQUIPOS.TXT | FIND "%NOMBRE%" > NUL IF ERRORLEVEL 1 GOTO MAL TYPE EQUIPOS.TXT | FIND "%NOMBRE%" PAUSE GOTO INICIO :INSERTAR SET /P NOMBRE=INTRODUCE EL NOMBRE: TYPE EQUIPOS.TXT | FIND "%NOMBRE%" > NUL IF ERRORLEVEL 1 GOTO SEGUIRINSERTAR ECHO %NOMBRE% YA EXISTE PAUSE GOTO INICIO :SEGUIRINSERTAR SET /P PUNTUACION=INTRODUCE LA PUNTUACION: ECHO %NOMBRE% %PUNTUACION% >> EQUIPOS.TXT ECHO REALIZADO CORRECTAMENTE GOTO INICIO :ELIMINAR SET /P NOMBRE=INTRODUCE EL NOMBRE: TYPE EQUIPOS.TXT | FIND "%NOMBRE%" > NUL IF ERRORLEVEL 1 GOTO MAL IF ERRORLEVEL 0 GOTO SEGUIRELIMINAR :SEGUIRELIMINAR TYPE EQUIPOS.TXT | FIND /V "%NOMBRE%" > EQUIPOS.TMP DEL EQUIPOS.TXT REN EQUIPOS.TMP EQUIPOS.TXT ECHO %NOMBRE% HA SIDO ELIMINADO CORRECTAMENTE PAUSE GOTO INICIO :MODIFICAR SET /P NOMBRE=INTRODUCE EL NOMBRE: TYPE EQUIPOS.TXT | FIND "%NOMBRE%" > NUL IF ERRORLEVEL 1 GOTO MAL IF ERRORLEVEL 0 GOTO SEGUIRMODIFICAR :SEGUIRMODIFICAR SET /P PUNTUACION=INTRODUCE LA NUEVA PUNTUACION: TYPE EQUIPOS.TXT | FIND /V "%NOMBRE%" > EQUIPOS.TMP DEL EQUIPOS.TXT REN EQUIPOS.TMP EQUIPOS.TXT ECHO %NOMBRE% %PUNTUACION% >> EQUIPOS.TXT ECHO MODIFICADO CORRECTAMENTE PAUSE GOTO INICIO :MAL ECHO EL EQUIPO NO EXISTE PAUSE GOTO INICIO :SALIR ECHO GRACIAS!
(Aunque podríamos reducir algunas líneas de código, por ejemplo
goto etiqueta
:etiqueta
justo cuando van una detrás de la otra)
Deja un comentario