实体导出

MZkejiazai

entity/ent(10000)
string/part_name(132),ERP(132)
string/date1(132),date2(132),date3(132),date4(132)
A=0
: a6 T& D. g- f- t7 N/ W4 ]         $$程序加密，用时间限制使用权限$$
    date1=substr(date,1,2)
    date2=substr(date,5,2)
9 x! c: t" M; E' A    date3=substr(date,9,2)
    date4=date3+date1+date2
+ r$ e% e, `  C2 l2 l( _, Y        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
    $$messg/date4
! |/ Y8 f6 `" z: S, z    if/valf(date4)>111230,jump/messg:
+ P$ p) @0 H2 Y% @' {( Ustart:
2 H( [; E& P, v2 o) ^/ gl10:
, z1 T# i4 P9 i* ?( p5 O5 l# C- ~! OTEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
crdir/'e:\sold',iferr,a1:
" x8 [2 ?4 R4 R0 Kjump/L10:,trm:,,resp
         
a1: mask/70
ident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
jump/trm:,trm:,,,rsp
5 g0 R+ }1 t% w/ \4 Y+ m) ?, Da2:
do/la1:,i,1,n
A=A+1
IFTHEN/A<10
&name(ent(i))=ERP+'00'+Istr(A)
else
&name(ent(i))=ERP+'0'+Istr(A)
* o4 E, L6 F: @! S0 ]; K- dENDIF
% u' b0 k, |; H7 b3 \part_name=&name(ent(i))
ifthen/lenf(part_name)==0
print/'not found solid name'
6 c) ~* O  V. {- V* Gjump/la1:
endif
1 j& [/ B" ^6 b/ w% K6 h% C& K3 x, gcpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
BLANK/(ent(i))
la1:
l20:
           jump/start:
messg:
$ w% x- Q  n/ [. Z4 I' f               messg/'程序使用中有任何问题',$
0 k8 B/ N( h' y" c0 N/ C( c: P* {                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'

1 Q/ K& ]. |# G- ~; [1 J& A6 ]trm:
halt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西