STARTSEITE    LEXIKON    INTERN    IMPRESSUM    LINKS   

:0

@chcp 1252

@color 9f

@title Formular vollständige Abfrage

@goto 200

:100

@set /a i=0

:110

@set /a i=i+1

:120

@if %i% GEQ 76 goto 200

@if not exist Spaltenbezeichnung.%i% goto 110

@type Spaltenbezeichnung.%i%

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 110

@echo %str% > Adresseintrag%NeuerAdresseintrag%.%i%

@goto 110

:200

@cls

@set /a NeuerAdresseintrag=0

:210

@set /a NeuerAdresseintrag=NeuerAdresseintrag+1

:220

@if exist Adresseintrag%NeuerAdresseintrag%.* goto 210

@goto 100

Zurück