Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

Помогите пожалуйста с текстом..   Найти похожие ветки 

 
Alcogol   (2002-11-05 09:06) [0]

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

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

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

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


 
Lego ©   (2002-11-05 09:12) [1]

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


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

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


 
Anatoly Podgoretsky ©   (2002-11-05 09:34) [3]

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


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

2 Alcogol

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


 
Snake ©   (2002-11-05 10:12) [5]

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



 
Calm ©   (2002-11-05 12:42) [6]

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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2002.11.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
1-45979
AlexanderSK
2002-11-04 17:37
2002.11.14
Выгрузка DLL


1-45961
Zuvom
2002-11-04 13:31
2002.11.14
Удаление файла


3-45786
Ээх
2002-10-24 22:37
2002.11.14
Я с помощью sql запроса делаю выборку из 2,3, ... n таблиц в DBGr


1-45869
opoloXAI
2002-11-05 15:45
2002.11.14
ComPort for Windows2000 (NT)


14-46062
Zergling
2002-10-23 12:45
2002.11.14
Popup меню для Delphi 7 в стиле XP