имя может встречаться несколько раз, как используя pos найти все вхождения имени в строку - Паскаль, Turbo Pascal, PascalABC.NET

milton · 19.11.2008, 02:20

Помогите по возможности, пожалуйста.
"Вводится предложение, имя и отчество. В предложении после имени поместить отчество. (имя может встречаться несколько раз)

Вот если бы имя встречалось 1 раз все было бы элементарно.. но pos дает лишь первое вхождение слова в предложения..Может это как-то разбивается на символы?

puporev · 19.11.2008, 06:36

Предположим, что слова в предложении разделены пробелом, причем всегда одним. Тогда идем по строке циклом while . Если первая буква очередного слова=первой букве заданного имени s[i]=si[1] и следущие буквы совпадают с именем copy(s,i,length(si)=si, то после этого слова вставляем пробел+отчество insert(' so',s,i+length(si)). Перепрыгиваем через это слово i:=i+length(si) если слово не то, тогда i:=i+1.

milton · 09.12.2008, 22:34

спасибо)))

19.11.2008, 02:20	#1
milton Регистрация: 28.09.2008 Сообщений: 8	имя может встречаться несколько раз, как используя pos найти все вхождения имени в строку Помогите по возможности, пожалуйста. "Вводится предложение, имя и отчество. В предложении после имени поместить отчество. (имя может встречаться несколько раз) Вот если бы имя встречалось 1 раз все было бы элементарно.. но pos дает лишь первое вхождение слова в предложения..Может это как-то разбивается на символы?

09.12.2008, 22:34	#3
milton Регистрация: 28.09.2008 Сообщений: 8	спасибо))) Последний раз редактировалось milton; 10.12.2008 в 01:14.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Используя типизированную константу множество преоброзовать все маленькие русские буквы в верхний регистр	VITIY	Паскаль, Turbo Pascal, PascalABC.NET	20	21.11.2008 19:16
Как в memo найти все e-mail'ы	Черничный	Общие вопросы Delphi	16	16.10.2008 09:13
Как найти нужную строку в ListBox?	DelphiKettle	Помощь студентам	2	05.09.2007 22:02
Имя константы-в строку	Роман Радер	Общие вопросы Delphi	2	04.07.2007 12:37

19.11.2008, 06:36	#2
puporev Старожил Регистрация: 13.10.2007 Сообщений: 2,740	Предположим, что слова в предложении разделены пробелом, причем всегда одним. Тогда идем по строке циклом while . Если первая буква очередного слова=первой букве заданного имени s[i]=si[1] и следущие буквы совпадают с именем copy(s,i,length(si)=si, то после этого слова вставляем пробел+отчество insert(' so',s,i+length(si)). Перепрыгиваем через это слово i:=i+length(si) если слово не то, тогда i:=i+1.