Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
14-46050
Жаждущий ответа
2002-10-28 21:15
2002.11.14
Тип real и ему подобные


1-45946
kiko
2002-11-04 12:13
2002.11.14
Какая разница между кодировками Win1251 и WIN


14-46076
Anatoly Podgoretsky
2002-10-24 08:52
2002.11.14
Именинники 24 октября


3-45685
b-Ars
2002-10-15 15:44
2002.11.14
2 приложения конфликтуют на одинаковых базах


1-45980
First_May
2002-11-04 14:56
2002.11.14
MDI проект...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский