Progress 4GL实现不足4位数字补前导零至4位的技术问询

你的代码问题 #

你当前的代码逻辑顺序错误：当length(cdata) < 4时会优先执行第一个分支，后面的length < 3、length < 2分支永远不会被触发。比如输入"1"时，只会得到"01"，而不是预期的"0001"。

正确的实现方式 #

方法1：利用Progress 4GL格式化函数（推荐纯数值场景） #

如果数据是数值类型，或可安全转换为数值，直接用STRING函数指定格式即可自动补前导0：

define variable cdata as character no-undo.
define variable nData as integer no-undo.

nData = 183.
cdata = string(nData, "9999"). /* 输出 "0183" */

nData = 1.
cdata = string(nData, "9999"). /* 输出 "0001" */

nData = 12345.
cdata = string(nData, "9999"). /* 输出 "12345"（超过4位保持原样） */

方法2：通用字符处理（兼容特殊字符场景） #

如果数据是字符类型且需保留原字符格式，可计算需要补充的0的数量：

define variable cdata as character no-undo.
define variable padCount as integer no-undo.

cdata = "183".
padCount = max(0, 4 - length(cdata)).
if padCount > 0 then cdata = fill("0", padCount) + cdata.

/* 测试结果：
"183" → "0183"
"1" → "0001"
"12345" → "12345"
*/

表字段存储注意事项 #

• 若要保留前导0的格式，表字段必须定义为字符类型（比如CHAR(10)或足够长度的字符字段）——数值类型（INTEGER、DECIMAL等）仅存储数值本身，不会保留前导0格式。
• 存储时直接将处理后的cdata赋值给字符字段即可：

/* 假设表名为MyTable，字段名为FormattedData（字符类型） */
create MyTable.
assign MyTable.FormattedData = cdata.

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