Code: Alles auswählen.
DATA: ta_csv_data TYPE STANDARD TABLE OF zst_preisupload,
wa_csv_data LIKE LINE OF ta_csv_data.
DATA v_string TYPE string.
v_filename = p_fname.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = v_filename
filetype = 'ASC'
TABLES
data_tab = ta_csv_data.
LOOP AT ta_csv_data INTO v_string.
SPLIT v_string AT ' , '
INTO
wa_csv_data-matnr
wa_csv_data-kschl
wa_csv_data-vorg.
APPEND ta_csv_data.
CLEAR: ta_csv_data.
ENDLOOP.
Code: Alles auswählen.
DATA:
gt_file_content TYPE table_of_strings,
gv_line TYPE string.
START-OF-SELECTION.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = 'c:\temp\daten.txt'
filetype = 'ASC'
TABLES
data_tab = gt_file_content.
Code: Alles auswählen.
TYPES:
BEGIN OF ts_data,
matnr TYPE char30,
kschl TYPE kschl,
vkorg TYPE vkorg,
END OF ts_data.
DATA:
gt_data TYPE STANDARD TABLE OF ts_data,
gs_data TYPE ts_data.
LOOP AT gt_file_content INTO gv_line.
CLEAR gs_data.
SPLIT gv_line AT space
INTO gs_data-matnr gs_data-kschl gs_data-vkorg.
APPEND gs_data TO gt_data.
ENDLOOP.
LOOP AT gt_data INTO gs_data.
WRITE: / gs_data-matnr, gs_data-kschl, gs_data-vkorg.
ENDLOOP.
Code: Alles auswählen.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = v_filename
filetype = 'ASC'
TABLES
data_tab = ta_csv_data.
LOOP AT ta_csv_data INTO v_string.
================================================
if sy-tabix eq 1. "Erste Zeile der Tabelle?
continue. Mache nichts, gehe zurueck zum LOOP AT und bearbeite die zweite Zeile
*** FYI: Die erste Zeile beinhaltet z.B. oft die Spaltennamen. Man koennte damit z.B. eine dynamische interne Tabelle erstellen
endif.
================================================
SPLIT v_string AT ';' INTO wa_csv-matnr
wa_csv-vkorg
wa_csv-preis.
APPEND wa_csv TO ta_csv.
CLEAR wa_csv.
ENDLOOP.