🚀 go-pugleaf

In article <N.072996.204421.26@a4.extern.inet-nb.de> mfpils@inet-nb.de (Pils) writes:
>
>Ich sollte bestimmte Dateien jedes Jahr aufs Neue sichern.
>Die Dateien tragen die folgenden Namen:
>
>DAT01_AK.DAT bis DAT06_AK.DAT (AK steht fuer Aktuell)
>
>Zur Datensicherung muss ich jedes Jahr die Dateien in sechs andere Dateien 
>kopieren. Die Namen dieser Dateien richten sich nach dem Jahr der Bearbeitung.
>Die Namen lauten:
>
>DAT01_XX.DAT bis DAT06_XX.DAT (XX steht fuer die Jahreszahl)

Schreib ein kleines Basic-Programm (in QBasic oder bei aelterem DOS in
GWBASIC), das diese Batchdatei erzeugt. In einer zweiten Batchdatei
rufst Du zuerst das Basic-Programm auf und dann die von ihm erzeugte
Batchdatei.

REM Dies ist das Programm JAHR.BAS
OPEN "JAHR.BAT" FOR OUTPUT AS 1
FOR I=1 TO 6
  PRINT#1,"COPY DATA0";CHR$(48+);"_AK.DAT DATA0";CHR$(48+I);"_";RIGHT$(DATE$,2);".DAT"
  NEXT
CLOSE 1:SYSTEM

Und dann die zweite Batchdatei:

QBASIC /RUN JAHR.BAS
CALL JAHR.BAT
DEL JAHR.BAT ; aufraeumen

Fertig.

-- 
Best Regards, Dr. Peter Kittel       // http://www.pios.de or www.amiga.de
Private Site in Frankfurt, Germany \X/  Email address subject to change!
Please stay tuned for announcements of new Internet connection.