도움이 되었으면 좋겠습니다.
소스 긁어서 통채로 올립니다.
*&---------------------------------------------------------------------*
*& Form compress_2byte_string
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_L_TLINE_ST_IT_TDLINE text
*----------------------------------------------------------------------*
FORM compress_2byte_string CHANGING value(c_string).
" DATA : l_count TYPE i,"
" l_number TYPE i,"
l_no_space TYPE i.
CHECK NOT c_string IS INITIAL.
DO.
sy-index = sy-index - 1.
IF c_string+sy-index(1) EQ space.
l_no_space = l_no_space + 1.
ELSE.
EXIT.
ENDIF.
ENDDO.
CHECK l_no_space NE 0.
DO l_no_space TIMES.
REPLACE space WITH '*' INTO c_string.
ENDDO.
DO.
sy-index = sy-index - 1.
IF c_string+sy-index(1) EQ '*'.
l_count = l_count + 1.
ELSE.
EXIT.
ENDIF.
ENDDO.
IF l_count GT 2.
l_number = l_count DIV 2.
DO l_number TIMES.
REPLACE '*' WITH space INTO c_string.
ENDDO.
CONDENSE c_string.
DO.
REPLACE '*' WITH space INTO c_string.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
ELSE.
DO.
REPLACE '*' WITH space INTO c_string.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDDO.
ENDIF.
"ENDFORM. "" compress_2byte_string
<< 발췌는 역시나 http://www.storyroom.net >>
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
407 | 팝업창이나 서브스크린 디버깅을 쉽게 할 수 있어요 [17] | 김창훈 | 2007.08.08 | 5077 |
406 | HELP를 WEB으로 접속하려면,,, 이렇게 하세요 [8] | 김창훈 | 2007.08.08 | 3852 |
405 | 간단한 ALV Report를 생성해주는 사이트 [2] | 홍성현 | 2007.08.09 | 4021 |
404 | SAP에서 바코드 인쇄하기 [1] | 홍성현 | 2007.08.09 | 5305 |
403 | Python과 SAP RFC 통신 [3] | 홍성현 | 2007.08.09 | 5813 |
402 | 사용자별 Upload & Download 기본값 [1] | 홍성현 | 2007.08.09 | 3665 |
401 | ABAP에서 웹브라우져 호출 | 홍성현 | 2007.08.09 | 8340 |
400 | SAP Icon 출력 [3] | 홍성현 | 2007.08.09 | 6590 |
399 | ABAP System Fields | 홍성현 | 2007.08.09 | 3931 |
398 | 4.6에서 ALV 필드 변경 안될때 버퍼 지우는 방법 | 신종철 | 2007.08.10 | 4783 |
397 | ALV 중간 집계 하기 [3] | 신종철 | 2007.08.10 | 4818 |
396 | 텍스트반영시(자재명,저장위치명 기타등등) 속도개선 방법 [6] | 김창훈 | 2007.08.14 | 6020 |
395 | 속도개선하기....INDEX를 이렇게도 쓰네용~~ [9] | 김창훈 | 2007.08.14 | 5419 |
394 | AT 구문에 대한 설명입니다. [6] | 김창훈 | 2007.08.16 | 5773 |
393 | 플랜트로 회사코드와 기준통화 찾기 [8] | 김창훈 | 2007.08.16 | 5640 |
392 | 엑셀 65000 라인초과시 사용 유틸 [5] | GG | 2007.08.19 | 5332 |
391 | ABAP 문법 1st [13] | 아일락 | 2007.08.20 | 4592 |
390 | ABAP 문법 2nd [8] | 아일락 | 2007.08.20 | 3952 |
389 | 조회조건 동적으로 보이기 [5] | 신종철™ | 2007.08.20 | 4816 |
» | 스페이스를 2자리로 먹을때 1자리로 먹게 바꾸기 [1] | 신종철™ | 2007.08.20 | 3995 |
한글을 2자리로 먹어야하나 1자리로 먹어서 문제네요 ㅡ.ㅡ;;