Как удалить часть строки, начиная со слова (не символа)?

@useruser · Регистрация: 29.06.2015

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

Как удалить часть строки, начиная с определённого слова (не символа)?
Например есть строка - Мама мыла раму, рама мыла мылом маму. Надо удалить слово "мыла".
Результат - мылом маму. Т.е. просматрисаем строку слева на право, ищем целое слово мыла. Нашли - удаляем всё что слева. Итого текст удалили 2 раза. Слово мылом это не мыла, хоть они похожи.

quwy · 29.03.2016, 13:53

Определяем начало слова ф-цией Pos, затем удаляем нужное ко-ло символов вызовом Delete.

@qwertehok · 29.03.2016, 14:01

с pos не получится - может часть слова зацепить
можно попробовать в стринглист строку добавить и по пробелу поделить на слова
далее пройтись по элементам, найти нужное слово и все что ниже удалить

@useruser · 29.03.2016, 14:10 **[ТС]**

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

и по пробелу поделить на слова

Пробел тоже может быть частью слова

Слово это набор символов. Любые символы (без переносов, спецсимволов). Обычная строка.

@CheshireesCat · 29.03.2016, 14:14

я так и не понял надо ли удалить само слово по которому ищем
вот не удаляя слово

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.btn1Click(Sender: TObject);
var
  p:integer;
  s,sub_s:String;
begin
  s:=InputBox('Введите строку','','');
  sub_s:=InputBox('Слово до которого необходимо удалить','','');
 
  s:=ReverseString(s);
  sub_s:=ReverseString(sub_s);
  Delete(s,Pos(sub_s,s)+length(sub_s),length(s));
 
  ShowMessage(ReverseString(s));
end;

а вот с удалением слова, в твоём примере это "мыла"

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.btn1Click(Sender: TObject);
var
  p:integer;
  s,sub_s:String;
begin
  s:=InputBox('Введите строку','','');
  sub_s:=InputBox('Слово до которого необходимо удалить','','');
 
  s:=ReverseString(s);
  sub_s:=ReverseString(sub_s);
  Delete(s,Pos(sub_s,s),length(s));
 
  ShowMessage(ReverseString(s));
end;

Добавлено через 1 минуту
логика такая, мы переворачиваем обе строки, и находим первое вхождение строки саб_с в строку с и удаляе всё что после него или как во втором примере вместе с ним

@useruser · 29.03.2016, 14:21 **[ТС]**

Спасибо. Интересное решение. Попробую. Посмотрим что выйдет.
Да, слово удаляем. Удаляем всю часть строки слева, вместе с искомым словом.

@qwertehok · 29.03.2016, 14:22

с поворотом интересно, но все равно может совпасть
нужно делить по словам

@unifikator · 29.03.2016, 14:33

Если как в примере, то:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,l:integer;
s,w:string;
begin
s:=edit1.Text;
w:=edit2.Text;
l:=length(w);
i:=pos(w,s);
while i>0 do
begin
delete(s,1,i+l-1);
i:=pos(w,s);
end;
edit3.Text:=s;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

А если как в условии, то есть удалить часть строки, начиная с определённого слова, то:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s,w:string;
begin
s:=edit1.Text;
w:=edit2.Text;
i:=pos(w,s);
if i>0 then
delete(s,i,length(s)-i+1);
edit3.Text:=s;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

Прилагаю проект на Delphi с кодом как в примере. Код формы можно заменить на код как в условии.

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@useruser 166 / 90 / 38 Регистрация: 29.06.2015 Сообщений: 1,100

	Как удалить часть строки, начиная со слова (не символа)? 29.03.2016, 13:50. Показов 4818. Ответов 7 Метки нет (Все метки) Как удалить часть строки, начиная с определённого слова (не символа)? Например есть строка - Мама мыла раму, рама мыла мылом маму. Надо удалить слово "мыла". Результат - мылом маму. Т.е. просматрисаем строку слева на право, ищем целое слово мыла. Нашли - удаляем всё что слева. Итого текст удалили 2 раза. Слово мылом это не мыла, хоть они похожи. 0

quwy Native x86 6855 / 3788 / 1025 Регистрация: 13.02.2013 Сообщений: 11,861
	29.03.2016, 13:53
	Определяем начало слова ф-цией Pos, затем удаляем нужное ко-ло символов вызовом Delete. 0

@qwertehok 5957 / 4533 / 1094 Регистрация: 29.08.2013 Сообщений: 28,130 Записей в блоге: 3
	29.03.2016, 14:01
	с pos не получится - может часть слова зацепить можно попробовать в стринглист строку добавить и по пробелу поделить на слова далее пройтись по элементам, найти нужное слово и все что ниже удалить 0

@useruser 166 / 90 / 38 Регистрация: 29.06.2015 Сообщений: 1,100
	29.03.2016, 14:21 [ТС]
	Спасибо. Интересное решение. Попробую. Посмотрим что выйдет. Да, слово удаляем. Удаляем всю часть строки слева, вместе с искомым словом. 0

@qwertehok 5957 / 4533 / 1094 Регистрация: 29.08.2013 Сообщений: 28,130 Записей в блоге: 3
	29.03.2016, 14:22
	с поворотом интересно, но все равно может совпасть нужно делить по словам 0