将word文档内容存放到数据表通用字段中

*编号：A0031

*功能：将word文档内容存放到数据表通用字段中

 

        通过试验发现，可使用命令APPEND GENERAL把文档copy到数据表中的通用字段中，用函数GETDIR（）选择不同的当前目录来复制所需要的word文档，再利用ADIR（）将需要word文档存放在一数组中。完整代码如下：

CREATE table oletable (name C(40),worddoc  G)

CD getdir()

nfiles=adir(awordfiles,"*.doc")

  if nfiles>0

     for i=1 to nfiles

        APPEND BLANK

        REPLACE oletable.name with  awordfiles(i,1)

        APPEND general worddoc from awordfiles(i,1)

   endfor

 else

   MESSAGEBOX("此目录下无此文件类型！")

 endif