Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- setlocal enabledelayedexpansion
- set /A rednibr=0
- :meni
- echo Odaberite opciju
- echo 1. Napravite fajl "Knjige.txt"
- echo 2. Unos u fajl "Knjige.txt" /NAZIV/AUTOR/CIJENA/
- echo 3. Pretraga po nazivu
- echo 4. Ispis iz fajla
- echo 5. Unos brojeva i mnozenje najveceg sa 5
- echo 6. Izlaz
- set /P opcija=
- if !opcija!== 1 (
- if exist "D:\ARIOSTEST\Knjige.txt" (
- echo Fajl vec postoji!
- goto :meni
- ) else (
- echo Pravljenje fajla Knjige.txt...
- type nul > "D:\ARIOSTEST\Knjige.txt"
- echo Fajl je napravljen
- goto :meni
- )
- )
- if !opcija!== 2 (
- if exist "D:\ARIOSTEST\Knjige.txt" (
- echo Unesite naziv knjige
- set /P naziv=
- echo Unesite autora knjige
- set /P autor=
- echo Unesite cijenu knjige
- set /P cijena=
- echo !naziv! !autor! !cijena! !TIME! >> "D:\ARIOSTEST\Knjige.txt"
- echo Knjiga !naziv! je upisana!
- goto :meni
- ) else (
- echo Fajl Knjige.txt ne postoji u direktorijumu
- goto :meni
- )
- )
- if !opcija!== 3 (
- if exist "D:\ARIOSTEST\Knjige.txt" (
- echo Unesite naziv knjige za pretragu
- set /P pretraga=
- findstr !pretraga! "D:\ARIOSTEST\Knjige.txt"
- if errorlevel 1 (
- echo Trazena knjiga se ne nalazi u fajlu
- goto :meni
- ) else (
- for %%a in (1 1 100) do (
- echo Trazena knjiga !pretraga! se nalazi u fajlu
- set /A rednibr+=1
- echo !rednibr!. !pretraga! >> "D:\ARIOSTEST\PronadjeneKnjige.txt"
- goto :meni
- )
- )
- ) else (
- echo Fajl ne postoji!
- goto :meni
- )
- )
- endlocal
- pause >nul
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement