数字型转文本型，如何保留千位符.

  当然可以直接操作字符串，每隔三位加一个逗号进去，不过感觉有些麻烦了。今天正好遇到用户有这个需求，在网上搜了一下，找到一个简单的办法，经测试OK，简单实现代码如下：

 

data: v_c(20) type c,
      v_n type p DECIMALS 2.

v_n = 5422121.23.

write v_n to v_c.

write v_c.

 

原来只要采用Write方式赋值，就可以保留千位符，呵呵。不过，文本型的变量不能是string型的，只能是C型的，不然会报错。

 

手工的办法也不是没有，网上也找到了一个函数，没有测试，仅供参考：

 

FORM NUMTOSTR USING VALUE(ZNUM) CHANGING VALUE(ZSTR).
  DATA : ZCLEN TYPE I,
         N TYPE I,
         ZCSTR(20) TYPE C,
         ZCSTR2(20) TYPE C,
         ZCTEMP(3) TYPE C,
         ZFLAG(1) TYPE C VALUE '.',
         ZFLAG2 TYPE I VALUE 0,
         ZCDEC(20) TYPE C. "记录小数部分.
        
  ZSTR = ''.
  CHECK ZNUM <> 0.
  IF ZNUM <= -1000.
    ZFLAG2 = 1.
    ZNUM = ABS( ZNUM ).
  ENDIF.
  IF ZNUM >= 1000.
    ZCSTR = ZNUM.
    "压缩字符串，去除前面的空格。
    CONDENSE ZCSTR NO-GAPS.
    " 分离整数与小数，好单独处理整数。
    SPLIT ZCSTR AT ZFLAG INTO ZCSTR ZCDEC.
    ZCLEN = STRLEN( ZCSTR ).
    " 在循环中从右面在每三位的前面加上一个逗号。
    WHILE ZCLEN > 3.
      N = ZCLEN - 3.
      ZCTEMP = ZCSTR+N(3).
      IF NOT ZCSTR2 IS INITIAL.
        CONCATENATE ZCTEMP ZCSTR2 INTO ZCSTR2 SEPARATED BY ','.
      ELSE.
        ZCSTR2 = ZCTEMP.
      ENDIF.
      ZCLEN = ZCLEN - 3.
    ENDWHILE.
   
    " 将不剩下的不足三位数加到前面
    CONCATENATE ZCSTR+0(ZCLEN) ZCSTR2 INTO ZCSTR2 SEPARATED BY ','.
    IF ZFLAG2 = 1.
      CONCATENATE '-' ZCSTR2 INTO ZCSTR2.
    ENDIF.
    CLEAR ZCSTR.
   
    " 将处理过的整数与小数连接起来。
    CONCATENATE ZCSTR2 ZCDEC INTO ZCSTR SEPARATED BY ZFLAG.
   
    " 将值返回
    ZSTR = ZCSTR.
  ELSE.
    ZSTR = ZNUM.
  ENDIF.
ENDFORM.