topic Unsigned Unicode problem in Application Development and Automation Discussions

Unsigned Unicode problem

chau1995 — Fri, 09 Aug 2019 20:40:06 GMT

Hi all,

I have a problem with unicode character,

Assume that I have a string: 'Tôi Dễ Thương'

I want to convert this string to: 'Toi De Thuong'

Could anybody has a function module or algorithm which cover to all case to resolve this problem.

Thanks so much

Re: Unsigned Unicode problem

Sandra_Rossi — Sat, 10 Aug 2019 08:12:53 GMT

There is the function module SCP_REPLACE_STRANGE_CHARS. Maybe not all characters are taken into account or not as you wish, but you may copy it and adapt it (and maybe simplify it).

Re: Unsigned Unicode problem

chau1995 — Sat, 10 Aug 2019 19:23:06 GMT

In case i want to remove vietnamese accents, If i use this fm, some case was not good, i mean it were disappeared character

Re: Unsigned Unicode problem

Sandra_Rossi — Sat, 10 Aug 2019 22:03:32 GMT

Please use the COMMENT button for comments, questions, adding details, etc., ANSWER is only to propose a solution, dixit SAP text at the right of the answer area: "Before answering You should only submit an answer when you are proposing a solution to the poster's problem"

Re: Unsigned Unicode problem

Sandra_Rossi — Sat, 10 Aug 2019 23:09:04 GMT

A simple solution is to list all possible characters and use TRANSLATE (or translate for ABAP 7.40 and above).

You may list all possible characters by looking at table TCPUCATTR, all characters associated to "A" can be found by looking for * CAPITAL LETTER A *, "a" by looking for * SMALL LETTER A *, etc.

This code lists the translation letters for TRANSLATE:

DATA c1 TYPE c LENGTH 1.
DATA x2 TYPE x LENGTH 2.
DATA(upper_lower) = sy-abcde && to_lower( sy-abcde ).
SELECT * FROM tcpucattr
    WHERE charid LIKE '00%'
      AND attrkind = 'N'
      AND ( attr LIKE '%SMALL LETTER%' OR attr LIKE '%CAPITAL LETTER%' )
    INTO TABLE @DATA(tcpucattr_s).
DO 52 TIMES.
  DATA(letter) = substring( val = upper_lower off = sy-index - 1 len = 1 ).
  IF sy-index <= 26.
    DATA(pattern_attr) = |* CAPITAL LETTER { to_upper( letter ) } *|.
  ELSE.
    pattern_attr = |* SMALL LETTER { to_upper( letter ) } *|.
  ENDIF.
  DATA(letters) = ``.
  WRITE : / letter, ':'.
  LOOP AT tcpucattr_s ASSIGNING FIELD-SYMBOL(<tcpucattr>) WHERE attr CP pattern_attr.
    x2 = <tcpucattr>-charid+2.
    c1 = cl_abap_conv_in_ce=>uccp( x2 ).
    IF c1 <> letter.
      WRITE : c1 NO-GAP, letter NO-GAP.
    ENDIF.
  ENDLOOP.
ENDDO.

PS: characters of type "combining accent" can be simply removed (all with text "COMBINING" in TCPUCATTR).