wtorek, 25 stycznia 2011

Parsowanie TLINE na STRING



METHOD tline_to_wd_string.
FIELD-SYMBOLS: TYPE tline.

CLEAR ev_wd_text .

LOOP AT it_tdline ASSIGNING .
IF sy-tabix = 1.
ev_wd_text = -tdline.
ELSEIF -tdformat = '*'.
CONCATENATE ev_wd_text iv_newline -tdline INTO ev_wd_text.
ELSE.
CONCATENATE ev_wd_text -tdline INTO ev_wd_text.
ENDIF.
ENDLOOP.

ENDMETHOD.

Brak komentarzy:

Prześlij komentarz