|
|
: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
|