Puntoinfinito

SEARCHER TO LOG

Jul 17th, 2012
76
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. @ECHO OFF
  2. goto :index
  3. :logo
  4. cls
  5. echo.Buscador de discografias Guns N' Roses - Puntoinfinito
  6. echo.
  7. goto :EOF
  8. :index
  9. call :logo
  10. echo.[1] Buscar por año
  11. echo.[2] Buscar por nombre de discografia
  12. echo.[3] Buscar por ventas
  13. echo.
  14. echo.
  15. echo.
  16. set /p form=Indica la forma de busqueda ^>^>^>
  17. if "%form%"=="1" (goto :anho)
  18. if "%form%"=="2" (goto :nombre)
  19. if "%form%"=="3" (goto :ventas)
  20. goto :index
  21. :anho
  22. call :logo
  23. set /p a=Indica el año de la discografia ^>^>^>
  24. find "%a%" log.txt
  25. echo.
  26. pause
  27. goto :index
  28. :nombre
  29. call :logo
  30. set /p n=Indica el nombre de la discografica ^>^>^>
  31. find "%n%" log.txt
  32. echo.
  33. pause
  34. goto :index
  35. :ventas
  36. call :logo
  37. set /p v=Indica el nombre de ventas (millones) ^>^>^>
  38. find "%v%" log.txt
  39. echo.
  40. pause
  41. goto :index
RAW Paste Data