1 *&---------------------------------------------------------------------*
 2 *&      Form  frm_get_path
 3 *&---------------------------------------------------------------------*
 4 *       获取文件所在目录
 5 *----------------------------------------------------------------------*
 6 *      -->IV_FULLPATH  文件全路径
 7 *      -->CV_PATH      文件所在目录
 8 *----------------------------------------------------------------------*
 9 FORM frm_get_path USING     iv_fullpath TYPE string
10                   CHANGING  cv_path     TYPE string.
11   DATA: lv_length       TYPE i,
12         lv_index        TYPE i,
13         lv_total_lines  TYPE i,
14         lt_split_table  TYPE TABLE OF string.
15
16   FIELD-SYMBOLS: <ls_split_table> LIKE LINE OF lt_split_table.
17
18 * 检查文件全路径参数是否为空
19   lv_length = strlen( iv_fullpath ) - 1.
20   CHECK lv_length GE 0.
21
22 * 检查文件全路径参数是否是文件目录格式
23   IF iv_fullpath+lv_length(*) = '\'.
24     cv_path = iv_fullpath.
25     EXIT.
26   ENDIF.
27
28 * 获取文件所在目录
29   SPLIT iv_fullpath AT '\' INTO TABLE lt_split_table.
30   DESCRIBE TABLE lt_split_table LINES lv_total_lines.
31   LOOP AT lt_split_table ASSIGNING <ls_split_table>.
32     lv_index = lv_index + 1.
33     IF lv_index = 1.
34       CONCATENATE <ls_split_table> '\' INTO cv_path.
35     ELSEIF lv_index = lv_total_lines.
36       CONTINUE.
37     ELSE.
38       CONCATENATE cv_path <ls_split_table> '\' INTO cv_path.
39     ENDIF.
40   ENDLOOP.
41
42 ENDFORM.                    "frm_get_path