从路径中拆分出文件名和后缀

后缀"/>

从路径中拆分出文件名和后缀

  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.