实体导出

MZkejiazai

entity/ent(10000)
# C5 ~, C- @' zstring/part_name(132),ERP(132)
string/date1(132),date2(132),date3(132),date4(132)
7 t+ D- u+ L  T- v% A8 g# g6 kA=0
         $$程序加密，用时间限制使用权限$$
    date1=substr(date,1,2)
0 f/ K* j! ^6 g( e1 j    date2=substr(date,5,2)
    date3=substr(date,9,2)
6 U9 f4 @0 U4 s4 U* x, A1 ?    date4=date3+date1+date2
        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
- a! W0 s& q, \7 r! z2 P    $$messg/date4
    if/valf(date4)>111230,jump/messg:
- \$ U4 W7 w$ |3 |4 S  gstart:
l10:
* |  j, d$ L& n; x1 rTEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
crdir/'e:\sold',iferr,a1:
7 h2 f* o$ p  ]% C& v# T! C7 ajump/L10:,trm:,,resp
         
a1: mask/70
ident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
% ~1 Q: G/ a) g( r% d5 h( {0 s+ Djump/trm:,trm:,,,rsp
a2:
/ p5 s) R! r7 L6 z3 M/ Mdo/la1:,i,1,n
A=A+1
IFTHEN/A<10
&name(ent(i))=ERP+'00'+Istr(A)
else
" s+ w7 A3 C) S6 u9 S$ w/ k/ ^8 \&name(ent(i))=ERP+'0'+Istr(A)
ENDIF
part_name=&name(ent(i))
/ t! c7 @1 O( R' vifthen/lenf(part_name)==0
" Z- y; G" ?6 I; U( E; f6 ^print/'not found solid name'
jump/la1:
! Z; B4 d9 b( _endif
cpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
BLANK/(ent(i))
la1:
$ z: k0 n+ c4 h3 Bl20:
9 r2 K! u; \# r. ~- {: l2 u           jump/start:
messg:
               messg/'程序使用中有任何问题',$
                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'

trm:
$ r4 O7 j: [& p7 M' J* e/ b% F6 ]3 \halt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西