LELUK написал(а):
Хорошее решение, но кто сказал что разделитель это 1 элемент, и что это служебный символ.
Чисто из-за пятницы и ради познавательной забавы реализовал свои пункты алгоритма 1 и 2 в маленьком примерчике. Обращаю внимание - не ограничиваясь одним символом в разделителе!
Кстати, регулярное выражение может быть и попроще того, что я приводил выше.
Code:
DATA it_shingles TYPE SORTED TABLE OF string
WITH UNIQUE KEY table_line.
DATA str_len TYPE i.
DATA shingle_len TYPE i.
DATA off TYPE i.
DATA off_shi TYPE i.
DATA mcnt TYPE i.
DATA curr_substr TYPE string.
DATA tempstr TYPE string.
DATA sep TYPE string.
DATA regexstr TYPE string.
tempstr = 'Пролетарии~~всех~~стран~~соединяйтесь'.
TRANSLATE tempstr TO UPPER CASE.
str_len = STRLEN( tempstr ).
"получение списка уникальных подстрок (шинглов)
"в качестве разделителя ищем подстроку
DO 5 TIMES. "пусть не длиннее 5 символов
shingle_len = sy-index.
DO str_len TIMES.
off = sy-index - 1.
off_shi = off + shingle_len.
CHECK off_shi <= str_len.
curr_substr = tempstr+off(shingle_len).
COLLECT curr_substr INTO it_shingles.
ENDDO.
ENDDO.
"проверка каждой уникальной подстроки в качестве разделителя
LOOP AT it_shingles INTO sep.
CLEAR: mcnt.
CONCATENATE '\A' "начиная с левого края строки,
'.+' "разделитель должен как минимум дважды
sep "встретиться в строке
'.+' "и соседние с разделителем фрагменты строки
sep "должны быть непустые
'.+' "(пустые строки не рассматриваем)
INTO regexstr.
FIND REGEX regexstr IN tempstr
MATCH COUNT mcnt.
CHECK mcnt > 0.
"в случае успеха выводим очередной потенциальный разделитель
WRITE: / sep, mcnt.
ENDLOOP.
На выходе получилось (WRITE вывел):
Code:
~ 1
~~ 1
~~С 1
~С 1
А 1
Е 1
И 1
Н 1
О 1
Р 1
С 1
Т 1
Буквы, конечно, должны пойти лесом. Или покажите мне ОБЫЧНОГО пользователя, который бы в качестве разделителя элементов списка непринужденно использовал бы строку '~~С'
Вход
Регистрация
FAQ пользователя
Поиск
