ABAP upload file(*.txt *.csv *.xls)

转自:http://blog.csdn.net/jy00873757/article/details/8534492

在SAP我们经常会用到*.txt, *.csv, *.xls三种文件格式

*.TXT

1. 一般用GUI_UPLOAD来处理, 请看下面的例子:

  1. TYPES: BEGIN OF ty_luke,
  2. key1 TYPE zluke-key1,
  3. year1 TYPE zluke-year1,
  4. month1 TYPE zluke-month1,
  5. test TYPE zluke-test,
  6. END OF ty_luke.
  7. DATA: lw_luke TYPE ty_luke,
  8. lt_luke TYPE STANDARD TABLE OF ty_luke.
  9. DATA: lv_file TYPE string VALUE 'D:\ZZERO2.TXT'.
  10. CALL FUNCTION 'GUI_UPLOAD'
  11. EXPORTING
  12. filename            = lv_file
  13. filetype            = 'ASC'
  14. has_field_separator = 'X'
  15. TABLES
  16. data_tab            = lt_luke
  17. EXCEPTIONS
  18. file_open_error     = 1
  19. file_read_error     = 2
  20. OTHERS              = 3.
  21. IF sy-subrc <> 0.
  22. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  23. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  24. ENDIF.
  25. BREAK-POINT ID z_zero_test.

2. 这是upload的文件

ABAP upload file(*.txt  *.csv  *.xls)

3. 读取文件的结果

ABAP upload file(*.txt  *.csv  *.xls)

*CSV

1. 首先CSV是不能处理中文的, 请看下面截图:

ABAP upload file(*.txt  *.csv  *.xls)

当我保存这个文件后再打开, 字已经变了

ABAP upload file(*.txt  *.csv  *.xls)

2. 常用FM: KCD_CSV_FILE_TO_INTERN_CONVERT

  1. TYPES truxs_t_text_data(4096) TYPE c OCCURS 0.
  2. DATA: lv_file TYPE rlgrap-filename VALUE 'D:\UPLOAD.CSV'.
  3. TYPES: BEGIN OF kcde_intern_struc.
  4. INCLUDE STRUCTURE  kcde_cells.
  5. *        row   type kcde_row_col,
  6. *        col   type kcde_row_col,
  7. *        value type kcde_intern_value,
  8. TYPES: END OF kcde_intern_struc.
  9. TYPES: BEGIN OF ty_file,
  10. zfld1(4) TYPE c,
  11. zfld2(5) TYPE c,
  12. zfld3(6) TYPE c,
  13. END OF ty_file.
  14. DATA:lv_raw TYPE truxs_t_text_data.
  15. DATA: lt_file TYPE STANDARD TABLE OF ty_file,
  16. ls_file TYPE ty_file.
  17. DATA: lt_temp TYPE STANDARD TABLE OF kcde_intern_struc,
  18. ls_temp TYPE kcde_intern_struc.
  19. FIELD-SYMBOLS: <fs_file>.
  20. DATA: lv_index TYPE i.
  21. CALL FUNCTION 'KCD_CSV_FILE_TO_INTERN_CONVERT'
  22. EXPORTING
  23. i_filename      = lv_file
  24. i_separator     = ','
  25. TABLES
  26. e_intern        = lt_temp
  27. EXCEPTIONS
  28. upload_csv      = 1
  29. upload_filetype = 2
  30. OTHERS          = 3.
  31. IF sy-subrc = 0.
  32. CLEAR: ls_temp, ls_file.
  33. LOOP AT lt_temp INTO ls_temp.
  34. CLEAR: lv_index.
  35. lv_index = ls_temp-col.
  36. ASSIGN COMPONENT lv_index OF STRUCTURE ls_file TO <fs_file>.
  37. IF sy-subrc = 0.
  38. <fs_file> = ls_temp-value.
  39. ENDIF.
  40. AT END OF row.
  41. APPEND ls_file TO lt_file.
  42. CLEAR ls_file.
  43. ENDAT.
  44. CLEAR ls_temp.
  45. ENDLOOP.
  46. ENDIF.
  47. BREAK-POINT.

3. Upload的文件

ABAP upload file(*.txt  *.csv  *.xls)

4. 读取文件的结果:

ABAP upload file(*.txt  *.csv  *.xls)

5. 加上我后面那段逻辑处理, 就能得到最后的结果

ABAP upload file(*.txt  *.csv  *.xls)

6. 注意: 这个FM不能处理",

把文件改成如下图所示:

ABAP upload file(*.txt  *.csv  *.xls)

再运行程序, 程序就会dump, 想知道为什么, 自己debug一下吧

*.XLS

1. 常用FM: TEXT_CONVERT_XLS_TO_SAP

  1. TYPE-POOLS: truxs.
  2. DATA: lv_file TYPE rlgrap-filename VALUE 'D:\ZZERO3.XLS'.
  3. TYPES: BEGIN OF ty_data,
  4. key(3)   TYPE c,
  5. year(4)  TYPE c,
  6. month(2) TYPE c,
  7. test(4)  TYPE c,
  8. END OF ty_data.
  9. DATA: lv_raw TYPE truxs_t_text_data.
  10. DATA: lw_data TYPE ty_data,
  11. lt_data TYPE STANDARD TABLE OF ty_data.
  12. CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
  13. EXPORTING
  14. *   I_FIELD_SEPERATOR          =
  15. *   I_LINE_HEADER              =
  16. i_tab_raw_data             = lv_raw
  17. i_filename                 = lv_file
  18. TABLES
  19. i_tab_converted_data       = lt_data
  20. EXCEPTIONS
  21. conversion_failed          = 1
  22. OTHERS                     = 2
  23. .
  24. IF sy-subrc <> 0.
  25. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  26. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  27. ENDIF.

2. Upload的文件

ABAP upload file(*.txt  *.csv  *.xls)

3. 读取文件的结果:

ABAP upload file(*.txt  *.csv  *.xls)

上一篇:python处理xls、xlsx格式excle


下一篇:R语言学习-基础篇1