网站 › 『 PB源代码 』 › 利用pb本身的功能,反编译pbd文件中的dw

JohnPhan 发表于 2008-1-31 12:56:11

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

<p>主要的核心代码如下：</p><p>string ls_pbd = 'e:\例子目录\例子文件.pbd'<br/>setlibrarylist(ls_pbd)<br/>if pos(getlibrarylist(),ls_pbd)&gt;0 then<br/>&nbsp;if fileexists(ls_pbd) then<br/>&nbsp;else<br/>&nbsp;&nbsp;return<br/>&nbsp;end if<br/>else<br/>&nbsp;return<br/>end if<br/>string ls_dir</p><p>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'}<br/>datastore ld<br/>.....<br/>.....<br/>&nbsp;ld = create datastore<br/>&nbsp;j = upperbound(ls_dataobject)<br/>&nbsp;for i = 1 to j<br/>&nbsp;&nbsp;ld.dataobject = ls_dataobject<br/>&nbsp;&nbsp;ls_swap = '$PBExportHeader$'+ls_dataobject+'.srd~r~n'+ld.describe('datawindow.syntax')<br/>&nbsp;&nbsp;af_writefile(ls_dir+ls_dataobject+'.srd',ls_swap)&nbsp;//写文件<br/>&nbsp;next<br/>&nbsp;destroy ld<br/>....<br/>MessageBox('信息','完成。')</p>
[此贴子已经被作者于2008-2-1 16:58:35编辑过]

zsldzxx 发表于 2008-2-20 11:46:39

看看

fxyang13 发表于 2008-3-27 21:19:21

<p>真可以吗,看看</p>

happee 发表于 2008-5-16 16:37:38

活学活用,支持~

amtech 发表于 2009-10-29 15:12:06

:victory:看看

fzhl030101 发表于 2009-11-1 14:13:18

真得很想学

xiaosen666m 发表于 2016-7-11 07:06:48

不错~~~~~~~~~~~~~~~~~~~~~·

chris_haishan 发表于 2022-9-1 14:34:03

Very Good :'(

shun4132175 发表于 2023-11-13 09:12:21

进来是学习的

查看完整版本: 利用pb本身的功能,反编译pbd文件中的dw