Вести строку 100 символов. В этой строке надо заменить парные симлолы если они есть

sashoki

Вести строку 100 символов. В этой строке надо заменить парные символы если они есть, и вывести нормальное отображение без дуближа. Интересует именно механизм сравнения!!!

trop

Code:

replace all occurrences of regex `(.)\1+` in str with `$1`.

sashoki

А как сделать без использования щетчика переборов!

Saperx

sashoki написал(а):

А как сделать без использования щетчика переборов!

Вам надо проблему решить или чье-то задание выполнить?
Если вам не подходит работающий ответ выше, то может хотя бы :rtfm:

?

Возможно не учел какие-то моменты, нет под рукой дебагера

Code:

DATA: 
   lv_input(100)    TYPE c
   , lv_len              TYPE i
   , lv_offset           TYPE i
   , lv_prev            TYPE c
   , lv_output(100)  TYPE c
   , lv_space          TYPE c
   .

   lv_input = 'tttteeesstt    iiinnnpuuut'.
   
   lv_len = STRLEN ( lv_input ).
   
   DO lv_len TIMES.
      lv_offset = sy-index - 1.
      IF lv_offset = 0.
         lv_prev = lv_input+lv_offset(1).
         CONCATENATE lv_output lv_input+lv_offset(1) INTO lv_output.
      ELSE.
         IF lv_input+lv_offset(1) <> lv_prev.
            lv_prev = lv_input+lv_offset(1).
            IF lv_prev IS NOT INITIAL.
               IF lv_space IS NOT INITIAL.
                  CONCATENATE lv_output lv_input+lv_offset(1) INTO lv_output.
               ELSE.
                  CONCATENATE lv_output lv_input+lv_offset(1) INTO lv_output SEPARATED BY space.
                  CLEAR lv_space.
               ENDIF.
            ELSE.
               space = 'X'.
            ENDIF.
         ENDIF.
      ENDIF.
   ENDDO.
   
   write lv_output.

Правила форума

Вести строку 100 символов. В этой строке надо заменить парные симлолы если они есть

Кто сейчас на конференции