冰峰雪晴

怎么把数字转换为开头补0的字符串？

时间：2016-07-27 ┊ 阅读：6,113 次 ┊ 标签: 开发 , 编程 , 设计

好久不做这些数字字符串来回变，生疏了。
有时候被一个小问题困扰，不如动手来一下试试就知道了。
方法没有最好，只有更好，仅供参考！
rpg代码如下：
d num s 14p 2
d chr s 15

注：定义时，字符串长度为数字length + 1， 因为需要把小数点包含进去。

c                   z-add     12.34         num
c* 如图1.
c                   eval      chr = %editc(num:'3')
c* 如图2.这时结果是：CHR = '          12.34'
c                   eval      chr = %editc(num:'X')
c* 如图3.这时结果是：CHR = '00000000001234 '
c                   eval      chr = %xlate(' ':'0':%editc(num:'3'))
c* 如图4.这时结果是：CHR = '000000000012.34'
c                   move      *on           *inlr                  
C                   RETURN

图5为代码全览。

图1：

图2：

图3：

图4：

图5：

本文固定链接: https://www.amkevin.com/118.html｜冰峰雪晴｜转载请注明出处,谢谢