读取Standard Text并过滤注释 沧海

*Begin of QSCR: 2B013195
DATA: loc_t_lines LIKE tline OCCURS 0 WITH HEADER LINE,
      loc_char LIKE tline-tdline.
DATA  loc_i TYPE i.

CLEAR g_po_invoice_1.
CLEAR g_po_invoice_2.
CLEAR g_po_invoice_3.
CALL FUNCTION 'READ_TEXT'
     EXPORTING
          id       = 'ST'
          language = 'E'
          name     = 'ZCSM_PO_INVOICE_EN'
          object   = 'TEXT'
     TABLES
          lines    = loc_t_lines
     EXCEPTIONS
          OTHERS   = 0.

IF sy-subrc = 0.
  loc_i = 1.
  READ TABLE loc_t_lines INDEX loc_i.

  WHILE sy-subrc = 0.
    MOVE loc_t_lines-tdline TO loc_char.
    CONDENSE loc_char NO-GAPS.
    IF loc_char(1) = '*' OR loc_char = ''.
      "ignore the comment
    ELSE.
      MOVE loc_t_lines-tdline TO g_po_invoice_1.
      EXIT.
    ENDIF.
    loc_i = loc_i + 1 .
    READ TABLE loc_t_lines INDEX loc_i.
  ENDWHILE.

  loc_i = loc_i + 1 .
  READ TABLE loc_t_lines INDEX loc_i.
  WHILE sy-subrc = 0.
    MOVE loc_t_lines-tdline TO loc_char.
    CONDENSE loc_char NO-GAPS.
    IF loc_char(1) = '*' OR loc_char = ''.
      "ignore the comment
    ELSE.
      MOVE loc_t_lines-tdline TO g_po_invoice_2.
      EXIT.
    ENDIF.
    loc_i = loc_i + 1 .
    READ TABLE loc_t_lines INDEX loc_i.
  ENDWHILE.

  loc_i = loc_i + 1 .
  READ TABLE loc_t_lines INDEX loc_i.
  WHILE sy-subrc = 0.
    MOVE loc_t_lines-tdline TO loc_char.
    CONDENSE loc_char NO-GAPS.
    IF loc_char(1) = '*' OR loc_char = ''.
      "ignore the comment
    ELSE.
      MOVE loc_t_lines-tdline TO g_po_invoice_3.
      EXIT.
    ENDIF.
    loc_i = loc_i + 1 .
    READ TABLE loc_t_lines INDEX loc_i.
  ENDWHILE.

ENDIF.

*End Of QSCR 2B013195