实体导出

MZkejiazai

entity/ent(10000)
' `# ]7 Z& G$ C$ H6 Vstring/part_name(132),ERP(132)
. P  ]  g. L6 Y5 C) g! `6 Tstring/date1(132),date2(132),date3(132),date4(132)
& ^# X/ Q5 [" R5 UA=0
         $$程序加密，用时间限制使用权限$$
    date1=substr(date,1,2)
1 ~" @0 H& `$ j, ^" Q6 S( X7 Y) U    date2=substr(date,5,2)
: ]( i8 Z' P$ {. ]5 y; y7 Y% f    date3=substr(date,9,2)
$ x+ @+ D' n( r- \: ~: I9 Z1 Y    date4=date3+date1+date2
: H2 @2 O! k/ r# i# V        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
    $$messg/date4
0 ]% f7 A& A3 `    if/valf(date4)>111230,jump/messg:
start:
- |# o* R5 \# O8 {2 r' z& F/ ?l10:
( F9 M2 a, w9 C4 U& o; P8 t# ^( ?TEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
crdir/'e:\sold',iferr,a1:
jump/L10:,trm:,,resp
: K3 p0 j8 }& A         
a1: mask/70
ident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
jump/trm:,trm:,,,rsp
. P8 t% {- n4 sa2:
9 j! v6 V; r6 G5 }& E1 kdo/la1:,i,1,n
# e( B; B! g- U) a* `6 p" C& ]% {A=A+1
IFTHEN/A<10
&name(ent(i))=ERP+'00'+Istr(A)
& I+ v  r+ s, e, D: h% w$ o: {2 qelse
$ x# g3 ?1 Y) w' n: L&name(ent(i))=ERP+'0'+Istr(A)
, l: Z. ?/ g5 `: w6 ]ENDIF
+ ]" E. ~& a; m% [6 a4 i/ xpart_name=&name(ent(i))
9 A1 J6 i6 }* f' P, sifthen/lenf(part_name)==0
" o% t4 x" \& L, R! _9 Nprint/'not found solid name'
jump/la1:
endif
( T4 F- W3 @4 I- u5 I; Vcpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
# ~$ ~8 s3 S! [- M; x! g, kBLANK/(ent(i))
7 l4 u, K: O* u  W1 C+ w9 }la1:
4 Z4 S2 R: R% N( C  _* Wl20:
7 k) g  l0 c3 A0 V3 z+ o           jump/start:
messg:
               messg/'程序使用中有任何问题',$
                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'

! F! P! E7 Q4 o* ?1 K1 B" Atrm:
4 b" ^; H% q4 |6 j& f6 q* z6 W  D  D4 Chalt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西