Como crear una agenda con batch

[MaT77i.Megv]

Hola, Aca les voy a enseñar a hacer una agenda...
Para hacer una agenda hay que saber las cosas basicas: if, variables, crear carpetas, y modificar archivos desde 1 bat.

Primero les dejo los comandos y despues los explico:

Código:

@echo off
title Agenda By MaT77i.Megv
color 0a
if exist %homedrive%\Agenda_MaT77i.Megv (goto menu) else goto make
:menu
echo Opciones:
echo 1) Crear un contacto
echo 2) Revisar contacto
echo 3) Borrar contacto
echo 4) Exit
echo 5) Help
set /p opcion=
if %opcion%==1 (goto 1)
if %opcion%==2 (goto 2)
if %opcion%==3 (goto 3)
if %opcion%==4 (goto 4)
if %opcion%==5 (goto 5)
if %opcion%==6 (goto 6)
echo Ingresaste cualquier verdura...
goto menu
:make
mkdir %homedrive%\Agenda_MaT77i.Megv
goto menu
:1
echo ingrese la informacion correcta
set /p nombre= Ingrese el nombre del contacto:
set /p tel= Ingrese el telefono del contacto:
set /p cel= Ingrese el celular del contacto:
set /p mail= Ingrese el mail del contacto:

echo @echo off > %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo color 0b >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo Datos del contacto: >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo nombre: %nombre% >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo telefono: %tel% >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo celular: %cel% >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo mail: %mail% >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo By MaT77i.Megv >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo pause > nul >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo exit >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo Contacto creado
goto menu
:2
set /p name=Ingrese el nombre del contacto que desea revisar:
if exist %homedrive%\Agenda_MaT77i.Megv\%name%.bat (goto namesi) else (goto nameno)
goto menu
:namesi
start %homedrive%\Agenda_MaT77i.Megv\%name%.bat
goto menu
:nameno
Echo Este contacto no existe
goto menu
:3
set /p elname=Ingrese el nombre del contacto que desea revisar:
if exist %homedrive%\Agenda_MaT77i.Megv\%elname%.bat (goto namedel) else (goto namenodel)
gotomenu
:namedel
del /f /q %homedrive%\Agenda_MaT77i.Megv\%elname%.bat
echo El Contacto Se A Borrado Correctamente
goto menu
:namenodel
Echo Ese contacto no se pudo borrar, porque no existe
goto menu
:4
echo Esta agenda fue hecha por MaT77i.Megv
pause > nul
exit
:5
echo Esta agenda fue hecha por MaT77i.Megv
echo Idea de Darkgx
echo Suerte
goto menu

Bueno...

echo @echo off: significa que se oculten c:>documents and setting>blablabla
title Agenda By MaT77i.Megv: significa que se cambie el titulo del archivo por Agenda By MaT77i.Megv.
color 0a: Significa que se cambia el color por 0: Fondo Negro y a: Letras verdes, se pone todo junto 0a.
if exist %homedrive%\Agenda_MaT77i.Megv (goto menu) else goto make: aca me esta diciendo que si existe tal carpeta valla a :menu y si no existe valla a :make
La Parte de las opciones
:menu
echo Opciones:
echo 1) Crear un contacto
echo 2) Revisar contacto
echo 3) Borrar contacto
echo 4) Exit
echo 5) Help
set /p opcion=
if %opcion%==1 (goto 1)
if %opcion%==2 (goto 2)
if %opcion%==3 (goto 3)
if %opcion%==4 (goto 4)
if %opcion%==5 (goto 5)
if %opcion%==6 (goto 6)
echo Ingresaste cualquier verdura...
goto menu
Bueno aca lo que hago es dar las opciones y que se fije q si la variable, en este caso %opcinoes% es igual a 1 2 3 4 5 6, que valla a tal lugar.
:make
mkdir %homedrive%\Agenda_MaT77i.Megv
goto menu
aca estoy creando la carpeta en la que se van a guardar los contactos, si no existe.
:1
echo ingrese la informacion correcta
set /p nombre= Ingrese el nombre del contacto:
set /p tel= Ingrese el telefono del contacto:
set /p cel= Ingrese el celular del contacto:
set /p mail= Ingrese el mail del contacto:

@echo off > %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo color 0b >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo Datos del contacto: >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo nombre: %nombre% >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo telefono: %tel% >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo celular: %cel% >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo mail: %mail% >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo echo By MaT77i.Megv >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo pause > nul >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo exit >> %homedrive%\Agenda_MaT77i.Megv\%nombre%.bat
echo Contacto creado
goto menu
Lo que hago aca es pedir la informacion y guardarla en otro archivo que va a estar en %homedrive%\Agenda_MaT77i.Megv con el nombre que vos le hallas dicho que se llamaba el contacto.
:2
set /p name=Ingrese el nombre del contacto que desea revisar:
if exist %homedrive%\Agenda_MaT77i.Megv\%name%.bat (goto namesi) else (goto nameno)
goto menu
:namesi
start %homedrive%\Agenda_MaT77i.Megv\%name%.bat
goto menu
:nameno
Echo Este contacto no existe
goto menu
Lo que hago aca, es que se abra el archivo del contacto que vos hallas escrito. y que lo abra. y que si el contacto no exista te lo diga.
:3
set /p elname=Ingrese el nombre del contacto que desea revisar:
if exist %homedrive%\Agenda_MaT77i.Megv\%elname%.bat (goto namedel) else (goto namenodel)
gotomenu
:namedel
del /f /q %homedrive%\Agenda_MaT77i.Megv\%elname%.bat
echo El Contacto Se A Borrado Correctamente
goto menu
:namenodel
Echo Ese contacto no se pudo borrar, porque no existe
goto menu
Lo que hago aca es parecido a lo de revisar contacto, pero enves de abrirlo borrarlo.
:4
echo Esta agenda fue hecha por MaT77i.Megv
pause > nul
exit
A aca te da una despedida y despues lo cierra
:5
echo Esta agenda fue hecha por MaT77i.Megv
echo Idea de Darkgx
echo Suerte
goto menu
Y aca es tipo unos creditos que te dicen quien lo hiso y otras cosas. en este casa ta hecho by me.
Lo voy a ir mejorando, aca lo hise a las apuradas asi que capaz no entiendan mucho.
Yo les diria que prueben copiar los codigos en un block de  notas y vean como es que funciona. como lo hise muy a las apuradas, pregunten si no entienden. asi les voy aclarando las dudas
ajajaja

[3D1]

Bueno solo esto:
Pon los Codes en las Etiquetas: 

SaluDOS!!!

[darkgx]

Una cosa, por que no quiero tene problemas... Todo ese code es mio y lo hice para participar en el batch lab... Holyknight puede confirmarlo..

saludos 

[MaT77i.Megv]

Ahhh jaja no sabia lo de poner los codes en esa etiqueta, gracias z decirme 3d1

[ψζανιεπψ]

Mmm tambien cree una, en Codigo Abierto, comparalas...


Saludos.

[bolivianito]

  si ese code lo hiso darkgx por que dice

Código:

title Agenda By MaT77i.Megv

siempre hay que dar creditos al creador o fuente.

[Breakk_]

creo que porque dice:

Código:

:5
echo Esta agenda fue hecha por MaT77i.Megv
echo Idea de Darkgx
echo Suerte
goto menu

aunque el que debe decir si fue 100% MaT77i.Megv es el mismo ¿no?