태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.

'변환'에 해당되는 글 1건

  1. 2012.07.05 ABAP 한글 특정 자리수 만큼 자르는 펑션
ERP_Work/ABAP2012.07.05 16:07

유니코드 Byte 변환


FUNCTION YFRANK_CONV_HANGUL_LEN .
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(TEXT)
*"     VALUE(LEN) TYPE  I
*"  EXPORTING
*"     VALUE(OUT_TEXT)
*"     VALUE(OUT_LEN) TYPE  I
*"----------------------------------------------------------------------
  DATA : LV_TELEN TYPE I,
         LV_V_LEN TYPE I.

  CALL METHOD CL_ABAP_LIST_UTILITIES=>DYNAMIC_OUTPUT_LENGTH
    EXPORTING
      FIELD TEXT
    RECEIVING
      LEN   LV_TELEN.
  IF LV_TELEN > LEN.
    LV_TELEN LEN.
  ENDIF.

  OUT_LEN LV_TELEN / 2 .
  DO LEN TIMES.
    IF OUT_LEN >= LV_TELEN.
      EXIT.
    ENDIF.
    OUT_LEN OUT_LEN + 1.
    OUT_TEXT TEXT(OUT_LEN).
    CALL METHOD CL_ABAP_LIST_UTILITIES=>DYNAMIC_OUTPUT_LENGTH
      EXPORTING
        FIELD OUT_TEXT
      RECEIVING
        LEN   LV_V_LEN.
    IF LV_V_LEN >= LEN.
      IF LV_V_LEN > LEN.
        OUT_LEN OUT_LEN 1.
        OUT_TEXT TEXT(OUT_LEN).
      ENDIF.
      EXIT.
    ENDIF.
  ENDDO.

ENDFUNCTION.

Posted by 프랭크리

댓글을 달아 주세요