Удаление текста между символами

@Hardalternative · Регистрация: 30.01.2018

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток.

Ребята

, подскажите как справиться с задачей!. Нужно удалить текст между символами такого вида:

TEST """111111> TEST1
TEST """222222>> TEST2
TEST """333>>> TEST3
TEST "444444>>> TEST4
TEST ""5555>>> TEST5

Что бы на выходе получилось:

Вариант 1 (Только текст а символы оставить):
TEST """> TEST1
TEST """>> TEST2
TEST """>>> TEST3
TEST ">>> TEST4
TEST "">>> TEST5

Вариант 2 (Включительно из символами):
TEST TEST1
TEST TEST2
TEST TEST3
TEST TEST4
TEST TEST4

@droider · 16.05.2018, 13:15

Hardalternative, текст между строк одинаковый?

@Hardalternative · 17.05.2018, 18:38 **[ТС]**

droider, Ксожалению текст постоянно разный.

Добавлено через 1 час 29 минут
Я ребят не совсем деревянный

, склепал вот такой код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
s,res: String;
i,k: Integer;
 
begin
s:=Memo1.Lines.text;
 i:=pos('"""',s);
 while i<>0 do begin
  k:=pos('>>',s);
  res:=copy(s,i+1,k-i);
  delete(s,i,k+3-i);
  i:=pos('"""',s);
delete(s,pos('"""',s),pos('>>',s)+3-pos('"""',s));
 end;
 Memo1.Lines.text:=s;
end;

Но это все равно не то. Работает, но постоянно нужно подстраивать количество символов в k+3 и i+1. А так работает. Может есть универсальный вариант ?

Добавлено через 6 часов 48 минут
Лады, если никто не подскажет то уже есть идеи как решить. Думаю получиться и я поделюсь кодом, как сделаю. В любом случае, за стремление мне помочь - Спасибо.

Добавлено через 21 час 0 минут
Как и обещал - Ответ на мой вопрос таков:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var s : string;
  p1, p2 : integer;
begin
  s := Memo1.Lines.Text;
  p1 := Pos('"', s);
  while p1>0 do begin
    p2 := PosEx('>', s, p1);
    if p2<1 then Break;
    while (p2<Length(s)) and (s[p2+1]='>') do Inc(p2);
    Delete(s, p1, p2+2-p1);
    p1 := Pos('"', s);
  end;
  Memo1.Lines.Text := s
end;

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 415

	RAD XE3+ Удаление текста между символами 03.05.2018, 13:33. Показов 4722. Ответов 21 Метки нет (Все метки) Всем доброго времени суток. Ребята , подскажите как справиться с задачей!. Нужно удалить текст между символами такого вида: TEST """111111> TEST1 TEST """222222>> TEST2 TEST """333>>> TEST3 TEST "444444>>> TEST4 TEST ""5555>>> TEST5 Что бы на выходе получилось: Вариант 1 (Только текст а символы оставить): TEST """> TEST1 TEST """>> TEST2 TEST """>>> TEST3 TEST ">>> TEST4 TEST "">>> TEST5 Вариант 2 (Включительно из символами): TEST TEST1 TEST TEST2 TEST TEST3 TEST TEST4 TEST TEST4 0

@droider 4893 / 2826 / 867 Регистрация: 04.10.2012 Сообщений: 10,278
	16.05.2018, 13:15
	Hardalternative, текст между строк одинаковый? 0