《告别重复劳动！易语言实现档案数字化录入全自动助手》

场景痛点：低效的重复录入操作

在档案数字化管理系统中，录入员常面临繁琐的"快捷键-录入-切换焦点-翻页"循环操作，即使引入OCR提取题名，仍需在多个窗口间手动切换、复制粘贴，效率低下。

优化方案：一键式自动化录入

通过将原有流程自动化，可将操作简化为仅使用空格键（翻页） 和点号键（录入） 两个相邻按键，单手即可高效完成。

原繁琐操作流程

1. 按快捷键（如数字键3）调出新建窗口。

2. 手动输入或粘贴"文件题名"。

3. 鼠标点击图片区域，转移光标焦点。

4. 按空格键一次或多次进行翻页。

5. 重复步骤1-4，开启下一循环。

优化后自动化流程

1. 翻页 ：按空格键

2. 录入 ：按点号键，系统自动执行以下操作：

   • 从预设的OCR识别结果文件（如titles.txt）中读取下一个题名。

   • 自动调出新建窗口（模拟按3）。

   • 自动填入题名。

   • 自动点击图片区域转移焦点。

   • 为下一次翻页做好准备。

核心价值与优势

• 极致简化：将多步骤操作压缩为两个紧邻按键，单手操作，大幅减少疲劳和出错率。

• 无缝衔接：自动化流程消除了窗口切换和手动复制粘贴的中断，使操作流暢连贯。

• 高度可定制：按键、OCR文本源、操作间隔等均可根据实际系统和需求进行调整。

本文提供易语言和Python两种实现方案，易语言胜在快速封装成EXE，Python胜在生态库丰富。

以下是实现以上功能的易语言代码：

.版本 2

.支持库 eAPI

.支持库 shellEx

.支持库 iext

.支持库 spec

.程序集 窗口程序集1

.程序集变量 是否有线程, 逻辑型

.程序集变量 线程句柄, 整数型

.程序集变量 标识开始, 整数型

.程序集变量 标识停止, 整数型

.程序集变量 延迟时间, 整数型

.程序集变量 picx, 整数型

.程序集变量 picy, 整数型

.程序集变量 标识导入, 整数型

.程序集变量 文件名, 文本型

.程序集变量 已保存密码, 文本型

.子程序 __启动窗口_创建完毕

.局部变量 硬盘信息, 硬盘信息

.局部变量 寻找结果, 整数型

皮肤_加载 (#皮肤_中国风)

标识开始 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签热键.取窗口句柄 (), 0, #圆点键)

标识导入 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签热键.取窗口句柄 (), 0, #F8键)

编辑框延迟.内容 ＝ 读配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "延迟", )

延迟时间 ＝ 到数值 (编辑框延迟.内容)

picx ＝ 到数值 (读配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "picx", "690"))

picy ＝ 到数值 (读配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "picy", "500"))

打开临时数据库 ()

是否有线程 ＝ 假

置随机数种子 ()

取硬盘信息 (硬盘信息, )

.如果 (注册码_生成 (_启动窗口.标题, 硬盘信息.序列号) ＝ 注册码_读取 ())

.否则

信息框 ("软件未注册!请先注册！", 0, )

载入 (窗口1, , 真)

.如果结束

限时使用 ()

已保存密码 ＝ 读配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "jihuo", "welcome")

.判断开始 (加密文本 ＝ 已保存密码)

.默认

载入 (窗口2, , 真)

.判断结束

.子程序 _超级列表框1_右键单击表项

弹出菜单 (右键菜单, , )

.子程序 _标记_被选择

.局部变量 索引, 整数型

索引 ＝ 超级列表框1.现行选中项

超级列表框1.置标题 (索引, 1, "here")

修改临时数据库 ()

.子程序 打开临时数据库

.局部变量 临时数据库, 文本型

.局部变量 订单号, 文本型

.局部变量 标记内容, 文本型

.局部变量 索引, 整数型

临时数据库 ＝ 取运行目录 () ＋ "/" ＋ "tel.edb"

打开 (临时数据库, , , , , , )

.计次循环首 (取记录数 (), )

订单号 ＝ 读 (1)

标记内容 ＝ 读 (2)

索引 ＝ 超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (索引, 0, 订单号)

超级列表框1.置标题 (索引, 1, 标记内容)

跳过 ()

.计次循环尾 ()

关闭 ()

标签1.标题 ＝ "总个数：" ＋ 到文本 (超级列表框1.取表项数 ())

.子程序 修改临时数据库

.局部变量 临时数据库, 文本型

.局部变量 n, 整数型

.局部变量 订单号, 文本型

.局部变量 标记内容, 文本型

临时数据库 ＝ 取运行目录 () ＋ "/" ＋ "tel.edb"

打开 (临时数据库, , , , , , )

清空 ()

.计次循环首 (超级列表框1.取表项数 (), n)

订单号 ＝ 超级列表框1.取标题 (n － 1, 0)

标记内容 ＝ 超级列表框1.取标题 (n － 1, 1)

加记录 (订单号, 标记内容)

.计次循环尾 ()

关闭 ()

.子程序 _标签热键_反馈事件, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型

.判断开始 (参数一 ＝ 标识开始)

_下一个_被单击 ()

.判断 (参数一 ＝ 标识导入)

快捷导入 ()

.默认

.判断结束

.子程序 _按钮导入TXT数据_被单击

.局部变量 n, 整数型

.局部变量 子文本, 文本型

.局部变量 索引, 整数型

.局部变量 标记内容, 文本型

.局部变量 文件号, 整数型

.局部变量 文件内容, 文本型

.局部变量 文本数组, 文本型, , "0"

.如果真 (通用对话框1.打开 ())

文件名 ＝ 通用对话框1.文件名

超级列表框1.全部删除 ()

文件号 ＝ 打开文件 (文件名, , )

文件内容 ＝ 读入文本 (文件号, )

文本数组 ＝ 分割文本 (文件内容, #换行符, )

.计次循环首 (取数组成员数 (文本数组), n)

子文本 ＝ 文本数组 [n]

子文本 ＝ 删首尾空 (子文本)

索引 ＝ 超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (索引, 0, 子文本)

.计次循环尾 ()

标签1.标题 ＝ "总个数：" ＋ 到文本 (超级列表框1.取表项数 ())

修改临时数据库 ()

关闭文件 (文件号)

.如果真结束

.子程序 快捷导入

.局部变量 n, 整数型

.局部变量 子文本, 文本型

.局部变量 索引, 整数型

.局部变量 标记内容, 文本型

.局部变量 文件号, 整数型

.局部变量 文件内容, 文本型

.局部变量 文本数组, 文本型, , "0"

超级列表框1.全部删除 ()

文件号 ＝ 打开文件 (文件名, , )

文件内容 ＝ 读入文本 (文件号, )

文本数组 ＝ 分割文本 (文件内容, #换行符, )

.计次循环首 (取数组成员数 (文本数组), n)

子文本 ＝ 文本数组 [n]

子文本 ＝ 删首尾空 (子文本)

索引 ＝ 超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (索引, 0, 子文本)

.计次循环尾 ()

标签1.标题 ＝ "总个数：" ＋ 到文本 (超级列表框1.取表项数 ())

修改临时数据库 ()

关闭文件 (文件号)

超级列表框1.现行选中项 ＝ 0

超级列表框1.保证显示 (0)

.子程序 _复制_被选择

.局部变量 订单号, 文本型

订单号 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)

置剪辑板文本 (订单号)

.子程序 _下一个_被单击

超级列表框1.现行选中项 ＝ 超级列表框1.现行选中项 ＋ 1

超级列表框1.保证显示 (超级列表框1.现行选中项)

置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 0))

延迟 (100)

模拟按键 (#键3, , )

延迟 (延迟时间)

模拟按键 (#Ctrl键, #V键, )

延迟 (100)

_标记_被选择 ()

模拟鼠标点击 (picx, picy, 0)

延迟 (100)

标签当前数.标题 ＝ "当前数：" ＋ 到文本 (超级列表框1.现行选中项)

.子程序 _选择框1_被单击

.如果 (选择框1.选中 ＝ 真)

_启动窗口.总在最前 ＝ 真

.否则

_启动窗口.总在最前 ＝ 假

.如果结束

.子程序 _按钮1_被单击

写配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "延迟", 编辑框延迟.内容)

延迟时间 ＝ 到数值 (编辑框延迟.内容)

信息框 ("保存成功！", 0, )

.版本 2
.支持库 eAPI
.支持库 shellEx
.支持库 iext
.支持库 spec

.程序集 窗口程序集1
.程序集变量 是否有线程, 逻辑型
.程序集变量 线程句柄, 整数型
.程序集变量 标识开始, 整数型
.程序集变量 标识停止, 整数型
.程序集变量 延迟时间, 整数型
.程序集变量 picx, 整数型
.程序集变量 picy, 整数型
.程序集变量 标识导入, 整数型
.程序集变量 文件名, 文本型
.程序集变量 已保存密码, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 硬盘信息, 硬盘信息
.局部变量 寻找结果, 整数型

皮肤_加载 (#皮肤_中国风)
标识开始 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签热键.取窗口句柄 (), 0, #圆点键)
标识导入 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签热键.取窗口句柄 (), 0, #F8键)

编辑框延迟.内容 ＝ 读配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "延迟", )
延迟时间 ＝ 到数值 (编辑框延迟.内容)

picx ＝ 到数值 (读配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "picx", "690"))
picy ＝ 到数值 (读配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "picy", "500"))

打开临时数据库 ()


是否有线程 ＝ 假
置随机数种子 ()

取硬盘信息 (硬盘信息, )


.如果 (注册码_生成 (_启动窗口.标题, 硬盘信息.序列号) ＝ 注册码_读取 ())

.否则

    信息框 ("软件未注册!请先注册！", 0, )
    载入 (窗口1, , 真)



.如果结束
限时使用 ()
已保存密码 ＝ 读配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "jihuo", "welcome")

.判断开始 (加密文本 ＝ 已保存密码)

.默认
    载入 (窗口2, , 真)

.判断结束


.子程序 _超级列表框1_右键单击表项

弹出菜单 (右键菜单, , )


.子程序 _标记_被选择
.局部变量 索引, 整数型

索引 ＝ 超级列表框1.现行选中项
超级列表框1.置标题 (索引, 1, "here")
修改临时数据库 ()

.子程序 打开临时数据库
.局部变量 临时数据库, 文本型
.局部变量 订单号, 文本型
.局部变量 标记内容, 文本型
.局部变量 索引, 整数型

临时数据库 ＝ 取运行目录 () ＋ "/" ＋ "tel.edb"
打开 (临时数据库, , , , , , )
.计次循环首 (取记录数 (), )
    订单号 ＝ 读 (1)
    标记内容 ＝ 读 (2)
    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 订单号)
    超级列表框1.置标题 (索引, 1, 标记内容)
    跳过 ()
.计次循环尾 ()
关闭 ()
标签1.标题 ＝ "总个数：" ＋ 到文本 (超级列表框1.取表项数 ())


.子程序 修改临时数据库
.局部变量 临时数据库, 文本型
.局部变量 n, 整数型
.局部变量 订单号, 文本型
.局部变量 标记内容, 文本型

临时数据库 ＝ 取运行目录 () ＋ "/" ＋ "tel.edb"

打开 (临时数据库, , , , , , )
清空 ()
.计次循环首 (超级列表框1.取表项数 (), n)
    订单号 ＝ 超级列表框1.取标题 (n － 1, 0)
    标记内容 ＝ 超级列表框1.取标题 (n － 1, 1)
    加记录 (订单号, 标记内容)
.计次循环尾 ()
关闭 ()



.子程序 _标签热键_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.判断开始 (参数一 ＝ 标识开始)
    _下一个_被单击 ()

.判断 (参数一 ＝ 标识导入)
    快捷导入 ()

.默认

.判断结束


.子程序 _按钮导入TXT数据_被单击
.局部变量 n, 整数型
.局部变量 子文本, 文本型
.局部变量 索引, 整数型
.局部变量 标记内容, 文本型
.局部变量 文件号, 整数型
.局部变量 文件内容, 文本型
.局部变量 文本数组, 文本型, , "0"


.如果真 (通用对话框1.打开 ())
    文件名 ＝ 通用对话框1.文件名
    超级列表框1.全部删除 ()

    文件号 ＝ 打开文件 (文件名, , )
    文件内容 ＝ 读入文本 (文件号, )
    文本数组 ＝ 分割文本 (文件内容, #换行符, )


    .计次循环首 (取数组成员数 (文本数组), n)
        子文本 ＝ 文本数组 [n]
        子文本 ＝ 删首尾空 (子文本)

        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, 子文本)


    .计次循环尾 ()
    标签1.标题 ＝ "总个数：" ＋ 到文本 (超级列表框1.取表项数 ())
    修改临时数据库 ()
    关闭文件 (文件号)

.如果真结束


.子程序 快捷导入
.局部变量 n, 整数型
.局部变量 子文本, 文本型
.局部变量 索引, 整数型
.局部变量 标记内容, 文本型
.局部变量 文件号, 整数型
.局部变量 文件内容, 文本型
.局部变量 文本数组, 文本型, , "0"


超级列表框1.全部删除 ()

文件号 ＝ 打开文件 (文件名, , )
文件内容 ＝ 读入文本 (文件号, )
文本数组 ＝ 分割文本 (文件内容, #换行符, )


.计次循环首 (取数组成员数 (文本数组), n)
    子文本 ＝ 文本数组 [n]
    子文本 ＝ 删首尾空 (子文本)

    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 子文本)


.计次循环尾 ()
标签1.标题 ＝ "总个数：" ＋ 到文本 (超级列表框1.取表项数 ())
修改临时数据库 ()
关闭文件 (文件号)
超级列表框1.现行选中项 ＝ 0
超级列表框1.保证显示 (0)


.子程序 _复制_被选择
.局部变量 订单号, 文本型

订单号 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
置剪辑板文本 (订单号)

.子程序 _下一个_被单击

超级列表框1.现行选中项 ＝ 超级列表框1.现行选中项 ＋ 1
超级列表框1.保证显示 (超级列表框1.现行选中项)

置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 0))
延迟 (100)
模拟按键 (#键3, , )
延迟 (延迟时间)

模拟按键 (#Ctrl键, #V键, )
延迟 (100)
_标记_被选择 ()
模拟鼠标点击 (picx, picy, 0)
延迟 (100)

标签当前数.标题 ＝ "当前数：" ＋ 到文本 (超级列表框1.现行选中项)


.子程序 _选择框1_被单击

.如果 (选择框1.选中 ＝ 真)
    _启动窗口.总在最前 ＝ 真

.否则
    _启动窗口.总在最前 ＝ 假

.如果结束


.子程序 _按钮1_被单击

写配置项 (取运行目录 () ＋ "\" ＋ "kh.ini", "jr", "延迟", 编辑框延迟.内容)
延迟时间 ＝ 到数值 (编辑框延迟.内容)
信息框 ("保存成功！", 0, )

以上功能在python中也可以实现，以下是相关技术文章：

告别复制粘贴！这个Python脚本让文字录入效率翻倍---python实战项目https://blog.csdn.net/u013741272/article/details/155665743?spm=1011.2415.3001.5331