Advertisement
miljdze

Untitled

Apr 3rd, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.38 KB | None | 0 0
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set /A rednibr=0
  4. :meni
  5. echo Odaberite opciju
  6. echo 1. Napravite fajl "Knjige.txt"
  7. echo 2. Unos u fajl "Knjige.txt" /NAZIV/AUTOR/CIJENA/
  8. echo 3. Pretraga po nazivu
  9. echo 4. Ispis iz fajla
  10. echo 5. Unos brojeva i mnozenje najveceg sa 5
  11. echo 6. Izlaz
  12. set /P opcija=
  13.  
  14. if !opcija!== 1 (
  15. if exist "D:\ARIOSTEST\Knjige.txt" (
  16. echo Fajl vec postoji!
  17. goto :meni
  18. ) else (
  19. echo Pravljenje fajla Knjige.txt...
  20. type nul > "D:\ARIOSTEST\Knjige.txt"
  21. echo Fajl je napravljen
  22. goto :meni
  23. )
  24. )
  25. if !opcija!== 2 (
  26. if exist "D:\ARIOSTEST\Knjige.txt" (
  27. echo Unesite naziv knjige
  28. set /P naziv=
  29. echo Unesite autora knjige
  30. set /P autor=
  31. echo Unesite cijenu knjige
  32. set /P cijena=
  33.  
  34. echo !naziv! !autor! !cijena! !TIME! >> "D:\ARIOSTEST\Knjige.txt"
  35. echo Knjiga !naziv! je upisana!
  36. goto :meni
  37. ) else (
  38. echo Fajl Knjige.txt ne postoji u direktorijumu
  39. goto :meni
  40. )
  41. )
  42.  
  43. if !opcija!== 3 (
  44. if exist "D:\ARIOSTEST\Knjige.txt" (
  45. echo Unesite naziv knjige za pretragu
  46. set /P pretraga=
  47. findstr !pretraga! "D:\ARIOSTEST\Knjige.txt"
  48. if errorlevel 1 (
  49. echo Trazena knjiga se ne nalazi u fajlu
  50. goto :meni
  51. ) else (
  52. for %%a in (1 1 100) do (
  53. echo Trazena knjiga !pretraga! se nalazi u fajlu
  54. set /A rednibr+=1
  55. echo !rednibr!. !pretraga! >> "D:\ARIOSTEST\PronadjeneKnjige.txt"
  56. goto :meni
  57. )
  58. )
  59. ) else (
  60. echo Fajl ne postoji!
  61. goto :meni
  62. )
  63. )
  64.  
  65.  
  66. endlocal
  67.  
  68. pause >nul
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement