|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2011, 15:06 | #1 |
Пользователь
Регистрация: 08.12.2011
Сообщений: 29
|
как одно слово заменить не другое?
Каждое слово one заменить на three... ( Нужно использовать только length и setlength вместо delete pos insert) .... люди подскажите как это сделать??
program z5123; var T:string; i:integer; zc,zn:string; begin writeln('input T'); readln(T); zc:='one'; zn:='three'; while pos(zc,T)>0 do begin i:=pos(zc,T); delete(T,i,length(zc)); insert(zn,T,i); end; writeln(' new text'); writeln(T); readln end. |
27.12.2011, 20:01 | #2 |
Форумчанин
Регистрация: 19.03.2010
Сообщений: 409
|
Выделять из строки слова и записывать их в другую строковую переменную, заменяя слово one на three, при этом остальные символы переписывать как есть.
Есть вопросы, пишите в ЛС.
|
27.12.2011, 20:07 | #3 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
вот так например
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заменить заданное слово в тексте, находящемся в заданном файле, на другое слово (С++) | Lapochka | Помощь студентам | 6 | 01.12.2011 14:05 |
Работа со строками.даны три слова.Одно из них имеет меньшее количество символов,чем другое.Определить и в | Ashley | Помощь студентам | 6 | 01.06.2010 22:08 |
Как заменить слово в текстовом поле. | vladtr | SQL, базы данных | 2 | 19.04.2010 09:46 |
Как заменить определенное слово в ячейке, на содержимое другой ячейки. | Брысь | Microsoft Office Excel | 2 | 04.03.2010 16:01 |