CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_IMPORT

[com_2018]

Hello everyone,

I Call the method 'CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_IMPORT ' in my program, I want to get some data from clipboard from MS excel,then divide up the data into work area by key split at '#'.But sy-subrc = 4 when run to 'SPLIT .. AT..'.

The codes as following:

TYPES: BEGIN OF TY_OUTPUT,
       TEXT1(10),
       TEXT2(10),
       TEXT3(30),
       END OF TY_OUTPUT.
DATA: OUTPUT_TAB TYPE TY_OUTPUT OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF TY_DATA,
      TEXT(80) ,
      END OF TY_DATA.
DATA: DATA_TAB TYPE TY_DATA OCCURS 0 .
DATA: DATA_WA TYPE TY_DATA.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_IMPORT
  IMPORTING
    DATA                 = DATA_TAB
*      LENGTH               =
    EXCEPTIONS
    CNTL_ERROR           = 1
    ERROR_NO_GUI         = 2
    NOT_SUPPORTED_BY_GUI = 3
    OTHERS               = 4.
IF SY-SUBRC = 0.
  LOOP AT DATA_TAB INTO DATA_WA.
    SPLIT DATA_WA-TEXT AT '#' INTO
       OUTPUT_TAB-TEXT1
       OUTPUT_TAB-TEXT2
       OUTPUT_TAB-TEXT3.
 
    IF SY-SUBRC = 0 .
     APPEND OUTPUT_TAB.
     WRITE: / OUTPUT_TAB.
    ELSEIF SY-SUBRC = 4.
      WRITE: / 'Split error:', DATA_WA-TEXT.
    ENDIF.
  ENDLOOP.
ELSE.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Press CTRl+C, copy the followingdata to the clipboard in MS Excel :

ZT00101 AB001 ABC01

ZT00102 AB002 ABC02

ZT00103 AB003 ABC03

ZT00104 AB004 ABC04

ZT00105 AB005 ABC05

ZT00106 AB006 ABC06

ZT00107 AB007 ABC07

Error list after run the program:

Split error: ZT00101#AB001#ABC01

Split error: ZT00102#AB002#ABC02

Split error: ZT00103#AB003#ABC03

Split error: ZT00104#AB004#ABC04

Split error: ZT00105#AB005#ABC05

Split error: ZT00106#AB006#ABC06

Split error: ZT00107#AB007#ABC07

Why can not split the DATA_WA-TEXT?

Could you give me any idea?

Thanks and Regards,

Colin.

[Former Member]

hi Colin,

Check

http://www.sapdevelopment.co.uk/programs/custom/zclippretty.htm

Regards,

Santosh

[andreas_mann3]

hi,

try to translate # with :

DATA trhex(4) TYPE x VALUE '0020'.

TRANSLATE DATA_WA-TEXT USING trhex.

A.

[andreas_mann3]

Hi,

CORRECTION:

DATA trhex(4) TYPE x VALUE <b>'093B'</b>.

...
TRANSLATE DATA_WA-TEXT USING trhex.

SPLIT data_wa-text AT <b>';'</b> INTO...

A.

pls reward points, if this solves your problem

thank you!

[com_2018]

Hi Andreas Mann ,

Thank you very much for your idea!

The problem has alredy solved!

Best regards,

Colin.