1

Как удалить все между скобками, включая скобки? Проблема в том, что пробелы расположены по разному:

И как сделать что бы после обработки получился текстовый файл (то есть удалить все между <>, включительно, удаляя лишние пробелы):

Делаю вот так: но не весь текст обрабатывает правильно:

var
    ft, ft2: TextFile;
    i: integer;
    s:string;
Begin

......................................
    while(pos('<',s)>0)and(pos('>',s)>0) do
    Delete(s,Pos('<',s),Pos('>',s)-Pos('<',s)+2);

........................................

Обрабатываетcя вот так:

Какой хороший(тут пробел)<03.04.2018>сегодня день После обработки - Какой хороший егодня день (то есть исчезла буква с в слове сегодня)

Какой хороший(тут пробел)<03.04.2018>(тут пробел)сегодня день После обработки в этой строке все отлично, то есть: Какой хороший сегодня день

Какой хороший<03.04.2018>(тут пробел)сегодня день После обработки Какой хорошийсегодня день (нет пробела между хороший и сегодня)

А должны быть все строки вот в таком виде:

Какой хороший сегодня день

Какой хороший сегодня день

Какой хороший сегодня день

11
  • 1
    "но не весь текст обрабатывает правильно" - а КАК неправильно обрабатывается, покажите пример.
    – Kromster
    3 апр 2018 в 11:52
  • 1
    Добавьте поконкретнее пожалуйста, пример. Строка на входе, ваша функция, строка на выходе.
    – Kromster
    3 апр 2018 в 12:14
  • 1
    Не +2, а +1. И после удаления проверять, не оказалось ли в месте удаления два пробела подряд.
    – user176262
    3 апр 2018 в 12:47
  • 1
    Я бы вам настоятельно рекомендовал ознакомится с Регулярыми выражениями в Delphi а именно вам нужно использовать метод replace()
    – JVic
    3 апр 2018 в 12:53
  • 1
    Не советую вам ввязываться в регулярки, если в обычном коде у вас худо-бедно что-то получается, то на регулярках нам придется писать все за вас ..
    – Kromster
    3 апр 2018 в 13:01

1 ответ 1

2

Попробуйте использовать метод TRegEx.replace()

Он будет в исходной строке по регулярному выражению заменять на нужное вам значение

TRegEx.replace("исходная строка", "регулярное выражение", "то на что заменяем в вашем случае это пробел")

И все это будет выглядеть так: TRegEx.replace(s, "\s*<.+>\s*", " ")

Для быстрого написания регулярных выражений могу посоветовать Ресурс

4
  • Регулярками вырезать одни скобки, когда ТС путается в трех соснах .. сомнительный совет.
    – Kromster
    3 апр 2018 в 13:02
  • @Kromster Как я понимаю ТС заменять будет не только эти "скобки" ,и по специфике ее работы ей придется сталкиватся с этим часто. И если Татьяна потратит какоето кол-во времени на понимание регулярок решение таких задач станет в разы проще
    – JVic
    3 апр 2018 в 13:13
  • 1
    @Татьяна получилось использовать регулярные выражения?
    – JVic
    3 апр 2018 в 13:13
  • Да, спасибо большое только что как раз удалось сделать. 3 апр 2018 в 13:16

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.