实体导出

MZkejiazai

entity/ent(10000)
& G5 h4 c8 z! d. E% V( t( f; nstring/part_name(132),ERP(132)
' U" T; d. _, C0 q8 b, E4 Estring/date1(132),date2(132),date3(132),date4(132)
! d3 R  {& @* }* Q4 NA=0
9 @& J* M5 A) q8 _; K' u/ G         $$程序加密，用时间限制使用权限$$
    date1=substr(date,1,2)
4 b: n8 [- ^/ A& R5 h8 Q+ T& {    date2=substr(date,5,2)
    date3=substr(date,9,2)
! L$ w* ^' z  Y0 x0 z    date4=date3+date1+date2
        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
    $$messg/date4
# g+ S0 }4 P# ^9 \: P    if/valf(date4)>111230,jump/messg:
start:
' E& _. x- _: `l10:
+ ?9 l- p( W5 ]( z' d- j- B! ZTEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
* w2 c' s2 T/ p8 F- ocrdir/'e:\sold',iferr,a1:
5 K0 D+ D2 M2 L/ }7 H- wjump/L10:,trm:,,resp
6 A1 `0 U! J+ {0 Q8 C' }: I' a         
a1: mask/70
2 s% k) x- i( ^4 M/ Y" gident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
6 @, o# t7 f, L$ A( W; Vjump/trm:,trm:,,,rsp
a2:
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)
ENDIF
( p6 c: O4 T( Npart_name=&name(ent(i))
# R$ k! C+ U! J9 `ifthen/lenf(part_name)==0
print/'not found solid name'
1 C2 _) Q1 ^, X% _2 F# wjump/la1:
$ t' [. t) S1 j0 U& Hendif
cpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
BLANK/(ent(i))
la1:
% b# P" \% O2 Q, X  ol20:
+ {0 Y# i3 r6 e. m- l4 P           jump/start:
messg:
               messg/'程序使用中有任何问题',$
' K6 _! B; _& T                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'

% F( K7 e$ w3 I* V( Jtrm:
halt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西