【ABAP妙用】复制ALV之负号提前

场景：

用户一般Ctrl+C复制ALV数据到Excel处理，如果有负数的数值，负号在数值的后面，Excel不认识，要费劲巴拉的一个个改正，苦不堪言！

本程序功能：

在ALV复制数据后，直接更改剪贴板里面的数据，把负号提到前面，然后直接在Excel粘贴就可以了。如果有逗号作为千分位符，也一并去掉。

程序逻辑：

获取剪贴板数据后，根据制表符分割字段，如果字段包含

0123456789,.- 之外的字符，说明不是数值，跳过；否则，判断最后的一个字符是不是负号“-”，如果不是，跳过；如果是负号，则把这个负号挪到数值前面，同时把里面的千分位符去掉，例如：23,345.58- 变成 -23345.58。依次处理所有行，处理完毕把处理过的数据再粘贴到剪贴板，就可以直接在Excel粘贴了。

爱心提示：

把事务码放到收藏夹里面，用户只要双击一下就OK了。

比如复制了这样的数据：

使用前：

使用后：

源代码如下：

REPORT ZFRONT_SIGN NO STANDARD PAGE HEADING.DATA : LT_CLIP TYPE TABLE OF CHAR4000 WITH HEADER LINE,LT_OUT TYPE TABLE OF CHAR4000 WITH HEADER LINE,LT_FLDS TYPE TABLE OF STRING WITH HEADER LINE,LEN TYPE I,FLAG.START-OF-SELECTION.CALL METHOD CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_IMPORTIMPORTINGDATA = LT_CLIP[]EXCEPTIONSCNTL_ERROR = 1ERROR_NO_GUI = 2NOT_SUPPORTED_BY_GUI = 3OTHERS = 4.IF LT_CLIP[] IS INITIAL.MESSAGE S000(OO) WITH 'No data' DISPLAY LIKE 'E'.RETURN.ENDIF.LOOP AT LT_CLIP.CLEAR : LT_FLDS[],LT_OUT.SPLIT LT_CLIP AT %_HORIZONTAL_TAB INTO TABLE LT_FLDS.LEN = STRLEN( LT_CLIP ) - 1.IF LEN > 0 AND LT_CLIP+LEN(1) = %_HORIZONTAL_TAB.APPEND INITIAL LINE TO LT_FLDS.ENDIF.LOOP AT LT_FLDS.LEN = STRLEN( LT_FLDS ) - 1.IF LEN > 0 AND LT_FLDS CO ' 0123456789,.-' AND LT_FLDS+LEN(1) = '-'.TRANSLATE LT_FLDS USING '- '.TRANSLATE LT_FLDS USING ', '.CONCATENATE '-' LT_FLDS INTO LT_FLDS.CONDENSE LT_FLDS NO-GAPS.FLAG = 'X'.ENDIF.CONCATENATE LT_OUT %_HORIZONTAL_TAB LT_FLDS INTO LT_OUT.ENDLOOP.SHIFT LT_OUT.APPEND LT_OUT.ENDLOOP.IF FLAG = 'X'.CALL FUNCTION 'CLPB_EXPORT'TABLESDATA_TAB = LT_OUTEXCEPTIONSCLPB_ERROR = 1OTHERS = 2.IF SY-SUBRC = 0.MESSAGE S000(OO) WITH 'Success'.ELSE.MESSAGE S000(OO) WITH 'Error' DISPLAY LIKE 'E'.ENDIF.ELSE.MESSAGE S000(OO) WITH 'No Data'.ENDIF.

 

总结

以上是生活随笔为你收集整理的【ABAP妙用】复制ALV之负号提前的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。