QUOTE (SLYDER @ 09.08.2017, 22:56 Uhr)
Der Softwarestand ist: 340 492-04 SP8.
Ich habe es ausprobiert bei FN16 F-Print die Zieldatei als QS anzugeben. Aber jedes mal wird mir darauf hin nur eine Datei erstellt
mit dem Namen "QS.". Dh er interpretiert den String nicht.
Danke für dein Hilfe
Hallo,
bei dieser Software war die FileCopy-Funktion doch schon dabei (Ab Software 34049x-03 mit FCL3).
Also geht das wie folgt:
Datei soll mit NAME__YYYY-MM-DD_HH-MM-SS (Name__Aktuelles Datum_Aktuelle Uhrzeit) abgespeichert werden.
Programm:
0 BEGIN PGM pgm MM
1 * - Define QS
2 ;Date
3 QS10 = SYSSTR( ID321 NR11 )
4 ;Time
5 QS11 = SYSSTR( ID321 NR13 )
6 ;Split in HOURS
7 QS12 = SUBSTR( SRC_QS11 BEG0 LEN2 )
8 ;Split in MINUTES
9 QS13 = SUBSTR( SRC_QS11 BEG3 LEN2 )
10 ;Split in SECONDS
11 QS14 = SUBSTR( SRC_QS11 BEG6 LEN2 )
12 ;
13 ;Combine
14 QS20 = QS10 || "_" || QS12 || "-" || QS13 || "-" || QS14 || ".a"
15 QS20 = "FILENAME" || "__" || QS20
16 ;
17 FN 16: F-PRINT TNC:\DEMO\Test.a / FILE.a
18 ;
19 FUNCTION FILECOPY "FILE.a" TO QS20
20 FUNCTION FILEDELETE "FILE.a"
21 STOP
22 END PGM pgm MM
Inhalt von Test.a:
"this is a test";
M_CLOSE;
So kann man das programmieren.
Angehängte Datei(en)
pgm.h ( 592Byte )
Anzahl der Downloads: 34
QS.zip ( 805Byte )
Anzahl der Downloads: 31