Loading Text data into internal table

Question

I have a text file to load txt data into internal table. So how to read text data with validation and to load all text data into the internal table?
Say this is the text file:
IO_NAME, IO_TYPE, IO_SHTXT, IO_LONGTEXT, DATATYPE, DATA LENGTH
ZIO_TEST1, CHA, IO TEST1, IO TEST 1, CHAR, 20
ZIO_TEST2, CHA, IO TEST2, IO TEST 2, CHAR, 20
Regards,
Mau

Answer 1

hi Mau,
look this code, maybe it's help u.
<b>REPORT  ZTXTTOTABLE.</b>
DATA: p_file   TYPE string value 'C:\teste.txt',
      BEGIN OF TI_table OCCURS 0,
        COD(5) TYPE C,
        NAME(40),
      END OF TI_table,
      a(2).
PARAMETERS: sel_file(128) TYPE c
            default 'C:\teste.txt' OBLIGATORY LOWER CASE.
p_file = sel_file.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    filename = p_file
  TABLES
    data_tab = ti_table[].
format color COL_TOTAL INTENSIFIED ON.
loop at ti_table.
  write: / sy-vline, ti_table-cod, at 10 sy-vline, ti_table-name,
         at 60 sy-vline.
endloop.
write: / sy-uline(60).
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sel_file.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = ''
      def_path         = 'C:\'
      mask             = ',Documentos de texto (*.txt), *.txt.'
      mode             = ''
    IMPORTING
      filename         = p_file
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
  find '.txt' IN p_file.
  if sy-subrc <> 0.
    concatenate p_file '.txt' into sel_file.
  else.
    sel_file = p_file.
  endif.
top-of-page.
  format color COL_HEADING INTENSIFIED ON.
  uline (60).
  write: / sy-vline, 'COD', at 10 sy-vline, 'NAME', at 60 sy-vline.
  write: / sy-uline(60).
good luck!
Regards
Allan Cristian