|
|
发表于 2018-5-28 22:27:17
|
显示全部楼层
来自： 中国江苏无锡
以下红色字体的信息是你要的吗？3 t+ P8 J& q% y Z6 s
pheader$ #Call before start of file - ]: ^& L5 c5 O
"%", e$9 i' ]$ o% K' X+ S" A6 g
# E% ?1 ^! Y5 Z/ G1 b' K; y( I
sav_spc = spaces$8 p" q8 i# F' z( M2 A# o
spaces$ = 0# ^: u: o4 ~) \& c; D0 M8 W. U1 I; M
*progno$, sopen_prn, sprogname$, sclose_prn, e$2 b7 S: V+ t- d2 q
#sopen_prn, "PROGRAM NAME - ", sprogname$, sclose_prn, e$0 p+ u) Z: N: P/ S
sopen_prn, "DATE=DD-MM-YY - ", date$, " TIME=HH:MM - ", time$, sclose_prn, e$ #Date and time output Ex. 12-02-05 15:52
^4 j6 ~+ w& r: @. P* S #sopen_prn, "DATE - ", month$, "-", day$, "-", year$, sclose_prn, e$ #Date output as month,day,year - Ex. 02-12-05
" B+ x w9 b+ U# H$ G- A' c #sopen_prn, "DATE - ", *smonth, " ", day$, " ", *year2, sclose_prn, e$ #Date output as month,day,year - Ex. Feb. 12 2005
' ?. z& M$ p0 ^ #sopen_prn, "TIME - ", time$, sclose_prn, e$ #24 hour time output - Ex. 15:52' s$ w/ V$ B; i5 Y( g5 c d
#sopen_prn, "TIME - ", ptime sclose_prn, e$ #12 hour time output 3:52 PM
4 I5 r! A7 C" i" q; J* f spathnc$ = ucase(spathnc$)
7 s& Y. E N& |6 b* {. G$ i smcname$ = ucase(smcname$)
2 n. q2 Q F& a1 C# x5 g- S2 F stck_matl$ = ucase(stck_matl$)& S% L H! f6 _/ Q Y& z
snamenc$ = ucase(snamenc$)
, @( K' ?% ~6 }8 H; U( Y m sopen_prn, "MCX FILE - ", *smcpath$, *smcname$, *smcext$, sclose_prn, e$ |
|
楼主