|
|
发表于 2018-5-28 22:27:17
|
显示全部楼层
来自： 中国江苏无锡
以下红色字体的信息是你要的吗？4 M0 u0 G2 D- F
pheader$ #Call before start of file 2 ^. b+ v& |" @( H
"%", e$, i ]: K( ]6 @1 D) n1 e9 \. D
3 Y* G5 q) f0 [% L* j$ y
sav_spc = spaces$
# M6 O3 G1 ]$ e spaces$ = 0$ _$ ^2 e+ B( y$ ^( V
*progno$, sopen_prn, sprogname$, sclose_prn, e$7 T. v: _/ j# Y x( k0 V3 N
#sopen_prn, "PROGRAM NAME - ", sprogname$, sclose_prn, e$
! r: d; g* r- O: h 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 x. U1 H9 c% j& F0 D* [ #sopen_prn, "DATE - ", month$, "-", day$, "-", year$, sclose_prn, e$ #Date output as month,day,year - Ex. 02-12-05
& p" j2 h" a7 A: J" I ~0 _ #sopen_prn, "DATE - ", *smonth, " ", day$, " ", *year2, sclose_prn, e$ #Date output as month,day,year - Ex. Feb. 12 2005
) `! g1 A# E( \1 @+ h# b' r- ~( ? #sopen_prn, "TIME - ", time$, sclose_prn, e$ #24 hour time output - Ex. 15:52- t( Z6 ]9 c: [
#sopen_prn, "TIME - ", ptime sclose_prn, e$ #12 hour time output 3:52 PM% g. Q+ o/ j0 z' E) I- ^7 }4 a
spathnc$ = ucase(spathnc$)/ A% V3 m3 |4 j/ K
smcname$ = ucase(smcname$)# c+ O6 Q1 U( x1 ]* C! E3 _# [
stck_matl$ = ucase(stck_matl$)
4 g. e: p0 `5 k$ u8 \5 d snamenc$ = ucase(snamenc$)
$ S3 `/ j: p2 q sopen_prn, "MCX FILE - ", *smcpath$, *smcname$, *smcext$, sclose_prn, e$ |
|
楼主