파일의 경로를 입력하면, 그 파일명과 디렉토리를
딱 나누어줍니다. 괜찮죠?
REPORT YTEST .
DATA: FULLNAME LIKE RLGRAP-FILENAME,
FILENAME LIKE RLGRAP-FILENAME,
FILEPATH LIKE RLGRAP-FILENAME.
FULLNAME = 'C:temptest.txt'.
CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'
EXPORTING
FULL_NAME = FULLNAME
IMPORTING
STRIPPED_NAME = FILENAME
FILE_PATH = FILEPATH.
WRITE: / FILENAME,
FILEPATH.
댓글 3
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
62 | 반올림 | 꿀단지 | 2011.10.11 | 4942 |
61 | 문자열의 길이에 맞게 앞의 공백을 0으로 채워주는 함수 | 꿀단지 | 2011.10.11 | 5660 |
60 | Noraml Sales Order를 변경하거나 지웁니다. | 꿀단지 | 2011.10.11 | 4075 |
59 | Conversion routine | 꿀단지 | 2011.10.11 | 7071 |
58 | 여러가지 Order를 만들어줍니다. | 꿀단지 | 2011.10.11 | 4456 |
» | 파일의 경로를 입력하면, 그 파일명과 디렉토리를 딱 나누어줍니다 [3] | 꿀단지 | 2011.10.11 | 5055 |
56 | 사원의 계획근무시간을 알려주는 펑션입니다. | 꿀단지 | 2011.10.11 | 3969 |
55 | 앞에 위치하는 0(ZERO)없애는 평션 [12] | ks | 2011.03.16 | 6542 |
54 | OSS NOTE 찾는 Function [2] | magicsy69 | 2010.11.24 | 5942 |
53 | [Function] 메세지 박스를 뛰워보자 [10] | 양키 | 2010.09.29 | 7954 |
52 | [Function]오늘은 몇요일일까요? [4] | 양키 | 2010.09.29 | 8455 |
51 | [부가세] Multi key 변환 펑션 [6] | 미소 | 2010.07.26 | 7872 |
50 | 이메일로 파일 보내는 함수 [3] | 열공아밥 | 2009.12.20 | 9286 |
49 | call transaction 함수로 새로운 세션생성하기 [9] | 아밥 잭 | 2009.10.28 | 7317 |
48 | 프로그램실행시간 구하기 [16] | 쥬앙 | 2009.04.06 | 9384 |
47 | 문자열에서 특정문자값을 기준으로 첫문자를 대문자로 변경 [8] | SAYA | 2009.03.09 | 6281 |
46 | Online프로그램에서 조회조건 다중선택 관련 [6] | COMAN | 2008.11.20 | 6371 |
45 | 암호화Function [9] | Delight | 2008.07.07 | 7060 |
44 | RFC [18] | 아밥퍼 | 2008.06.07 | 5991 |
43 | 암호화 function [14] | magicsy69 | 2008.06.03 | 7402 |
찾아보니 이런 함수도 있군요...
FORM split_filename USING pv_filepath CHANGING pv_extension pv_filename.
DATA : lv_filepath TYPE dsvasdocid,
lv_directory TYPE dsvasdocid,
lv_extension TYPE dsvasdocid,
lv_filename TYPE dsvasdocid.
CLEAR : pv_extension, pv_filename,
lv_filepath, lv_directory, lv_extension, lv_filename.
CHECK pv_filepath NE space. "CHECK 조건이 True면 프로세스 진행 (False면 진행되지 않음)
lv_filepath = pv_filepath.
CALL FUNCTION 'DSVAS_DOC_FILENAME_SPLIT'
EXPORTING
pf_docid = lv_filepath
IMPORTING
pf_directory = lv_directory
pf_extension = lv_extension
pf_filename = lv_filename.
IF sy-subrc EQ 0.
"TRANSLATE 문자열 TO UPPER CASE : 대문자로 변환
"TRANSLATE 문자열 TO LOWER CASE : 소문자로 변환
TRANSLATE lv_extension TO UPPER CASE. "대문자로 변환
pv_extension = lv_extension.
pv_filename = lv_filename.
ENDIF.
ENDFORM. " SPLIT_FILENAME