grip 批量导出prt

批量导出prt

entity/obj(2000)
string/cswj(132),uf(132),ud(80),dd(132),ff(132)

&fulldt = 2
mask/70

cswj='c:\meilei_ug_wg\meilei_ug_wg\ini\tg-1.ini'
fetch/txt,1,cswj,iferr,zbdcs: $$ 取参数
reset/1              
read/1,uf
fterm/txt,1

l10:
ident/'梅雷提示！请选择实体...',obj,cnt,nm,resp
jump/l10:,end:,,,resp

l20:
text/'梅雷提示!请输入文件夹途径...',uf,resp,deflt
jump/l10:,end:,,,resp

if/substr(uf,lenf(uf),1)<>'\',uf=uf+'\'

l30:
i=0
do/lou:,i,1,nm
ud=&name(obj(i))
if/ud=='',ud='td_'+istr(i)
dd=uf+ud+'.prt'
crdir/uf,iferr,mc3:
mc3:
cpatt/update,dd,obj(i),iferr,mc2: $$导出文件
print/dd+' 文件已导出'
lou:
fdel/cswj,iferr,wjysc:
wjysc:
create/txt,1,cswj
write/1,uf
file/txt,1   
fterm/txt,1   

print/''
print/'梅雷提示！'
print/'如果对象没名称 文件名  默认为 tg-“i”'
print/'如果对象有名称 文件名  默认为对象名'

jump/l10:
end:
halt

mc2:
print/dd+' 文件不能导出'
jump/lou:

zbdcs:
messg/'梅雷提示！找不到参数文件 '
jump/end:


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/