Visual Foxpro 修改通用字段

Question

首先，我不是VFP程序员，所以我做错的事情可能很简单。

我正在尝试从 VFP 9 数据库的常规字段中提取一些文档。 我有一种方法可以做到这一点，即有效地将字段复制并粘贴到 Word 中，然后将 Word 文档保存到磁盘上。

我将所有这些都在 FoxPro 开发环境中的 .prg 文件中进行。

这是我的代码的核心内容（其中大部分是从 Microsoft 支持问题复制的）：

DO WHILE NOT EOF()
    IF EMPTY(tnoteole) then
        SKIP
        LOOP
    ENDIF

    KEYBOARD "{ctrl+c} {ctrl+w}" 
    MODIFY GENERAL tnoteole 

    TRY
        .EditPaste
    CATCH
    ENDTRY

    .InsertPara

    filename = Path + ALLTRIM(STR(recnum)) + ".doc"
    .FileSaveAs(filename)
    .EditSelectAll
    .EditClear
    SKIP                     

    recnum = recnum + 1
ENDDO

我的问题是，当我从开发环境内部运行它时，它工作正常，并且常规字段窗口在屏幕上闪烁并被粘贴但是当我尝试从编译的 exe 运行它时（该过程是由用户单击表单上的按钮触发的 - 我有很多工作 - 尽管我实际上希望它是一个批处理作业，无需用户交互）Word 将打开，但也仅此而已。 一般字段不会在屏幕上闪烁，基本上它只是永远等待。

（哦，如果你想知道令人讨厌的 try/catch 的事情，我在粘贴某些字段时发现了 Word 的一些异常，但是 try/catch 在开发环境中工作正常，所以我不认为这是原因我的问题。）

那么，我怎样才能做到这一点呢？ 我有点在 FoxPro 的黑暗中摸索。

请帮忙！ :)

谢谢，

克雷格

Answer 1

一些事情：

• 这是一个 VFP 编译的 EXE 吗？ 您是否有“读取事件”命令在里面？ 否则exe代码将运行然后立即退出，这听起来有点像你的问题。

• 你从哪里获取 Path 变量？ 开发和运行时之间会有所不同吗？

• 任何需要设置的设置都必须在运行时环境中显式设置 - SET EXCLUSIVE 和 SET SAFE 浮现在脑海中。

  任何需要设置的设置

否则，一些 MessageBox 调试或日志记录应该会告诉您程序的运行情况以及变量的设置，这应该足以使其正常工作。

更新：我只是在查看修改常规 文档，您可能需要将 NOWAIT 子句与“修改常规”命令一起使用：NOMODIFY 也不会造成损害，并且您可能必须提供一个 DEFINEd 窗口以供编辑窗口打开并包含 IN WINDOW 子句。

现在等待
后继续执行程序
一般字段编辑窗口是
打开。 该程序不等待
编辑窗口要关闭，但是
继续执行程序
紧接着该行的行
其中包含“立即修改常规”。
如果 MODIFY GENERAL 时省略 NOWAIT
在节目中发布，编辑
窗口打开并执行程序
暂停，直到编辑窗口出现
已关闭。

Answer 2

我自 1987 年以来一直是 Foxpro 开发人员，自 1993 年以来一直是 VFP。如果您拥有的数据不是什么机密，您可以给我一份大约 20 条记录的副本...我看看是否可以抛出一些东西一起为您提供无人值守的 EXE 外部开发模式。 即使您给我一个虚假的非常规列和数据的常规列。

Answer 3

常规字段高度依赖于存储在常规字段中的自动化信息，在您的情况下是 Word 文档。 因此，如果您运行它的计算机上没有 Microsoft Word，您将会遇到问题。 您可能知道，通用字段非常挑剔。

我的建议是在 TRY...CATCH 中包含 MODIFY GENERAL 代码，并向 CATCH 添加一些异常代码，以便您可以看到这里发生了什么。

LOCAL loException AS Exception

TRY
    KEYBOARD "{ctrl+c} {ctrl+w}" 
    MODIFY GENERAL tnoteole 

    .EditPaste

    .InsertPara

    filename = Path + ALLTRIM(STR(recnum)) + ".doc"
    .FileSaveAs(filename)
    .EditSelectAll
    .EditClear
    SKIP                     

CATCH TO loException
    * Output problem to a text file for review after the process
    STRTOFILE(loException.Message + CHR(13) + CHR(10) ;
              " on " + TRANSFORM(loException.LineNo), ;
              "ExceptionLog.txt", 1)

ENDTRY

我也同意NOWAIT。 如果没有一些示例代码，我只能猜测打开的窗口也需要关闭，或者可能会消耗机器上所需的一些资源。