马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?站点注册
×
主要的核心代码如下: string ls_pbd = 'e:\例子目录\例子文件.pbd' setlibrarylist(ls_pbd) if pos(getlibrarylist(),ls_pbd)>0 then if fileexists(ls_pbd) then else return end if else return end if string ls_dir string ls_dataobject[] = {'d_debug','d_params','d_procexec','d_search','d_edit_userlist','d_columns','d_export_info','d_export_tables','d_search_exact','d_triggers','zz_d_toolbars'} datastore ld ..... ..... ld = create datastore j = upperbound(ls_dataobject) for i = 1 to j ld.dataobject = ls_dataobject ls_swap = '$PBExportHeader$'+ls_dataobject+'.srd~r~n'+ld.describe('datawindow.syntax') af_writefile(ls_dir+ls_dataobject+'.srd',ls_swap) //写文件 next destroy ld .... MessageBox('信息','完成。')
[此贴子已经被作者于2008-2-1 16:58:35编辑过]
|