Agenda bat V1 by my

[J3FFR3Y .4 C3D3Ñ0]

Bueno aui esta alfin la termine  espero que les guste

Código [Seleccionar] Expandir

@echo off
color f0
title agenda V1
md c:\agenda
cd c:\agenda
:inicio
cls
echo .---------Menu------------.
echo.
echo 1-Agregar Nombre
echo 2-Buscar Nombre
echo 3-Eliminar Nombre
echo 4-Ver lista de Nombres
echo.
echo 0-Salir
set /p pre=
if %pre%==1 goto ag
if %pre%==2 goto bn
if %pre%==3 goto ec
if %pre%==4 goto ln
if %pre%==0 (goto ex) else goto er
pause > nul
:ag
cls
echo Escriba el nombre de la persona:
set /p nom=
echo cls > %nom%.txt
cls
echo Escriba el nombre:
set /p nm=
echo Escriba el apellido:
set /p ap=
echo Escriba edad:
set /p ed=
echo Escriba Residencia:
set /p rs=
echo Escriba numero telefonico:
set /p tl=
echo Escriba E-mail
set /p em=
echo %nm% > %nom%.txt
echo %ap% >> %nom%.txt
echo %ed% >> %nom%.txt
echo %rs% >> %nom%.txt
echo %tl% >> %nom%.txt
echo %em% >> %nom%.txt
pause > nul
goto :inicio
:bn
cls
echo Escriba el nombre a buscar:
set /p nom2=
if exist %nom2%.txt goto bn2
if not exist %nom2%.txt goto mal1
:bn2
cls
echo %nom2%:
more %nom2%.txt
pause > nul
goto inicio
:mal1
cls
echo   Ese nombre no existe
echo 1-volver a intentar
echo 2-menu principal
set /p opt1=
if %opt1%==1 goto bn
if %opt1%==2 goto inicio
pause > nul
:ec
cls
echo Escriba Nombre a eliminar:
set /p br=
del %br%.txt
goto inicio
pause > nul
:ln
cls
echo lista de contacto:
dir /b *.txt>temp.tst
for /f "usebackq delims=." %%a in (temp.tst) do echo %%a
pause > nul
goto inicio
:ex
cls
echo Esto a sido una produccion (XD) 100% de J3FFR3Y A. C3D3Ñ0
pause > nul