Удалить пробелы после запятых

sibrin

Можно ли элегантно и быстро удалить пробелы после запятых в текстовой строке?

replace all occurences of ', ' in text with ','.
отбрасывает пробел в конце паттерна.

Например, можно
SPLIT text at ', ' into table it_text.
который учитывет всю длину паттерна (неважно, литерал это или переменная). Но потом надо обратно склеивать...

trop

для компилятора ', ' и ',' одно и то же,
type x 2c20 тоже не спасает.. придется смириться с 4GL :mrgreen:

flipper

sibrin написал:

Можно ли элегантно и быстро удалить пробелы после запятых в текстовой строке?

replace all occurences of ', ' in text with ','.
отбрасывает пробел в конце паттерна.

Например, можно
SPLIT text at ', ' into table it_text.
который учитывет всю длину паттерна (неважно, литерал это или переменная). Но потом надо обратно склеивать...

а так например:

Code:

TRANSLATE gc_txt USING ' *'.
REPLACE ALL OCCURRENCES OF ',*' IN gc_txt WITH ','.
TRANSLATE gc_txt using '* '.

trop

flipper хитер!

а я ошибался, все таки type x помогает в byte mode:

Code:

 report .
 data x(2) type x value '2C20'.
 break-point.

 field-symbols <1> type x.
 sy-lisel = 'a, b, c, d, e, f'.
 assign sy-lisel to <1> casting.

 write: / sy-lisel.

 replace all occurrences of x in <1> with x(1) in byte mode.

 write: / sy-lisel.

flipper

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

flipper хитер!

а я ошибался, все таки type x помогает в byte mode:

ваш вариант красивее!

Сергей Королев

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

ваш вариант красивее!

Тока в юникоде не пройдет, а вот со звездочкой скорее всего пройдет.

trop

согласен, под юникод примерно так:

Code:

data x(4) type x value '002C0020'. 
...
replace all occurrences of x in <1> with x(2) in byte mode.

но мы же иероглифы не используем

sibrin

Цитата:

для компилятора ', ' и ',' одно и то же,

Цитата из keyword documentation к split
DATA: NAMES(30) TYPE C VALUE 'Charly, John , Peter'.

SPLIT NAMES AT ',' INTO ONE TWO THREE.
* ONE contains 'Charly', TWO contains ' John',
* THREE contains ' Peter'.
SPLIT NAMES AT ', ' INTO ONE THREE TWO.
* ONE contains 'Charly', THREE contains 'John',
* TWO contains 'Peter'.

Цитата:

Тока в юникоде не пройдет, а вот со звездочкой скорее всего пройдет.

Со звёздочкой не спортивно, т.к. в исходной строке уже могут быть *.

Да уж, семь бед, один ответ:
assign ... casting

sibrin

Цитата:

а я ошибался, все таки type x помогает в byte mode:

Только пример, который привёл trop, немножко неправильный.
sy-lisel очень длинная и на экране не видно, что после замены
справа строка дополняется не пробелами, а нулями.

sibrin

Наверное, всё-таки split - наиболее корректое решение:

Code:

  
  DATA: it_txt TYPE TABLE OF char1024
          , txt(60) value 'a, b, c, d, e, f'
  .
  field-symbols: <txt> like line of it_txt.

  split txt at ', ' into table it_txt.
  loop at it_txt assigning <txt>.
    if sy-tabix = 1.
       txt = <txt>.
    else.
       concatenate txt ',' <txt> into txt.
    endif.
  endloop.

Как всё-таки увлекательно писать на ABAP то, что в perl, например, реализуется так:

Code:

txt=~s/, /,/g

Может какой-нибудь ф.м. существует, реализующий regexp'ы?

Boger

Тогда уж

Code:

txt=~s/,\s+/,/g

Если ввод пользователя - пробелов может быть сколько угодно.
А в абапе перед заменой надо сделать

Code:

condence text.

trop

вообще есть мыслишка портировать класс или формы posix regex

sibrin

Цитата:

А в абапе перед заменой надо сделать

Ну да, это от постановки задачи зависит, т.к. condense поубивает двойные пробелы не только после запятых, а с другой стороны, ему пофиг табуляции (ведь \s это [\ \t\r\n\f...]).

А чтобы реализовать txt=~s/([,;.:])\s+/$1/g на абапе, это же нужно ещё три цикла что-ли навесить: один будет перебирать [,;:.], второй [\ \t\r\n\f], а третий - чтобы последовательно убивать пробельные символы после знака пунктуации по-одному.

EGF

sibrin написал:

Может какой-нибудь ф.м. существует, реализующий regexp'ы?

ФМ не ФМ, а кое-что есть. Правда, в NetWeaver.

Boger

Хачу

У кого-нибудь есть доступ к 2004s ? в 2004 такого нету CL_ABAP_REGEX and CL_ABAP_MATCHER.
Скиньте плиз на мыло bogatyrjov[dog]bk.ru

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

Удалить пробелы после запятых

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