skip_lines_starting_with

Author: sbcgua

src/core/zcl_text2tab_parser.clas.abap

@@ -20,6 +20,7 @@ class zcl_text2tab_parser definition
         !i_amount_format  type zif_text2tab=>ty_amount_format optional
         !i_date_format    type zif_text2tab=>ty_date_format optional
         !i_begin_comment  type zif_text2tab=>ty_begin_comment optional
+        !i_skip_lines_starting_with type zif_text2tab=>ty_begin_comment optional
         !i_deep_provider  type ref to zif_text2tab_deep_provider optional
       returning
         value(ro_parser) type ref to zcl_text2tab_parser
@@ -60,6 +61,7 @@ class zcl_text2tab_parser definition
     data mv_line_index type i.
     data mv_is_typeless type abap_bool.
     data mv_begin_comment type zif_text2tab=>ty_begin_comment.
+    data mv_skip_lines_starting_with type zif_text2tab=>ty_begin_comment.
     data mt_ignore_exits type sorted table of abap_editmask with unique key table_line.
 
     data mt_components type zif_text2tab=>tt_comp_descr.
@@ -244,6 +246,7 @@ CLASS ZCL_TEXT2TAB_PARSER IMPLEMENTATION.
     endif.
 
     ro_parser->mv_begin_comment = i_begin_comment.
+    ro_parser->mv_skip_lines_starting_with = i_skip_lines_starting_with.
 
   endmethod.
 
@@ -418,6 +421,10 @@ CLASS ZCL_TEXT2TAB_PARSER IMPLEMENTATION.
         raise_error( i_msg = 'Empty line cannot be parsed'  i_code = 'LE' ). "#EC NOTEXT
       endif.
 
+      if mv_skip_lines_starting_with is not initial and <dataline>+0(1) = mv_skip_lines_starting_with.
+        continue. " Skip comment lines
+      endif.
+
       parse_line(
         exporting
           i_dataline     = <dataline>

src/core/zcl_text2tab_parser.clas.testclasses.abap

@@ -101,6 +101,8 @@ class ltcl_text2tab_parser_test definition for testing
     methods deep_structures for testing.
     methods parse_corresponding for testing raising zcx_text2tab_error.
 
+    methods begin_comments for testing raising zcx_text2tab_error.
+    methods line_comments for testing raising zcx_text2tab_error.
 
 * ==== HELPERS ===
 
@@ -1655,4 +1657,69 @@ class ltcl_text2tab_parser_test implementation.
 
   endmethod.
 
+  method begin_comments.
+
+    data lv_text_orig type string.
+    data lt_exp type tt_dummy.
+    data lt_act like lt_exp.
+
+    get_dummy_data(
+      importing
+        e_dummy_tab    = lt_exp
+        e_dummy_string = lv_text_orig ).
+
+    zcl_text2tab_parser=>create(
+      i_pattern = lt_act
+      i_begin_comment = '#'
+    )->parse(
+      exporting
+        i_data      = |#comment{ c_crlf }{ lv_text_orig }|
+      importing
+        e_container = lt_act ).
+
+    cl_abap_unit_assert=>assert_equals(
+      act = lt_act
+      exp = lt_exp ).
+
+    zcl_text2tab_parser=>create(
+      i_pattern = lt_act
+      i_begin_comment = zif_text2tab=>c_auto_detect_by_space
+    )->parse(
+      exporting
+        i_data      = |field descr with space\tanother one...{ c_crlf }{ lv_text_orig }|
+      importing
+        e_container = lt_act ).
+
+    cl_abap_unit_assert=>assert_equals(
+      act = lt_act
+      exp = lt_exp ).
+
+  endmethod.
+
+  method line_comments.
+
+    data lv_text_orig type string.
+    data lt_exp type tt_dummy.
+    data lt_act like lt_exp.
+
+    get_dummy_data(
+      importing
+        e_dummy_tab    = lt_exp
+        e_dummy_string = lv_text_orig ).
+
+    zcl_text2tab_parser=>create(
+      i_pattern = lt_act
+      i_skip_lines_starting_with = '#'
+    )->parse(
+      exporting
+        i_data      = |{ lv_text_orig }#comment| " CRLF is already at the end, no need to add
+      importing
+        e_container = lt_act ).
+
+    cl_abap_unit_assert=>assert_equals(
+      act = lt_act
+      exp = lt_exp ).
+
+  endmethod.
+
 endclass.