怎样在PB中实现文件的拷贝与删除

　1、文件拷贝

函数声明：

FUNCTION boolean CopyFileA(ref string cfrom, ref string cto, boolean flag) LIBRARY "Kernel32.dll"

　知纯　调用：

string ls_source, ls_des

boolean lb_flag, lb_rtn

lb_flag = false

ls_source = "c:\book.xls" //源文件

ls_des = "C:\tmp\111.xls" //目标文件

lb_rtn = CopyFileA(ls_source, ls_des, lb_flag)

MessageBox("文件拷贝", string(lb_rtn))

2、改拆删除文件

函数声明：

FUNCTION boolean DeleteFileA(ref string filename) LIBRARY "核猛枣Kernel32.dll"

调用：

string ls_file

boolean lb_rtn

ls_file = "C:\tmp\111.xls"

lb_rtn = DeleteFileA(ls_file)

MessageBox("文件删除", string(lb_rtn))

或者用PB本身的函数FileDelete()来删除文件。

   本文介绍一种在Power Builder(以下简称为PB)中利用OLE把数据库中的数据传送到Word文档的方法 通过这种方法 用户可以根据需求而改变内容 以Word方式打印结果文档 例如 在处理学生成绩时 如果要将每个学生的成绩报告生成Word文档 不同的学生只改变姓名 学号和年度等数据 其他的格式不改变 只要从学生成绩数据库中调出特定数据 插入或替换到已经制作好的Word模版中 即可解决问题

一 创建Word模版文档

Word模板文档的创建根据用户的要求进行 在固定的内容输入完成后 将需要变换内容(例如姓名 年度 系别和证书编号等)的位置输入 student_name student_year department 以及 student_id 等编码 注意: 尽量使用英文来表示这些变量 目的是避免某些汉字卜散喊相同而造成的误替换

在需要动态改变内容的位置 不需要输入文字 可以通过插入书签的方法实现 具体 *** 作如下 首先 选择在Word中 选择 插入 * 书签 d出 书签 对话框(如图 所示) 在 书签名 文本框中输入书签名称后 点击 添加 按钮 即在当前光标位置上增加了一个书签 假设我们增加了 个书签 分别是 name year department以及id 分别代表姓名 年度 系别以及证书编号

二 PB实现方法

在窗体中新建一OLE控件 在d出的 insert object 属性窗口的 create new tab 选项卡中选择 Microsoft Word 文档 选项 点击 OK 按钮后将该控件放在窗体中适当位置 PB系统会自动出现Microsoft Word应用程序 将控件命名为 OLE_Word 并创建 打开文件 替换数据 和 存盘 按钮 编写如下代码

．打开文件 string docname named integer value value = getfileopenname( Select File docname named DOC Doc Files (* DOC) * DOC ) 　型野　if value = THEN // 将模版文件另存为实际 *** 作文件(程序略) if ole_Word open(docname)= then ole_Word activate(inplace!) end if end if

这里使用 GetFileOpenName 函数让用户自行选择文掘段件 实际应用时可以进行条件的限定 注意: 需要将模版文件另存为实际 *** 作文件后再打开 不能直接 *** 作模版文件 打开文件参数有 种 其中 inplace 表示在PB程序内部窗口调用Word 部分提供Word的功能菜单另一种参数是 offsite 表示PB程序外启动Word应用程序 提供Word的所有功能菜单 简单的演示文档如图 所示

lishixinzhi/Article/program/PB/201311/24577

---