|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.04.2007, 16:11 | #1 |
Регистрация: 10.04.2007
Сообщений: 5
|
в Делфи3 выбор подстроки
Всем привет!
Уже неделю мучаю код и чего-то догнать не могу. мне нужно получить из строки типа ///3568/79/125///5/ строку 3568_79_125_5 функция replace text в Delphi3 не работает. У меня или все / удаляются или заменяются на _. а если проверка работает, то только на первом символе и все. Помогите! |
10.04.2007, 16:12 | #2 |
Форумчанин
Регистрация: 04.03.2007
Сообщений: 615
|
pos + copy + delete
|
10.04.2007, 16:53 | #3 |
Регистрация: 10.04.2007
Сообщений: 5
|
|
10.04.2007, 17:16 | #4 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
var i:integer; //просто так
s: string; //наша строка //делаем так, чтоб не встречалось более 1 слеша подряд While pos('//',s)<>0 do begin i:=pos('//',s); delete(i,2); insert('/',s,i); end; //заменяем все слеши на _ While pos('/',s)<>0 do begin i:=pos('/',s); delete(i,1); insert('_',s,i); end; Код не проверял, так написал. Осталось удалить "_" в конце и в начале строки S - это уже сами... Я спешу очень. |
11.04.2007, 13:19 | #5 |
Регистрация: 10.04.2007
Сообщений: 5
|
О! блин, подвела страсть к минимизации - я все пыталась сделать код поменьше. ну ладно, пусть будет больше, но лучше! спасибо !
|
11.04.2007, 19:44 | #6 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Да не за что. Код далеко не идеальный, в спешке писал, но если работает - значит всё ок.
|
11.04.2007, 20:27 | #7 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
как альтернатива, есть функция stringreplace, заменять все подстроки типа "/", "//", "///" на "_"
|
12.04.2007, 08:19 | #8 | ||
Регистрация: 10.04.2007
Сообщений: 5
|
Цитата:
Цитата:
как говорится: все гениальное - просто! Последний раз редактировалось zetrix; 12.04.2007 в 14:56. Причина: объединение постов |
||
23.04.2007, 11:57 | #9 |
Регистрация: 10.04.2007
Сообщений: 5
|
Кстати, может примерный алгоритм набросаешь? Только без delete
Последний раз редактировалось scorpik_olga; 23.04.2007 в 12:00. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вхождение подстроки в строку! | Edimus | Общие вопросы C/C++ | 4 | 04.04.2011 07:50 |
значение из подстроки | GazimagomedovM | Помощь студентам | 2 | 10.07.2008 08:50 |
как найти длину последней подстроки в паскале | Artem1987 | Помощь студентам | 1 | 27.12.2007 18:17 |
Работа с текстом (замена подстроки) | GAGARIN-NEW | Общие вопросы Delphi | 12 | 20.11.2007 16:54 |