Как получить слово вокруг сепаратора

[HellMercenariess]

Здравствуйте!
Написал простой код, который удаляет некоторые символы из текста(сепараторы), но теперь не знаю как создать по крайней мере список-отчет о произведенных удалениях, для выполнения контроля человеком.
Также не знаю как осуществить возврат исходного словосочетания, если контролер усмотрит что удаление было не нужно.

Пример: за-ключается, меж- ду, получает- ся.
В после обработки будет: заключается, между, получается.
Нужно создавать список слов после обработки.

Подготовка текста.

[Utkin]

Храни первоначальный вариант

[HellMercenariess]

Боюсь для этого придется выйти на другой уровень, там где слово=объект, а у меня совсем простой код, когда находит в строке сепаратор, просто удаляет его:

 while i<=length(s) do
      begin
 if s[i] in Sep then delete(s,i,1)
 else inc(i);
     end;

[Utkin]

Тогда сохраняй, что ты и где откидываешь. Типа Undo. Пары символ-координаты (или смещение от начала), только помни, что строка скорее всего будет меньше, то есть чтобы вернуть потерянный символ, тебе нужно будет от конца пересчитывать координаты.

[HellMercenariess]

Вопрос актуален. У меня нету ни малейшего представления в каком направлении двигатся, чтобы получать слова.

У кого-то здесь наверняка есть какие-то наработки по подготовке текста, обработке строк, поделитесь исходничками

[Utkin]

Просто веди лог изменений и все. Учитывай только что общая длина текста будет уменьшаться на неизвестное тебе количество символов.

[HellMercenariess]

Сообщение от Utkin

Просто веди лог изменений и все. Учитывай только что общая длина текста будет уменьшаться на неизвестное тебе количество символов.

Несколько поясню. Оператор не сможет просматривать весь текст полностью(большие тексты, слишком дорого), ему бы списочек замен просмотреть, а в идеале установить максимальную длинну получаемого после вырезки сепаратора слова и если длинна больше, то возвращать автоматом.

[Utkin]

Зачем это? Для чего просматривать замены? Я к тому, что возможно получиться решить задачу другим способом. Например, устранив сами причины возникновения задачи.

[Don Karleone]

Сообщение от HellMercenariess

Пример: за-ключается, меж- ду, получает- ся.
В после обработки будет: заключается, между, получается.
Нужно создавать список слов после обработки.
[/COLOR]

Если из вашего примера удалять сепараторы (вашем же кодом) то в итоге вы получите не "между" а "меж ду". У меня такой вопрос. В вашем тексте, который вы обрабатываете, между сепаратором и соседними с ним буквами может быть пробел или нет? А также вопрос, какова длина текста (максимальная)? Известно ли какими символоми разделены слова в тексте или же это обычный текст, слова в котором могут разделятся любыми символами (например , . ; и т. д.)?

А вообще, при условии, что слова состоят из русских букв, могут разделяться символами '-',',','.' и т.д. но только не сепаратором, могу предложить такой код для получения отдельных слов текста:

procedure TForm1.Button1Click(Sender: TObject);
var
  ST, S: string;
  i    : integer;
begin
  i:=0;
  ST:=Edit1.Text;  //строка текста
  S:='';  //здесь будем хранить отдельное слово
  while i < Length(ST) do
    begin
      Inc(i);
      if ST[i] in ['А'..'п','р'..'я','-'] then S:=S + ST[i];
      if not (ST[i] in ['А'..'п','р'..'я','-']) and (Length(S) <> 0)
        then
            begin
              Memo1.Lines.Add(S);
              S:='';
            end;
      if (ST[i] in ['А'..'п','р'..'я','-']) and (i = Length(ST))
        then Memo1.Lines.Add(S);
    end;
end;

[HellMercenariess]

Сообщение от Don Karleone

А также вопрос, какова длина текста (максимальная)? Известно ли какими символоми разделены слова в тексте или же это обычный текст, слова в котором могут разделятся любыми символами (например , . ; и т. д.)?

А вообще, при условии, что слова состоят из русских букв, могут разделяться символами '-',',','.' и т.д. но только не сепаратором, могу предложить такой код для получения отдельных слов текста:

В последнем документе длинна текста была - 22500 строк. Максимальная длинна предположительно будет не более 35000 строк.
Уже создал утилитку для деления текста на куски.

В основном сепаратор будет "-" и артефакты.
Попробую чего можно выжать из вашего кода, завтра отпишу.