STARTSEITE    LEXIKON    INTERN    IMPRESSUM    LINKS   

:0

@chcp 1252

@color 9f

@title Formular alle Adressen nach CSV exportieren

@goto 400

:100

@set /a i=0

:110

@set /a i=i+1

:120

@if %i% GEQ 76 goto 150

@if not exist Spaltenbezeichnung.%i% goto 130

@type Spaltenbezeichnung.%i% >> %str%

:130

@type Buchstabe.Strichpunkt >> %str%

@goto 110

:150

@set /a AktuellerAdresseintrag=1

@type Buchstabe.Eingabetaste >> %str%

:160

@set /a i=0

:170

@set /a i=i+1

:180

@if %i% GEQ 76 goto 190

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

@if not exist Spaltenbezeichnung.%i% goto 185

@type Buchstabe.Semikolon >> %str%

@type Adresseintrag%AktuellerAdresseintrag%.%i% >> %str%

@type Buchstabe.Eingabetaste >> %str%

@type Buchstabe.Semikolon >> %str%

:185

@type Buchstabe.Strichpunkt >> %str%

@goto 170

:190

@set/a AktuellerAdresseintrag=AktuellerAdresseintrag+1

@if %AktuellerAdresseintrag% GEQ %NeuerAdresseintrag% goto 300

@type Buchstabe.Eingabetaste >> %str%

@goto 160

:200

@cls

@set /a NeuerAdresseintrag=0

:210

@set /a NeuerAdresseintrag=NeuerAdresseintrag+1

:220

@if exist Adresseintrag%NeuerAdresseintrag%.* goto 210

@goto 100

:300

@exit

:400

@cls

@set str="C:\Users\Sascha\Desktop\Adressbuch (CSV-Export).csv"

@del %str% > NUL

@if exist %str% goto 400

@goto 200

Zurück