CONCATENATE 怎么以回车换行为间隔符？

johnyqli

最初由 laziows 发布
[B]

我用unicode环境,不支持X类型. [/B]

You can try this:

  CONSTANTS:
      con_cret TYPE c VALUE cl_abap_char_utilities=>cr_lf.


Use con_cret as separator.

merlinme

参考以下这个：CL_ABAP_CHAR_UTILITIES
Write语句不好弄。。。。

qiling023

CONSTANTS:
con_cret TYPE c VALUE cl_abap_char_utilities=>cr_lf.

DATA : LMEMO(100) TYPE C VALUE 'A'.

CONCATENATE LMEMO 'B'  INTO LMEMO  SEPARATED BY con_cret.
WRITE :/ LMEMO.
"RESULT: A#B
为什么会是#号
我希望是:
A
B

yekong12

分开写

Pirate-Chang

CL_ABAP_CHAR_UTILITIES也不能完成此功能

shenzhen_sap

data:    IT_LINES  TYPE  TLINE     OCCURS 0 WITH HEADER LINE.
DATA:
    P_TDNAME       LIKE  THEAD-TDNAME,
    P_TDOBJECT     LIKE  THEAD-TDOBJECT.

        P_TDOBJECT = 'MATERIAL'.
        P_TDNAME = 'MAT-001'.
        CLEAR: IT_LINES[], IT_LINES.
        PERFORM FMREAD_TEXT TABLES IT_LINES USING P_TDOBJECT 'BEST' P_TDNAME.  " BEST 物料採購內文

        LOOP AT IT_LINES.
          WRITE: / IT_LINES-TDLINE.
          CLEAR IT_LINES.
        ENDLOOP.


FORM FMREAD_TEXT
  TABLES PT_LINES
  USING P1       LIKE THEAD-TDOBJECT
        P2       LIKE THEAD-TDID
        P3       LIKE THEAD-TDNAME.

  CLEAR: PT_LINES.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      CLIENT                        = SY-MANDT
      OBJECT                        = P1
      ID                            = P2
      NAME                          = P3
      LANGUAGE                      = SY-LANGU
*     ARCHIVE_HANDLE                = 0
*     LOCAL_CAT                     = ' '
   TABLES
     LINES                         = PT_LINES
   EXCEPTIONS
     ID                            = 1
     LANGUAGE                      = 2
     NAME                          = 3
     NOT_FOUND                     = 4
     OBJECT                        = 5
     REFERENCE_CHECK               = 6
     WRONG_ACCESS_TO_ARCHIVE       = 7
     OTHERS                        = 8.

ENDFORM.                    "fmread_text

qiling023

多谢shenzhen_sap了，但我如果在SMARTFORMS中用内文的话应该先CONCATENATE，然后再输出，可是这样的话就不能保持内文的原样了！明明有几行输出就变一行了...
有没有更好的办法?

ryq0000

直接write:/不就行了