如何在OpenEdge应用中启动Sublime Text v4并实现联动触发？

完全可以在OpenEdge中实现启动Sublime Text v4、打开文件、发送数据，以及监听Sublime的保存/关闭事件同步执行操作，以下是分模块的具体实现方法：

1. 启动Sublime Text并打开文件 #

OpenEdge可通过RUN语句或OS-COMMAND调用系统命令启动Sublime，利用其命令行参数直接打开目标文件。

Windows平台示例 #

/* 直接启动Sublime并打开指定文件 */
RUN "subl.exe" (INPUT "C:\workspace\target-file.txt").

/* 静默执行场景用OS-COMMAND */
OS-COMMAND SILENT VALUE("subl.exe C:\workspace\target-file.txt").

Linux/macOS平台示例 #

RUN "subl" (INPUT "/home/user/workspace/target-file.txt").

OS-COMMAND SILENT VALUE("subl /home/user/workspace/target-file.txt").

注意：若Sublime可执行文件未加入系统环境变量，需指定完整路径（如C:\Program Files\Sublime Text\subl.exe）。

2. 向Sublime Text发送数据 #

根据数据规模和场景，推荐两种常用传递方式：

方式一：临时文件传递（兼容性好，适合大数据） #

OpenEdge先将数据写入临时文件，再用Sublime打开该文件：

DEFINE VARIABLE cTempFile AS CHARACTER NO-UNDO.
DEFINE VARIABLE hFileHandle AS HANDLE NO-UNDO.

/* 生成临时文件路径 */
cTempFile = SESSION:TEMP-DIRECTORY + "subl-temp-data.txt".

/* 写入数据到临时文件 */
CREATE FILE hFileHandle.
hFileHandle:FILE-NAME = cTempFile.
hFileHandle:WRITE("需要发送到Sublime的内容：").
hFileHandle:WRITE("第一行业务数据").
hFileHandle:WRITE("第二行业务数据").
hFileHandle:CLOSE().

/* 用Sublime打开临时文件 */
RUN "subl.exe" (INPUT cTempFile).

方式二：管道传递（适合小数据，无需生成文件） #

通过系统管道直接将数据传入Sublime（Windows需借助cmd）：

/* Windows下管道传数据 */
OS-COMMAND SILENT VALUE("echo 直接发送的文本内容 | subl.exe -").

/* Linux/macOS平台 */
OS-COMMAND SILENT VALUE("echo '直接发送的文本内容' | subl -").

命令中的-表示Sublime从标准输入读取内容并创建临时缓冲区。

3. 监听Sublime的保存/关闭事件并同步操作 #

OpenEdge无法直接监听外部进程事件，推荐以下两种实现方案：

方案一：Sublime插件主动通知（实时性高，推荐） #

编写Sublime Python插件，在文件保存或编辑器关闭时调用OpenEdge程序传递事件信息：

1. Sublime插件代码（保存为openedge_notify.py，放在Sublime的Packages/User目录）

import sublime
import sublime_plugin
import subprocess

class OpenEdgeSyncListener(sublime_plugin.EventListener):
    # 文件保存后触发
    def on_post_save(self, view):
        file_path = view.file_name()
        if not file_path:
            return
        # 调用OpenEdge同步程序（替换为你的实际路径）
        subprocess.Popen([
            "C:\\Progress\\OpenEdge\\bin\\prowin32.exe",
            "-b", "-p", "C:\\workspace\\sync_on_save.p",
            file_path
        ], shell=True)

    # 编辑器关闭时触发
    def on_close(self, view):
        file_path = view.file_name()
        if not file_path:
            return
        # 调用OpenEdge关闭处理程序
        subprocess.Popen([
            "C:\\Progress\\OpenEdge\\bin\\prowin32.exe",
            "-b", "-p", "C:\\workspace\\sync_on_close.p",
            file_path
        ], shell=True)

2. OpenEdge同步程序示例（sync_on_save.p）

/* 接收Sublime保存事件的OpenEdge程序 */
DEFINE INPUT PARAMETER cModifiedFile AS CHARACTER NO-UNDO.

/* 执行同步逻辑：读取文件内容更新数据库 */
DEFINE VARIABLE cFileContent AS CHARACTER NO-UNDO.

INPUT FROM VALUE(cModifiedFile).
IMPORT UNFORMATTED cFileContent.
INPUT CLOSE.

/* 示例：更新业务表 */
/* UPDATE business_doc SET content = cFileContent WHERE file_path = cModifiedFile. */

MESSAGE "已同步Sublime保存的文件：" cModifiedFile VIEW-AS ALERT-BOX INFORMATION.

方案二：OpenEdge轮询检查（实现简单，实时性差） #

通过定期检查文件修改时间和Sublime进程状态，间接实现同步：

DEFINE VARIABLE cTargetFile AS CHARACTER NO-UNDO INITIAL "C:\workspace\target-file.txt".
DEFINE VARIABLE dtLastModify AS DATETIME NO-UNDO.
DEFINE VARIABLE bSublimeRunning AS LOGICAL NO-UNDO.

/* 初始化文件最后修改时间 */
FILE-INFO:FILE-NAME = cTargetFile.
dtLastModify = FILE-INFO:MODIFIED-DATETIME.

/* 轮询循环 */
REPEAT:
    PAUSE 1. /* 每隔1秒检查一次 */

    /* 检查文件是否被修改 */
    FILE-INFO:FILE-NAME = cTargetFile.
    IF FILE-INFO:MODIFIED-DATETIME > dtLastModify THEN DO:
        MESSAGE "文件已修改，执行同步" VIEW-AS ALERT-BOX INFORMATION.
        /* 执行同步操作 */
        dtLastModify = FILE-INFO:MODIFIED-DATETIME.
    END.

    /* 检查Sublime是否运行（Windows平台） */
    OS-COMMAND SILENT VALUE("tasklist /FI ""IMAGENAME eq subl.exe"" 2>NUL | find /I ""subl.exe"" >NUL").
    bSublimeRunning = (STATUS = 0).
    IF NOT bSublimeRunning THEN DO:
        MESSAGE "Sublime已关闭，执行收尾操作" VIEW-AS ALERT-BOX INFORMATION.
        LEAVE.
    END.
END.

方案对比 #

内容的提问来源于stack exchange，提问作者CephDigital