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

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

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

*.TXT

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

[plain] view plain copy

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的文件

3. 读取文件的结果

*CSV

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

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

2. 常用FM: KCD_CSV_FILE_TO_INTERN_CONVERT

[plain] view plain copy

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的文件

4. 读取文件的结果:

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

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

把文件改成如下图所示:

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

*.XLS

1. 常用FM: TEXT_CONVERT_XLS_TO_SAP

[plain] view plain copy

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的文件

3. 读取文件的结果: