【原创】ABAP根据文件路径获取文件所在目录

*&---------------------------------------------------------------------*
*&      Form  frm_get_path
*&---------------------------------------------------------------------*
*       获取文件所在目录
*----------------------------------------------------------------------*
*      -->IV_FULLPATH  文件全路径
*      -->CV_PATH      文件所在目录
*----------------------------------------------------------------------*
FORM frm_get_path USING     iv_fullpath TYPE string
CHANGING  cv_path     TYPE string.
DATA: lv_length       TYPE i,
lv_index        TYPE i,
lv_total_lines  TYPE i,
lt_split_table  TYPE TABLE OF string.

FIELD-SYMBOLS: <ls_split_table> LIKE LINE OF lt_split_table.

* 检查文件全路径参数是否为空
lv_length = strlen( iv_fullpath ) - 1.
CHECK lv_length GE 0.

* 检查文件全路径参数是否是文件目录格式
IF iv_fullpath+lv_length(*) = '\'.
cv_path = iv_fullpath.
EXIT.
ENDIF.

* 获取文件所在目录
SPLIT iv_fullpath AT '\' INTO TABLE lt_split_table.
DESCRIBE TABLE lt_split_table LINES lv_total_lines.
LOOP AT lt_split_table ASSIGNING <ls_split_table>.
lv_index = lv_index + 1.
IF lv_index = 1.
CONCATENATE <ls_split_table> '\' INTO cv_path.
ELSEIF lv_index = lv_total_lines.
CONTINUE.
ELSE.
CONCATENATE cv_path <ls_split_table> '\' INTO cv_path.
ENDIF.
ENDLOOP.

ENDFORM.                    "frm_get_path