01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
* CSV-Datei mit drei Spalten
TYPES: BEGIN OF ty_s_type,
col1 TYPE string,
col2 TYPE string,
col3 TYPE string,
END OF ty_s_type.
TYPES: ty_it_csv TYPE STANDARD TABLE OF ty_s_type WITH DEFAULT KEY.
DATA: it_csv TYPE ty_it_csv.
TRY.
* Setzt voraus, dass die CSV-Daten TAB-getrennt sind!
cl_gui_frontend_services=>gui_upload( EXPORTING
filename = 'c:\temp\test.csv' " Eingabedatei
filetype = 'ASC' " Dateityp BIN, ASC, DAT
has_field_separator = abap_true " Spalten durch TAB getrennt bei ASCII Upload?
CHANGING
data_tab = it_csv ). " Übergabetabelle für Datei-Inhalt
cl_demo_output=>write_data( it_csv ).
CATCH cx_root INTO DATA(e_text).
MESSAGE e_text->get_text( ) TYPE 'I'.
ENDTRY.