Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите пожалуйста с текстом.. [D6]


Alcogol ©   (2002-11-05 09:06:00) 

Добрый день,
У меня есть текст:

<tag>TEXT1:TEXT2</tag>
<tag>TEXT1:TEXT2</tag>
<tag>TEXT1:TEXT2</tag>

TEXT1 постоянно меняеться, соответственно его длинна тоже.
Вот такой вопрос:
Как можно вырезать TEXT1 (т.е текст от ">" до ":") ?

Заранее благодарен..


Alcogol   (2002-11-05 14:13:00) [1]

Спасибо все за советы, у меня получилось! :-)


Calm   (2002-11-05 12:42:00) [2]

В D6 есть модуль для таких случаев. Называется StrUtils. Там есть фукнции для выделения слов из строки при заданных разделителях.
Аналогичный модуль есть в RX для D6 - rxStrUtils
RX для D5 - StrUtils.

Давно пользуюсь, очень удобно. Никаких запутанных вычислений, типа найти первый символ >, найти первый символ :, скопировать из строки подстроку, начиная с позиции вхождения первого символа >, заканчивая позицией вхождения первого символа :.


Snake   (2002-11-05 10:12:00) [3]

Лови:
s:="<tag>TEXT1:TEXT2</tag>"
Delete(S,6,pos(":")-1)


VDen   (2002-11-05 09:40:00) [4]

2 Alcogol

Ищи позицию двоеточия, отнимай единицу,
delete"ом удаляй кусок строки до этого символа.


Anatoly Podgoretsky   (2002-11-05 09:34:00) [5]

В чем проблема процедура Delete


Alcogol   (2002-11-05 09:32:00) [6]

Lego, это усе уже смотрел. Если бы длинна первого текста не менялась, то проблем бы не было. :-(


Lego   (2002-11-05 09:12:00) [7]

Посмотри в хелпе дельфовом фцнкции Copy, Pos, Delete


Наверх

Титульная страница Поиск, карта сайта Написать письмо