|
|
发表于 2018-5-28 22:27:17
|
显示全部楼层
来自： 中国江苏无锡
以下红色字体的信息是你要的吗？
. k. W0 r* Q2 q" v% dpheader$ #Call before start of file
5 |. I9 `* F5 ?$ j) a6 Z$ U6 F "%", e$7 Y2 S9 {6 G# l) w9 ]: E$ r/ P
5 }8 R$ N, R! \: b6 B6 L& e
sav_spc = spaces$
, V3 q5 a7 S% _/ Y' H) m spaces$ = 0
; d# \& p/ n# @& [" z *progno$, sopen_prn, sprogname$, sclose_prn, e$+ S% B# H# d; q% ]$ J0 j
#sopen_prn, "PROGRAM NAME - ", sprogname$, sclose_prn, e$
6 H; y0 C0 o* M sopen_prn, "DATE=DD-MM-YY - ", date$, " TIME=HH:MM - ", time$, sclose_prn, e$ #Date and time output Ex. 12-02-05 15:529 a1 C# W+ }% y V' A! i. `
#sopen_prn, "DATE - ", month$, "-", day$, "-", year$, sclose_prn, e$ #Date output as month,day,year - Ex. 02-12-05- ]+ E- B4 l$ W. @: J5 ?
#sopen_prn, "DATE - ", *smonth, " ", day$, " ", *year2, sclose_prn, e$ #Date output as month,day,year - Ex. Feb. 12 2005; b8 b! g. X J
#sopen_prn, "TIME - ", time$, sclose_prn, e$ #24 hour time output - Ex. 15:527 O1 x% z& u3 H2 P2 J
#sopen_prn, "TIME - ", ptime sclose_prn, e$ #12 hour time output 3:52 PM6 z1 @ |, O4 \7 T1 g* N2 u k1 }. n
spathnc$ = ucase(spathnc$)
* \! W( O+ N/ ?( r& }9 T6 e smcname$ = ucase(smcname$)
9 U) M; x) y/ J& J stck_matl$ = ucase(stck_matl$)& D c1 }, x/ c0 \ a. |
snamenc$ = ucase(snamenc$)
2 L7 }% n' A, S3 e sopen_prn, "MCX FILE - ", *smcpath$, *smcname$, *smcext$, sclose_prn, e$ |
|
楼主