STARTSEITE    LEXIKON    INTERN    IMPRESSUM    LINKS   

:0

@chcp 1252

@color 9f

@title Formular alle Adressen durchsuchen

@goto 400

:100

@set /a AktuellerAdresseintrag=0

:105

@set /a AktuellerAdresseintrag=AktuellerAdresseintrag+1

@if %AktuellerAdresseintrag% GEQ %NeuerAdresseintrag% goto 100

:107

@set /a i=0

@cls

:110

@set /a i=i+1

:120

@if %i% GEQ 76 goto 130

@if not exist Adresseintrag%AktuellerAdresseintrag%.%i% goto 110

@if not exist Spaltenbezeichnung.%i% goto 110

@find "%Suchbegriff%" Adresseintrag%AktuellerAdresseintrag%.* > NUL

@if %errorlevel% GEQ 1 goto 105

@type Spaltenbezeichnung.%i%

@type Buchstabe.Doppelpunkt

@type Adresseintrag%AktuellerAdresseintrag%.%i%

@goto 110

:130

@type Buchstabe.Eingabetaste

@echo Weiter mit der Taste EINGABE (für Datenänderung die Spaltenbezeichnung eingeben) ...

@set str=

@set /p str=

@if defined str goto 300

@goto 105

:200

@cls

@set /a NeuerAdresseintrag=0

:210

@set /a NeuerAdresseintrag=NeuerAdresseintrag+1

:220

@if exist Adresseintrag%NeuerAdresseintrag%.* goto 210

@goto 100

:300

@set /a j=0

:310

@set /a j=j+1

:320

@if %j% GEQ 76 goto 130

@find "%str%" Spaltenbezeichnung.%j% > NUL

@if %errorlevel%==0 goto 330

@goto 310

:330

@set /a k=j

:335

@set /a j=j+1

:340

@if %j% GEQ 76 goto 350

@find "%str%" Spaltenbezeichnung.%j% > NUL

@if %errorlevel%==0 goto 130

@goto 335

:350

@type Spaltenbezeichnung.%k%

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 360

@echo %str% > Adresseintrag%AktuellerAdresseintrag%.%k%

@goto 107

:360

@del Adresseintrag%AktuellerAdresseintrag%.%k% > NUL

@if exist Adresseintrag%AktuellerAdresseintrag%.%k% goto 360

@goto 107

:400

@cls

@echo Suchbegriff eingeben ...

@set Suchbegriff=

@set /p Suchbegriff=

@if not defined Suchbegriff goto 400

@goto 200

Zurück