实体导出

MZkejiazai

entity/ent(10000)
string/part_name(132),ERP(132)
string/date1(132),date2(132),date3(132),date4(132)
, s* B, S' |9 M  ?A=0
         $$程序加密，用时间限制使用权限$$
    date1=substr(date,1,2)
8 f' f5 Z) L+ ^* L2 }    date2=substr(date,5,2)
    date3=substr(date,9,2)
- N6 N* S" f- f) E4 n6 `- Z    date4=date3+date1+date2
, X; D* Z6 j2 e6 g        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
    $$messg/date4
1 ^$ f; |5 ~& \1 }1 q4 _9 j9 Q8 B" m    if/valf(date4)>111230,jump/messg:
start:
3 t$ y, Q6 v( r+ E9 @$ o5 u& dl10:
TEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
crdir/'e:\sold',iferr,a1:
" J" P1 m) J; b# B# c+ ojump/L10:,trm:,,resp
( c. r" \2 X; Z9 {9 @9 c9 A         
a1: mask/70
ident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
jump/trm:,trm:,,,rsp
a2:
do/la1:,i,1,n
A=A+1
IFTHEN/A<10
! P: ~  i, w- W- o$ D&name(ent(i))=ERP+'00'+Istr(A)
0 {2 S# L* r; W! aelse
" ~/ c% H3 r) b&name(ent(i))=ERP+'0'+Istr(A)
ENDIF
! i5 k9 m; z( ~# b1 C4 lpart_name=&name(ent(i))
$ ]6 W) w6 O1 p' v; Oifthen/lenf(part_name)==0
( N9 C, m  S# y6 Rprint/'not found solid name'
) ~* p1 r* G1 k8 J1 Sjump/la1:
endif
2 E9 o, @" v* W; P7 ocpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
4 w7 @, Z0 @; o  V: k: I6 `9 fBLANK/(ent(i))
1 V& i8 [3 G4 B! Ula1:
l20:
0 A' u: W9 `( N" d: r$ t           jump/start:
3 H; z; Z) W* T. b9 r8 v1 [3 o* v! |; amessg:
               messg/'程序使用中有任何问题',$
) |% G& ~; b8 L  d. R2 h6 f2 u                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'
& g8 _1 S* L# o  t/ a
trm:
halt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西