利用pb本身的功能,反编译pbd文件中的dw

主要的核心代码如下：

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('信息','完成。')