Batch-fil adress bok V 1 (1 / 2 steg)

Steg 1: kod

REM URSPRUNGLIGA INSTÄLLNINGAR
UTANFÖR
TITELN LOGIN
FÄRG 0e
CD-INFORMATION
CLS

REM CHECK FÖR EN ANVÄNDARE
OM INTE FINNS ANVÄNDAREN. TXT GOTO CREATE_USER
GÅ TILL LOGGA IN

REM ATT SKAPA EN ANVÄNDARE
: CREATE_USER
TITELN VÄLKOMMEN
CLS
ECHO FÖREFALLER DETTA VARA FÖRSTA GÅNGEN DU ANVÄNDER DETTA PROGRAM
ECHO.
UPPREPA VI BEHÖVER DU GÖRA DIN PROFIL
ECHO.
ECHO: KOM IHÅG ATT DINA PERSONUPPGIFTER BARA ÄR ÅTKOMLIGA VIA DIN DATOR
ECHO.
STÄLL IN /P ANVÄNDARE = TYP DIN FÖREDRA ANVÄNDARNAMN HÄR:
STÄLL IN /P NAMN = TYP DITT RIKTIGA NAMN HÄR:
ECHO.
STÄLL IN /P PASS = TYP DIN FÖREDRA LÖSENORD HÄR:
STÄLL IN /P PASS2 = SKRIV DITT LÖSENORD HÄR IGEN:
REM ATT SE TILL ATT DE TVÅ LÖSENORDEN ÄR IDENTISKA
OM % PASSERAR % NEQ % PASS2% GÅ TILL DIFF
GOTO BEKRÄFTA

REM SCENARIO NÄR DU ANGER TVÅ OLIKA LÖSENORD
: DIFF
CLS
ECHO LÖSENORD DU HAR ANGETT MATCHAR INTE
ECHO.
ECHO TRYCK PÅ VALFRI TANGENT FÖR ATT GÅ TILLBAKA TILL SKÄRMEN ANVÄNDAREN SKAPANDET
PAUS > NUL
GÅ TILL CREATE_USER

REM SOM BEKRÄFTAR DINA DATA
: BEKRÄFTA
CLS
ECHO BEKRÄFTA DINA ANVÄNDARINSTÄLLNINGAR
ECHO ANVÄNDARNAMN = % ANVÄNDARE %
ECHO NAMN = % NAME %
ECHO LÖSENORD = % PASSERA %
ECHO.
ECHO.
EKO VILL DU BEHÅLLA DESSA INSTÄLLNINGAR? (J/N)
CHOICE /C YN /N
OM % ERRORLEVEL % EQU 1 GOTO CREATE_FILES
GÅ TILL CREATE_USER

REM ATT SKAPA FILER FÖR ATT UPPRÄTTHÅLLA PROGRAMMET
: CREATE_FILES
OM DET FINNS INFO RMDIR INFO
MD INFORMATION
CD-INFORMATION
ECHO:: > "användare. TXT"
ECHO denna textdokument är att kontrollera att du har en användarprofil, om du tar bort det du kommer att förlora alla dina data. >> "Användare. TXT"
ECHO:: > "DATA. BAT"
ECHO lösenord = % passera % >> "DATA. BAT"
ECHO SET NAME = % namn % >> "DATA. BAT"
ECHO SET USER = % användare % >> "DATA. BAT"
ATTRIB + R ANVÄNDARE. TXT
GÅ TILL VÄLKOMMEN

REM-INLOGGNING
: LOGGA IN
CD-INFORMATION
SAMTALSDATA. BAT
CLS
ECHO VÄNLIGEN ANGE DITT ANVÄNDARNAMN
STÄLL IN /P ANVÄNDARNAMN =
OM % USERNAME % NEQ % ANVÄNDARE % GÅ TILL DIF
CLS
ECHO ANGE DITT LÖSENORD
STÄLL IN /P PASS =
OM % PASSERAR % NEQ % LÖSENORD % GÅ TILL DIF
GÅ TILL VÄLKOMMEN

REM I SCENARIO NÄR DITT ANVÄNDARNAMN/LÖSENORD ÄR FELAKTIGT
: DIF
CLS
ECHO VERKAR DITT LÖSENORD ELLER ANVÄNDARNAMN VAR FELAKTIG
ECHO.
ECHO TRYCK PÅ VALFRI TANGENT FÖR ATT FÖRSÖKA IGEN
PAUS > NUL
GÅ TILL LOGGA IN

REM VÄLKOMNANDE TILL PROGRAMMET
: VÄLKOMMEN
CLS
ECHO VÄLKOMMEN % NAME %
ECHO.
ECHO LADDAR DINA PERSONLIGA INSTÄLLNINGAR [10%
PING LOCALHOST -n 2 > NUL
CLS
ECHO VÄLKOMMEN % NAME %
ECHO.
ECHO LADDAR DIN PERSONLIGA INSTÄLLNINGAR [] [30%
PING LOCALHOST -n 2 > NUL
CLS
ECHO VÄLKOMMEN % NAME %
ECHO.
ECHO LADDAR DIN PERSONLIGA INSTÄLLNINGAR [] [] [50%
PING LOCALHOST -n 2 > NUL
CLS
ECHO VÄLKOMMEN % NAME %
ECHO.
ECHO LADDAR DIN PERSONLIGA INSTÄLLNINGAR [] [] [] [70%
PING LOCALHOST -n 2 > NUL
CLS
ECHO VÄLKOMMEN % NAME %
ECHO.
ECHO LADDAR DIN PERSONLIGA INSTÄLLNINGAR [] [] [] [] 80%
PING LOCALHOST -n 2 > NUL
CLS
ECHO LADDAR DIN PERSONLIGA INSTÄLLNINGAR [] [] [] [] [] 100%
PING LOCALHOST -n 3 > NUL
CLS
ECHO GJORT!
PING LOCALHOST -n 3 > NUL
GÅ TILL MAIN

REM DÄR MAGISKT HÄNDER
: MAIN
TITEL ADRESS BOK V 1
CLS
UPPREPA VAD DU SKULLE VILJA GÖRA?
ECHO.
ECHO 1) LÄGGA TILL EN KONTAKT
ECHO 2) TA BORT EN KONTAKT
ECHO 3) SÖKA EFTER EN KONTAKT
STÄLL IN /P MENYN =
OM MENYN % EQU 1 GOTO LÄGGER TILL
OM % MENYN % EQU 2 GÅ TILL DEL
OM MENYN % EQU 3 GÅ TILL VISA
GÅ TILL FEL

REM DÄR DU LÄGGA TILL EN KONTAKT
: LÄGGA TILL
SET OTHERA = 0
STÄLL IN SK1 = 0
STÄLL IN SK2 = 0
STÄLL IN SK3 = 0
STÄLL IN SK4 = 0
STÄLL IN SK5 = 0
STÄLL IN SK6 = 0
STÄLL IN SK7 = 0
STÄLL IN SK8 = 0
STÄLL IN SK9 = 0
CLS
ECHO: ANVÄND INTE MELLANSLAG! ANVÄNDA UNDERSTRECK (_) ISTÄLLET!
ECHO DU HAR VALT ATT LÄGGA TILL EN KONTAKT
ECHO.
ECHO TYP HOPPA ÖVER OM DU INTE VILL EN BESTÄMD ASPEKT SKALL REGISTRERAS. OBJEKT SOM ÄR MARKERADE MED A
ECHO * ÄR OBLIGATORISKA
STÄLL IN /P FNAME = FÖRNAMN *:
OM % FNAME % EQU SKIP SK1 = 1
STÄLL IN /P ENAMN = SISTA NAMN *:
OM % ENAMN % EQU SKIP SK2 = 1
STÄLL IN /P HNUM = HEMNUMMER:
OM % HNUM % EQU SKIP SK3 = 1
STÄLL IN /P MNUM = MOBILNUMMER:
OM % MNUM % EQU SKIP SK4 = 1
STÄLL IN /P HEM = HEMADRESS:
OM % HEM % EQU SKIP SK5 = 1
STÄLL IN /P OTHERA = ANNAN ADRESS:
OM % OTHERA % EQU SKIP SK6 = 1
OM % OTHERA % NEQ 0 /P SPECA = ANGE *: (ANVÄND UNDERSTRECK (_) FÖR UTRYMMEN)
OM % SPECA % EQU SKIP SK7 = 1
SET /P E = E-POST:
OM % E-% EQU SKIP SK8 = 1
STÄLL IN /P BDAY = FÖDELSEDAG:
OM % BDAY % EQU SKIP SK9 = 1
GÅ TILL ADD2

REM KONTAKTENS FILEN SKAPAS
: ADD2
CD-INFORMATION
CLS
ECHO:: > "% ENAMN %, FNAME %. BAT"
ECHO SET FNAME = % FNAME % >> "% ENAMN %, FNAME %. BAT"
ECHO SET ENAMN = % ENAMN % >> "% ENAMN %, FNAME %. BAT"
OM % SK3% EQU 0 ECHO anger HNUM = % HNUM % >> "% ENAMN %, FNAME %. BAT"
OM % SK4% EQU 0 ECHO anger MNUM = % MNUM % >> "% ENAMN %, FNAME %. BAT"
OM % SK5% EQU 0 ECHO hem = % hem % >> "% ENAMN %, FNAME %. BAT"
OM % SK6% EQU 0 ECHO anger OTHERA = % OTHERA % >> "% ENAMN %, FNAME %. BAT"
OM % SK7% EQU 0 ECHO anger SPECA = % SPECA % >> "% ENAMN %, FNAME %. BAT"
OM % SK8% EQU 0 SET maila = % e-% >> "% ENAMN %, FNAME %. BAT"
OM % SK9% EQU 0 BDAY = % BDAY % >> "% ENAMN %, FNAME %. BAT"
GÅ TILL SUC1

REM SENASTE KONTROLL
: SUC1
CLS
ECHO KONTROLLERA ÖVER DETALJER
RING ENAMN PROCENT, % FNAME. BAT
ECHO.
ECHO.
ECHO FÖRSTA NAMN: % FNAME %
ECHO FÖRRA NAMN: % ENAMN %
OM % SK3% EQU 0 ECHO HEM NUMMER: % HNUM %
OM % SK4% EQU 0 ECHO MOBIL NUMMER: % MNUM %
OM % SK5% EQU 0 ECHO HEM HEM ADRESS: PROCENT
OM % SK6% EQU 0 ECHO ANDRA ADRESS: % OTHERA % (% SPECA)
OM % SK8% EQU 0 ECHO EMAIL-ADRESS: % E %
OM % SK9% EQU 0 ECHO FÖDELSEDAG: % BDAY %
ECHO.
ECHO.
ECHO TRYCK PÅ VALFRI TANGENT FÖR ATT ÅTERGÅ TILL MAIN
PAUS > NUL
GÅ TILL MAIN

REM SÖKA EFTER EN KONTAKT ATT TA BORT
: DEL
CD-INFORMATION
CLS
ECHO DU HAR VALT ATT TA BORT EN KONTAKT
ECHO PRESS E TILL AVFART (KOM IHÅG HUVUDSTÄDER)
ECHO.
ECHO.
STÄLL IN /P FÖRST = FÖRNAMN:
STÄLL IN /P SENAST = EFTERNAMN:
OM FINNS "SISTA %, FÖRSTA %. BAT"GOTO DEL
CLS
ECHO INGEN KONTAKT MED SAMMA NAMN HITTADES, KONTROLLERA DIN STAVNING.
ECHO TRYCK PÅ VALFRI TANGENT FÖR ATT GÅ TILLBAKA
PAUS > NUL
GÅ TILL DEL

REM DÄR DU TAR BORT KONTAKTEN
CLS
ECHO ÄR DU SÄKER DU VILL TA BORT % FÖRST % % SISTA % KONTAKT? (J/N)
CHOICE /C YN /N
OM % ERRORLEVEL % EQU 1 DEL "SISTA %, FÖRSTA %. BAT"
ECHO TRYCK PÅ VALFRI KNAPP FÖR ATT ÅTERVÄNDA
PAUS > NUL
GÅ TILL DEL

REM DÄR DU VISA EN KONTAKTS INFORMATION
: VISA
STÄLL IN ENAMN =
STÄLL IN FNAME =
SET HNUM =
SET MNUM =
ANGE E-POST =
SET HEM =
ANGE NÄSTA VECKA =
SET OTHERA =
STÄLL IN SPECA =
CD-INFORMATION
CLS
ECHO DU HAR VALT ATT VISA EN KONTAKTS INFORMATION
ECHO TYP E ATT GÅ TILLBAKA TILL MAIN
ECHO.
ECHO.
STÄLL IN /P FÖRST = FÖRNAMN:
OM % FÖRSTA % EQU E GOTO MAIN
STÄLL IN /P SENAST = EFTERNAMN:
OM FINNS "SISTA %, FÖRSTA %. BAT"GOTO FINNS
CLS
ECHO INGA KONTAKTER HITTADES UNDER DET NAMN, LEDSEN
ECHO.
ECHO TRYCK PÅ VALFRI TANGENT FÖR ATT SÖK IGEN
PAUS > NUL
GÅ TILL VISA

REM DÄR DU GÅ OM FINNS KONTAKTEN
: FINNS
SAMTAL "SISTA %, FÖRSTA %. BAT"
CLS
ECHO .%FNAME% % ENAMN %
ECHO .%HNUM%
ECHO .%MNUM%
ECHO .%HOME%
ECHO .%O THERA % % SPECA %
ECHO .%EMAIL%
ECHO .%BDAY%
ECHO.
ECHO TRYCK PÅ VALFRI KNAPP FÖR ATT ÅTERVÄNDA
PAUS > NUL
GÅ TILL MAIN

: FEL
CLS
ECHO ETT FEL HAR RAPPORTERATS
ECHO.
ECHO TRYCK PÅ VALFRI TANGENT FÖR ATT GÅ TILL SKÄRMBILDEN MAIN
PAUS > NUL
GÅ TILL MAIN

Som ni kanske kan se, har jag försökt att beskriva vad varje del gör med kommandot "REM".
Utvecklare kan hitta detta användbara när du redigerar programmet.