实体导出

MZkejiazai

entity/ent(10000)
( w0 J3 U" d& |& G. E; xstring/part_name(132),ERP(132)
( A$ i( `( G5 f# c* X$ E6 wstring/date1(132),date2(132),date3(132),date4(132)
A=0
         $$程序加密，用时间限制使用权限$$
    date1=substr(date,1,2)
" y! r+ K& \$ X+ R8 j; J    date2=substr(date,5,2)
4 H, L3 U2 ?+ u' h3 p    date3=substr(date,9,2)
& p0 d) K3 S9 \  s0 w    date4=date3+date1+date2
- w9 U) g2 x# y: a0 i; B        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
+ H- ?, e! R5 _, |+ B  x6 t    $$messg/date4
    if/valf(date4)>111230,jump/messg:
: S% x0 J* p9 B$ Z0 t8 rstart:
l10:
/ ?8 x5 V  t  e3 d( ^TEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
. f0 Z1 c9 S9 j- ~: n4 Qcrdir/'e:\sold',iferr,a1:
jump/L10:,trm:,,resp
& [" c! L% t  c/ I. N+ {6 W8 _         
% J' d- X: p  d7 ?0 Da1: mask/70
1 O. R9 r  t5 o$ a- R8 ?ident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
# {" ~7 y) p/ @; d/ ^) O* c$ sjump/trm:,trm:,,,rsp
a2:
do/la1:,i,1,n
. V/ K, _" |! i6 fA=A+1
  U+ m. ]) r! z' G9 v  EIFTHEN/A<10
&name(ent(i))=ERP+'00'+Istr(A)
9 L- Q9 e. h+ ?, b4 Welse
&name(ent(i))=ERP+'0'+Istr(A)
0 P0 K4 c+ |8 \, n4 A9 w  KENDIF
part_name=&name(ent(i))
ifthen/lenf(part_name)==0
print/'not found solid name'
' L- P' ?6 t! P8 B. gjump/la1:
; n7 r( [" N) i# \endif
0 N3 C7 m! p7 o1 p, I8 y. \, Dcpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
4 s# _0 Y6 p3 ~' F2 }BLANK/(ent(i))
la1:
( m* F  k4 Y2 t5 il20:
& `" j- K6 [1 g: ]2 y, |- B           jump/start:
messg:
               messg/'程序使用中有任何问题',$
/ M" n8 z6 S1 ?3 n, l                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'

trm:
halt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西