Notatnik ABAP
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
Nowszy post
Starszy post
Strona główna
Subskrybuj:
Komentarze do posta (Atom)
Brak komentarzy:
Prześlij komentarz