本文介绍一种基于正则表达式的 Python 方法，可自动将符合模式的 COBOL MODIFY MAP CURSOR 语句解析为标准 JSON 对象，支持任意数量的字段及带下标的字段名（如 NBS-DS-02(2)），具备良好的扩展性与健壮性。
本文介绍一种基于正则表达式的 python 方法，可自动将符合模式的 cobol `modify map cursor` 语句解析为标准 json 对象，支持任意数量的字段及带下标的字段名（如 `nbs-ds-02(2)`），具备良好的扩展性与健壮性。
在企业级系统迁移或 COBOL 系统现代化场景中，常需将遗留 COBOL 语句（如屏幕映射控制指令）转换为现代数据格式（如 JSON）以供前端、API 或配置引擎消费。针对典型的 MODIFY MAP CURSOR AT ... FOR FIELD (...) 类语句，其结构高度规律但字段数量可变，手动解析易出错且难以维护。为此，推荐采用正则驱动的动态解析方案，兼顾准确性与灵活性。
以下是一个生产就绪的 Python 函数实现：
import re
import json
def cobol_to_json(statement: str) -> str:
"""
将 COBOL MODIFY MAP CURSOR 语句解析为 JSON 字符串。
支持动态字段列表及带括号下标的字段名（如 NBS-DS-02(2)）。
Args:
statement: 原始 COBOL 语句字符串
Returns:
格式化 JSON 字符串；若匹配失败，返回 "invalid statement"
"""
# 正则说明：
# r"MODIFY MAP CURSOR AT ([\w-]+\(\d+\))" → 捕获 cursor（必须含括号数字）
# r"FOR FIELD \(([\w-]+(?:\(\d+\))?(?:, [\w-]+(?:\(\d+\))?)*)\)" →
# 捕获 field 列表：支持多个字段，每个字段可选带 (n)，用逗号+空格分隔
pattern = r"MODIFY MAP CURSOR AT ([\w-]+\(\d+\)) FOR FIELD \(([\w-]+(?:\(\d+\))?(?:, [\w-]+(?:\(\d+\))?)*)\)"
match = re.match(pattern, statement.strip())
if not match:
return "invalid statement"
cursor = match.group(1)
fields_str = match.group(2)
# 安全分割：按逗号+空格切分，再去除首尾空白
fields = [field.strip() for field in fields_str.split(',')]
result = {
"cursor": cursor,
"for": fields
}
return json.dumps(result, indent=4)
使用示例如下：
# 示例输入（字段数量、下标形式均可变化） stmt = "MODIFY MAP CURSOR AT NBS-DS-01(1) FOR FIELD (NBS-DS-01, NBS-DS-02(2), NBS-DS-03(3))" print(cobol_to_json(stmt))
输出结果为标准、可读性强的 JSON：
dmap-jsapi-skill
下载
DMap GL地图JSAPI（dmapgl）开发指南。用于编写、审查、调试 DMap 地图 API 代码，涵盖地图初始化、覆盖物渲染、图层管理、事件处理、控件交互等任务。当用户提及 dmap、dmapgl、jsapi‑gl 或相关地图开发需求时自动触发。
{
"cursor": "NBS-DS-01(1)",
"for": [
"NBS-DS-01",
"NBS-DS-02(2)",
"NBS-DS-03(3)"
]
}
✅ 关键特性说明：
- 动态适配：正则支持任意数量字段（≥1），无需修改代码即可处理 FOR FIELD (A, B, C, D(5), E(10))；
- 下标兼容：正确识别 NAME(n) 格式（含括号与数字），同时兼容无下标字段（如 NBS-DS-01）；
- 健壮容错：对空格、换行等常见格式扰动具有鲁棒性（.strip() 预处理）；
- 结构清晰：输出严格遵循 { "cursor": "...", "for": [...] } 模式，便于下游系统统一消费。
⚠️ 注意事项：
- 当前正则假设字段名仅含字母、数字、连字符（[\w-]），若实际 COBOL 中存在其他符号（如点号、下划线），需调整字符类（如改为 [\w\-\.]）；
- 若语句存在嵌套括号（如 FIELD (A(B), C)），本方案不适用，需升级为语法分析器（如 pyparsing）；
- 生产环境建议增加日志记录与异常捕获，并对 json.dumps() 的编码错误做兜底处理。
该方案轻量、高效、易于集成，是 COBOL 数据结构向现代 API 迁移过程中的实用桥梁。
