使用abap的GUI_FILE_LOAD_DIALOG

ABAP 的 `GUI_FILE_LOAD_DIALOG` 函数可以用于从本地文件系统加载文件。下面是一个示例程序，该程序使用 `GUI_FILE_LOAD_DIALOG` 函数加载一个 CSV 文件，并将其内容显示在 ALV 报表中：

REPORT ztest_gui_file_load_dialog.

* 定义内表
TYPES: BEGIN OF ty_data,
         field1 TYPE string,
         field2 TYPE string,
         field3 TYPE string,
       END OF ty_data.

DATA: it_data TYPE STANDARD TABLE OF ty_data,
      wa_data TYPE ty_data.

* 定义 ALV 表格相关变量
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv.

* 定义文件路径变量
DATA: lv_filename TYPE string.

* 调用 GUI_FILE_LOAD_DIALOG 函数选择文件
CALL FUNCTION 'GUI_FILE_LOAD_DIALOG'
  EXPORTING
    window_title = '请选择一个 CSV 文件'
  IMPORTING
    filename     = lv_filename
  EXCEPTIONS
    canceled_by_user = 1
    others           = 2.

IF sy-subrc <> 0.
  MESSAGE '选择文件时出现错误。' TYPE 'E'.
  EXIT.
ENDIF.

* 使用 GUI_UPLOAD 函数将文件内容读取到内表中
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    filename              = lv_filename
    filetype              = 'ASC'
    has_field_separator   = 'X'
    header_length         = 0
    read_by_line          = 'X'
    dat_mode              = 'X'
  TABLES
    data_tab              = it_data
  EXCEPTIONS
    file_open_error       = 1
    file_read_error       = 2
    no_batch              = 3
    gui_refuse_filetransfer = 4
    invalid_type          = 5
    no_authority          = 6
    unknown_error         = 7
    bad_data_format       = 8
    header_not_allowed    = 9
    separator_not_allowed = 10
    header_too_long       = 11
    unknown_dp_error      = 12
    access_denied         = 13
    dp_out_of_memory      = 14
    disk_full             = 15
    dp_timeout            = 16
    OTHERS                = 17.

IF sy-subrc <> 0.
  MESSAGE '读取文件时出现错误。' TYPE 'E'.
  EXIT.
ENDIF.

* 设置 ALV 表格字段目录
wa_fieldcat-fieldname = 'FIELD1'.
wa_fieldcat-ref_table = 'IT_DATA'.
APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-fieldname = 'FIELD2'.
wa_fieldcat-ref_table = 'IT_DATA'.
APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-fieldname = 'FIELD3'.
wa_fieldcat-ref_table = 'IT_DATA'.
APPEND wa_fieldcat TO it_fieldcat.

* 显示 ALV 报表
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program  = sy-repid
    is_layout           = VALUE #( grid_title = 'CSV 数据' )
  TABLES
    t_fieldcat          = it_fieldcat
    t_outtab            = it_data.

在这个示例程序中，我们首先调用 `GUI_FILE_LOAD_DIALOG` 函数选择一个 CSV 文件，并将其路径保存到 `lv_filename` 变量中。然后，我们使用 `GUI_UPLOAD` 函数将文件内容读取到内表 `it_data` 中。最后，我们使用 `REUSE_ALV_GRID_DISPLAY` 函数显示 ALV 报表，将内表 `it_data` 中的数据显示出来。

请注意，`GUI_FILE_LOAD_DIALOG` 和 `GUI_UPLOAD` 函数只能在 SAP GUI 中使用，不能在 Web 上运行。如果你需要从 Web 页面上传文件，你可以使用 SAP NetWeaver Gateway 或 SAP Cloud Platform ABAP Environment 等技术。