Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Dyshess
0 / 0 / 0
Регистрация: 22.11.2015
Сообщений: 10
1

Обработка текста

27.12.2015, 21:01. Просмотров 219. Ответов 6
Метки нет (Все метки)

Добрый вечер, нужна программа с формой, которая убирает заданные слова, к примеру: предложение - ни пуха ни пера. Нужно сделать так что-бы когда введешь текст к примеру в Edit она убрала частицу "ни" и выдала в другой Edit текст: пуха пера.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2015, 21:01
Ответы с готовыми решениями:

Ввод текста, обработка и вывод текста в то же поле
Здравствуйте!Как сделать в delphi 10 seattle нечто вроде экспертных...

обработка текста
кто сможет подсказать, нужно разработать программу обработки текста, определить...

Обработка текста
Появилась задумка, но незнаю, возможно ли это вообще сделать: Имеется текст,...

обработка текста
есть программа она должна считать часто встречающиеся символы в тексте как...

Обработка текста
как сделать, чтобы программа в мемо текст и удаляла его и соседние 2-4...

6
Алекcей
361 / 353 / 137
Регистрация: 11.12.2013
Сообщений: 1,896
27.12.2015, 21:33 2
для замены подстроки используйте функцию StringReplace
0
droider
Universal
Эксперт Pascal/Delphi
4405 / 2451 / 765
Регистрация: 04.10.2012
Сообщений: 8,911
27.12.2015, 21:39 3
Dyshess, можно так. Упрощенно
Delphi
1
2
3
4
5
6
7
8
var
text, substr:string;
begin
 text :=Edit1.Text;  //весь текст
 substr :=Edit2.Text; //удаляемая подстрока
 While Pos(substr, text)>0 do Delete(text, Pos(substr, text), Length(substr));
 ShowMessage(text);
end;
либо так
Delphi
1
2
ShowMessage(StringReplace(Edit1.Text, Edit2.Text, '',
                          [rfReplaceAll, rfIgnoreCase]));
1
AHBAR
239 / 239 / 167
Регистрация: 05.04.2013
Сообщений: 1,111
28.12.2015, 06:19 4
Цитата Сообщение от droider Посмотреть сообщение
Dyshess, можно так. Упрощенно
ваш текст не совсем верен или я неправильно понимаю ТС
Delphi
1
Edit2.Text  := StringReplace(Edit1.Text, 'ни ', '',[rfReplaceAll, rfIgnoreCase]);
обязательно частицу ни с пробелом, иначем код сотрет ни например в слове никогда
1
droider
Universal
Эксперт Pascal/Delphi
4405 / 2451 / 765
Регистрация: 04.10.2012
Сообщений: 8,911
28.12.2015, 06:40 5
AHBAR, подстрока "ни" приведена ТС'ом для примера. Суть задачи: удалить указанную подстроку в заданном тексте.

К тому же, такие задачи даются для освоения навыков работы со строками. StringReplace слишком прост. Поэтому я привёл два варианта.
1
AHBAR
239 / 239 / 167
Регистрация: 05.04.2013
Сообщений: 1,111
28.12.2015, 08:10 6
droider, он просит вывести в Edit2, а у вас Edit2 это подстрока, вот я и подумал что-то не то.
тогда для тренировки вот еще пример:
Delphi
1
2
3
4
5
6
7
8
9
Var
a,b,c:String;
begin
a := Edit1.text; // исходная строка
b := 'ни '; // подстрока
While Pos(b, a)>0 do
a := Copy(a,1,Pos(b,a)-1) + Copy(a,Pos(b,a)+Length(b),Length(a)-Pos(b,a)+Length(b)+1);
ShowMessage(a);
end;
1
droider
Universal
Эксперт Pascal/Delphi
4405 / 2451 / 765
Регистрация: 04.10.2012
Сообщений: 8,911
28.12.2015, 11:22 7
Цитата Сообщение от AHBAR Посмотреть сообщение
он просит вывести в Edit2, а у вас Edit2 это подстрока, вот я и подумал что-то не то.
Хотя бы что-то ТС должен переделать под себя сам Я лишь привел общую суть.
1
28.12.2015, 11:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.12.2015, 11:22

Обработка текста
Уважаемые форумчане, посдкажите...В программе пользователю предложено ввести...

Работа с файлами текстовых данных. Обработка текста
Составить алгоритм и программу обработки текста 1) чтение строк текста из...

Обработка текста: вывести предложение с наименьшим количеством слов
Задание : "Дан массив строк(всего 8 строк). Необходимо написать процедуру,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru