|
|
发表于 2018-5-28 22:27:17
|
显示全部楼层
来自： 中国江苏无锡
以下红色字体的信息是你要的吗？
: S( T% N9 l/ c7 ^pheader$ #Call before start of file
% g' A. O: S7 P% s: @5 a, r- `6 e' r "%", e$2 `# D" A& J/ z8 e& Z
; R# B- o! T( X; s q Y sav_spc = spaces$- s& ]; i/ k2 v1 `. A7 ?
spaces$ = 03 p; I- T3 j% P; u9 B' y
*progno$, sopen_prn, sprogname$, sclose_prn, e$
$ N `& F5 e% M7 ?% i7 S% ` #sopen_prn, "PROGRAM NAME - ", sprogname$, sclose_prn, e$
3 R! {4 O! f( \" T2 a6 q9 o sopen_prn, "DATE=DD-MM-YY - ", date$, " TIME=HH:MM - ", time$, sclose_prn, e$ #Date and time output Ex. 12-02-05 15:52
# e% g: t5 u! J9 z9 d' F. ]' Q2 [: N #sopen_prn, "DATE - ", month$, "-", day$, "-", year$, sclose_prn, e$ #Date output as month,day,year - Ex. 02-12-05
9 g) v) M/ o3 h" e! [ #sopen_prn, "DATE - ", *smonth, " ", day$, " ", *year2, sclose_prn, e$ #Date output as month,day,year - Ex. Feb. 12 2005* ^8 P+ }/ B6 m
#sopen_prn, "TIME - ", time$, sclose_prn, e$ #24 hour time output - Ex. 15:52$ @' K* ^( F& |" F
#sopen_prn, "TIME - ", ptime sclose_prn, e$ #12 hour time output 3:52 PM7 F% N$ n* x1 Y; j# K
spathnc$ = ucase(spathnc$)
o- A' e5 V8 w, q smcname$ = ucase(smcname$)
4 \2 C: `- q& X2 X+ c stck_matl$ = ucase(stck_matl$)
% R/ @) v4 f0 { snamenc$ = ucase(snamenc$)
+ L, R# }9 ~% f6 O, Z sopen_prn, "MCX FILE - ", *smcpath$, *smcname$, *smcext$, sclose_prn, e$ |
|
楼主