上传txt文件

*&---------------------------------------------------------------------*

*& Report ZST_UPLOAD

*&---------------------------------------------------------------------*

*&

*&---------------------------------------------------------------------*

REPORT ZST_UPLOAD.

DATAFILENAME TYPE STRING VALUE 'c:bathinput.TXT'.

TYPESBEGIN OF ITAB,

       F(20),

       END OF ITAB.

DATADATA_TAB TYPE STANDARD TABLE OF ITAB.

DATAWA_TAB TYPE ITAB.

DATAFILE_FILTER TYPE STRING,

RC TYPE I.

DATAFILE_TABLE TYPE FILETABLE.

DATAWA_FILE_TABLE TYPE LINE OF FILETABLE.

FILE_FILTER 'All Files (*.*)|*.TXT'.

 

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

  EXPORTING

    WINDOW_TITLE            'WINDOW_TITLE'

    DEFAULT_EXTENSION       '*.TXT'

    DEFAULT_FILENAME        'BatchInput.TXT'

    FILE_FILTER             FILE_FILTER

    INITIAL_DIRECTORY       =  'c:\'

    MULTISELECTION          'X'

  CHANGING

    FILE_TABLE              =  FILE_TABLE

    RC                      RC

 

        .

LOOP AT FILE_TABLE INTO WA_FILE_TABLE.

  FILENAME WA_FILE_TABLE-FILENAME.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_UPLOAD

    EXPORTING

      FILENAME                FILENAME

      FILETYPE                'DAT'

      DAT_MODE                'X'

    CHANGING

      DATA_TAB                =  DATA_TAB .

  IF SY-SUBRC <> 0.

    WRITE:'failure'.

  ELSE.

    LOOP AT DATA_TAB INTO WA_TAB.

      WRITE:/ WA_TAB-F.

    ENDLOOP.

  ENDIF.

ENDLOOP.

批导

[PP]批量投料

2022-11-21 16:39:26

Form打印

[Smart] SMARTFORM中Global Definitions和Program Lines使用

2022-11-21 16:51:59

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索