中pbl库编译后的动态连接库pbd
文件也可以理解成
类似于
dll
的文件
只是
dll
是机器码,
pbd
是伪代码在编译的时候如果设置成
pcode
,
并在某个
pbl
文件后打勾。
编译之后就会产生pbd
文件通常一些大型软件编译的时候都会编译成好多个
pbd
,这样方便软件的维互由于
pbd
是伪代码,所以必须有
pb
的虚拟机
pbvm60.dll
的支持:用pb9的migrate
来转换。
pdb文件格式是pda的电子文档的通用格式可以使用:首选当然是在pda上打开了。在电脑上使用adobe
reader
或者用
福昕阅读器。
在 File 菜单中有一个导入工程的菜单项吧!选择导入“ *.pbw ”的文件进行导入,就可以打开工程了。或者是在库文件中,加入“ *.pbl ”文件,就可以在类文件导航栏中,打开源码了。我都N年没有用过PB了,回答不详细,请谅解。
给你一个函数!全局函数!//无返回,参数:类型datawindow,名称idw_dw
string path,filename
integer value,result
value = GetFileOpenName("Select File",path,filename,"xls","xls Files (*.xls),*.xls,Text Files (*.TXT),*.TXT,DBF Files (*.DBF),*.DBF")
if value<>1 then return
if right(path,3)='xls' or right(path,3)='XLS' then
OLEObject ObjExcel
ObjExcel = CREATE OLEObject
result = ObjExcel.ConnectToNewObject( "excel.application")
if result <>0 then
messagebox("信息提示","连接EXCEL失败,请检查计算机中是否安装了EXCEL!")
Return
else
ObjExcel.Workbooks.Open(path) //ls_rj是文件的路径
ObjExcel.ActiveSheet.Cells.Copy
ObjExcel.Application.Visible = false
idw_dw.SetTransObject(SQLCA)
idw_dw.ImportClipboard(2) //将系统剪切版上的内容粘贴到数据窗口中,其中2为起始行参数
Clipboard("")//请空剪切版上的内容
ObjExcel.Quit()
ObjExcel.DisconnectObject()//断开与OLE的连接
Destroy ObjExcel
end if
elseif right(path,3)='txt' or right(path,3)='TXT' then
idw_dw.importfile(path,2)
elseif right(path,3)='dbf' or right(path,3)='DBF' then
idw_dw.importfile(path,1)
end if
这个函数可以读取dbf、txt和xls文件的数据。
【注意】从第二行开始读的,因为一般第一行是题头!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)