Bueno aui esta alfin la termine espero que les guste
Código:
@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