topic Re: separating lines in Application Development and Automation Discussions

separating lines

Former Member — Fri, 24 Mar 2006 14:20:09 GMT

I am using GET_TEXT_AS_R3TABLE from cl_gui_textedit class, and i obtein some lines in a table with ## marking the line jump, but i don´t know how to do it, because if i try to split at '##' it doesn´t do it, have i to convert one by one characters to ascii code or is there any way to do it?,

Thanks in advance.

example:

xxxxxxxx##ccc##vv####

i want:

xxxxxxxx##

ccc##

vv####

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:24:55 GMT

Hi carl,

1. when we use this method,

we don't get any ##,

we stragith away get the 3 lines

CALL METHOD editor->get_text_as_r3table

EXPORTING
ONLY_WHEN_MODIFIED = FALSE

IMPORTING

table = a

IS_MODIFIED =

EXCEPTIONS

ERROR_DP = 1
ERROR_CNTL_CALL_METHOD = 2
ERROR_DP_CREATE = 3
POTENTIAL_DATA_LOSS = 4

OTHERS = 5

regards,

amit m.

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:26:54 GMT

report ychatest.

data : str(45) value 'xxxxxxxx##ccc##vv####'.

data: BEGIN OF ITAB occurs 0,
        WORD(20),
      END   OF ITAB.


split str at '#' into table itab.

loop at itab.
   write : / itab-word.
endloop.

output is 
xxxxxxxx
ccc
vv

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:31:11 GMT

I have tried to use this method, but my problem is that sometimes i have one line that have more than 120 characters, because they can write pharagraphs without enter, so with this another method, how can i know that one line is a new line or not?

Thanks in advance

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:32:01 GMT

Hi again,

1. Carriage and LINE FEED.

2. those two characters ##

actually must be

Carriage, and Line Feed.

3. To split them use like this.

data : a(100) type c.

data: BEGIN OF ITAB occurs 0,

WORD(20),

END OF ITAB.

split a at CL_ABAP_CHAR_UTILITIES=>CR_LF into table itab.

regards,

amit m.

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:32:50 GMT

data : text(100) value 'yourtext with hashes'.
data: begin of it_text occurs 0,
        char(20),
      end of  it_text.

split text at CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB into table it_text.
loop at it_text. 
  write : / it_text-char.
endloop.

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:33:12 GMT

Hi sekhar, the problem is that i think that it doesn´t works because they are special character, not a simple #,

thanks in advance

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:34:58 GMT

Try this ....

data : text(100) value 'yourtext with hashes'.data: begin of it_text occurs 0,
        char(20), 
     end of  it_text.
split text at CL_ABAP_CHAR_UTILITIES=>CR_LF into table it_text.
loop at it_text.
   write : / it_text-char.
endloop.

Regards

Vijay

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:39:50 GMT

Sorry, but the CL_ABAP_CHAR_UTILITIES=>CR_LF gives me a syntax error, is there any declaration else needed?

Thaks in advance

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:43:35 GMT

Hi again,

1. just check out in SE24,

whether this class is there or not.

CL_ABAP_CHAR_UTILITIES

2. U can try like this also.

report abc.

data : m type ref to CL_ABAP_CHAR_UTILITIES.

data : a(100) type c.

data: BEGIN OF ITAB occurs 0,

WORD(20),

END OF ITAB.

split a at m->CR_LF into table itab.

regards,

amit m.

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:45:06 GMT

I don´t have this class in my sap version 4.6C, or at least it doesn´t appear in se24

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:46:27 GMT

what error you got, and check it in SE24 for that class.

class cl_abap_char_utilities definition load.

then use split...etc.

regards

Vijay

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:46:51 GMT

Hi again, The program doesn´t works too, is there any other solution please?

Thanks in advance

Re: separating lines

Former Member — Fri, 24 Mar 2006 14:51:35 GMT

Hi Carl,

then you need take help of hexadecimal values . using them only you can split.

Regards

Vijay

Re: separating lines

RichHeilman — Fri, 24 Mar 2006 15:01:09 GMT

Carl, what release are you working with and can you please post your code. I told have this problem in my system. It does not show the ## signs in my text.

Regards,

Rich Heilman

Re: separating lines

RichHeilman — Fri, 24 Mar 2006 15:04:05 GMT

Take the following example program. Here, I am not seeing any ## when entering text and writing it out to the list.



report zrich_0001 .

data:
      dockingleft  type ref to cl_gui_docking_container,
      text_editor    type ref to cl_gui_textedit,
      repid type syrepid.

data: textlines type table of tline-tdline,
      wa_text type tline-tdline.

parameters: p_check.

at selection-screen output.

  repid = sy-repid.

  create object dockingleft
              exporting repid     = repid
                        dynnr     = sy-dynnr
                        side      = dockingleft->dock_at_left
                        extension = 1070.

  create object text_editor
              exporting
                   parent     = dockingleft.

start-of-selection.

  call method text_editor->get_text_as_r3table
     importing
           table              = textlines
     exceptions
           others             = 1.

  loop at textlines into wa_text.
    write:/ wa_text.
  endloop.

Regards,

Rich Heilman

Re: separating lines

Former Member — Fri, 24 Mar 2006 15:15:09 GMT

try this .. i had assumed that ur text consists of only characters(lower case) and no numericals

REPORT ychatest.

DATA : str(45) VALUE 'xxxxxxxx##ccc##vv####',
       strlength TYPE i,
       i1 TYPE i VALUE 0,
       j1 TYPE i VALUE 1,
       char(1).

DATA: BEGIN OF itab OCCURS 0,
        word(20),
      END   OF itab.

TRANSLATE str TO UPPER CASE.
strlength = STRLEN( str ).

DO strlength TIMES.
  char = str+i1(j1).
  SEARCH sy-abcde FOR char.
  IF sy-subrc NE 0.
    EXIT.
  ENDIF.
  i1 = i1 + 1.
ENDDO.
TRANSLATE str TO LOWER CASE.

SPLIT str AT char INTO TABLE itab.

LOOP AT itab.
  WRITE : / itab-word.
ENDLOOP.

Re: separating lines

Former Member — Fri, 24 Mar 2006 15:17:13 GMT

Hi Rich,

i am in 4.6C, but i think that i have obtain the solution with the ascii characters, the # returns a 0D.

My code:

CALL METHOD o_editor->GET_TEXT_AS_STREAM

IMPORTING

TEXT = it_memo[]

IS_MODIFIED = modificat.

data: begin of it_text occurs 0,

char(120),

end of it_text.

data: a(120), b(120).

if modificat = 1.

loop at it_memo.

data texto(1).

data texto2(2).

data contador type i value 0.

do 120 times.

contador = contador + 1.

clear texto.

if contador = 1.

texto = it_memo-linea(1).

else.

clear contador2.

texto = it_memo-linea+contador(1).

endif.

CALL FUNCTION 'URL_ASCII_CODE_GET'

EXPORTING

TRANS_CHAR = texto

IMPORTING

CHAR_CODE = texto2.

enddo.

Thanks in advance for everybody

Re: separating lines

RichHeilman — Fri, 24 Mar 2006 15:18:25 GMT

Here is your problem.


<b>CALL METHOD o_editor->GET_TEXT_AS_STREAM</b>

Don't retrieve as a stream, retrieve it as a table like I've done in the example code above using the method

get_text_as_r3table.

Problem will be solved. No need to split the text.

Regards,

Rich Heilman

Re: separating lines

Former Member — Fri, 24 Mar 2006 15:24:28 GMT

Hi Rich, my problem was that i have pharagraphs and i wanted to know if i have make a jump line or not, but with ascii characters i have resolved the problem,

Thank you very much