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

Вниз

Помогите разобрать строку, нужно взять только цифры с "конца"   Найти похожие ветки 

 
mmms   (2005-06-01 10:01) [0]

Строка 52/552/554-552/999, нужно скопировать только 999, Pos & Copy и бесконечные переборы слеша, потом Delete после слеша не удобно, может как нибудь поудобнее можно сделать?
Заранее благодарю.


 
mmms   (2005-06-01 10:02) [1]

999 - и т.п. это цифра после последнего слеша, может быть и 2х значной, и 5ти значной..


 
Rule ©   (2005-06-01 10:10) [2]

чего, совсем не хочешь головой думать, а циклы зачем по твоему?


 
Mx ©   (2005-06-01 10:17) [3]

Delete(S, LastDelimiter("/", S), MaxInt);


 
mmms   (2005-06-01 10:31) [4]

Mx ©   (01.06.05 10:17)
LastDelimiter, это то что надо! Что лучше, код с циклом на 6-8 строк, и плюс несколько переменных, или 1 слово!!! Круто!! Благодарю!!


 
Antonn ©   (2005-06-01 10:32) [5]


> Что лучше, код с циклом на 6-8 строк, и плюс несколько
> переменных, или 1 слово!!!

это не просто слово, это функция, в которой и 6-8 строк и переменные...


 
Mx ©   (2005-06-01 10:35) [6]

В [3] я "инвертнул" результат. Чтоб получить 999 надо:
S := Copy(S, LastDelimiter("/", S) + 1, MaxInt);


 
Юрий Зотов ©   (2005-06-01 10:51) [7]

Еще вариант:
ExtractFileName(StringReplace(S, "/", "\", [rfReplaceAll]))


 
mmms   (2005-06-01 11:03) [8]

Юрий Зотов
Ух ты, через имя файла я тоже как то не додумался, хотя я не с файлами и директориями эту задачу решаю, а договора у нас типа этого пронумеровываются. Но да, действительно, и так можно воспользоваться.

Antonn ©   (01.06.05 10:32)
так Антон, в том и дело, что нет желания переписывать все встроенные ф-я в VCL. А то что есть какие то редкие, я догадывался но не знал. теперь вот буду знать :)



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

Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.06 c
1-1117865358
Brain Force
2005-06-04 10:09
2005.06.29
Динамическое изменение обработчика кнопки


1-1117806913
Deka
2005-06-03 17:55
2005.06.29
Обновление для Delphi 2005...


14-1117516680
КаПиБаРа
2005-05-31 09:18
2005.06.29
Будет ли кризис судебной системы?


6-1110568217
Bailey
2005-03-11 22:10
2005.06.29
pereslat record cheres UDP indy 10


4-1115211348
Volume
2005-05-04 16:55
2005.06.29
Delete Ctrl+Alt+Del





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский