后缀"/>
从路径中拆分出文件名和后缀
call function 'SPLIT_FILENAME'
"函数:拆分文件绝对路径
exporting
long_filename
= l_local_file_path
"文件绝对路径
C://DOC/TEST.TXT
importing
pure_filename
= l_pure_filename
"文件名称(不带后缀) C://DOC/TEST
pure_extension = l_pure_extension.
"文件后缀TXT
或者:
FORM getfiletype USING filename TYPE localfile filetype TYPE c.
DATA: len TYPE i,
pos TYPE i,
char TYPE c.
len = STRLEN( filename ).
pos = len.
DO len TIMES.
pos = pos - 1.
char = filename+pos(1).
IF char ='.'.
len = len - pos.
pos = pos + 1.
filetype = filename+pos(len).
TRANSLATE filetype TO UPPER CASE.
EXIT.
ENDIF.
ENDDO.
ENDFORM.
发布评论