캐릭터 1자리를 아스키코드값으로 변환해주는 함수가 있나요?
아무리 찾아바도 보이질 않네요 ㅠㅠ
댓글 4
-
버미!
2010.07.08 21:23
-
부엉이
2010.07.08 22:30
버미님 사랑합니다 ♡ -
맑은하늘
2010.07.08 23:28
버미님이 말씀하신것은 10진수에 대한 문자를 보여주는 거구요
반대로는 cl_abap_conv_out_ce=>uccpi 일건데요.
원하시는 것은 캐릭터 1자리에 대한 ascii 코드값이 잖아요. 10진수값, 16진수값, 2진수값....
10진수만 원하시면 cl_abap_conv_out_ce를 쓰시면 될겁니다.
16진수나 2진수를 원하시면 아래 코드를 참고해서 펑션을 만드세요. ^^;;
스탠다드 펑션은 잘 모르겠네요.^^;
확장 Ascii 코드는 생각좀 더 해봐야겠습니다.
DATA CSTRING TYPE CHAR26 VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
DATA BIN TYPE I.
DATA BIN_CHAR TYPE C LENGTH 16.
DATA POS TYPE I.
DATA DEC TYPE I.
DATA EXP TYPE I.
FIELD-SYMBOLS : <LFS_X> TYPE X,
<LFS_I> TYPE I.
DO 26 TIMES.
POS = SY-INDEX - 1.
WRITE :/ CSTRING+POS(1), ':'.
*- Hexa
WRITE '16진수 =>'.
ASSIGN CSTRING+POS(1) TO <LFS_X> CASTING.
WRITE <LFS_X>(1).
*- Binary
WRITE '이진수 =>'.
DO 8 TIMES.
GET BIT SY-INDEX OF <LFS_X> INTO BIN.
POS = SY-INDEX - 1.
BIN_CHAR+POS(1) = BIN.
ENDDO.
WRITE BIN_CHAR.
ENDDO.
-
부엉이
2010.07.09 00:12
하늘님도 감사합니다!!!
DATA ld_char TYPE SYCHAR02.
CALL METHOD cl_abap_conv_in_ce=>uccpi
EXPORTING
uccp = '65' " decimal value
RECEIVING
char = ld_char.
WRITE: / 'Deccimal 0065: ', ld_char(1).