.版本 2 .子程序 EMS编译, , 公开, Compile .参数 文件全路径名, 文本型 .参数 是否运行, 逻辑型 EMS_程序运行路径 ＝ 取运行目录 () EMS_资源文件 ＝ 取文本左边 (文件全路径名, 倒找文本 (文件全路径名, “.”, , 假)) ＋ “lib” EMS信息初始化 () EMS提示信息 (“开始初始化数据.......”) EMS初始化段 () EMS初始化符号 () EMS初始化资源 () EMS初始化导入 () EMS初始化导出 () EMS初始化编码 () EMS初始化框架 () EMS初始化数据 () EMS初始化数据类型 () EMS初始化解析器 () EMS提示信息 (“环境初始化完毕.开始数据分析中...”) EMS解析器 () .如果真 (EMS_是否DLL) EMS_DLL名 ＝ 取文本右边 (文件全路径名, 取文本长度 (文件全路径名) － 倒找文本 (文件全路径名, “\”, , 假)) EMS_DLL名 ＝ 取文本左边 (EMS_DLL名, 取文本长度 (EMS_DLL名) － 3) EMS_DLL名 ＝ EMS_DLL名 ＋ “DLL” .如果真结束 .如果真 (EMS_是否出错) EMS设置提示 (EMS_信息) 返回 () .如果真结束 .如果真 (EMS_库) EMS导出库 (文件全路径名) 返回 () .如果真结束 EMS初始化连接 () .如果真 (EMS_是否出错) EMS设置提示 (EMS_信息) 返回 () .如果真结束 EMS编码数据 () EMS连接 (文件全路径名, 是否运行) 返回 ()