Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Функция POS

269
15 февраля 2003 года
Greenering
892 / / 04.02.2003
В пасе есть функция POS, определяющая позицию подстрочки в строчке. Так вот фишка в том что определяет позицию первого вхождения. А как найти остальные?
2.5K
15 февраля 2003 года
Тоша
2 / / 05.11.2002
Самое, имхо, простое - переместить в другую переменную все от начала строки до (найденная позиция + 1), найти что надо, а потом прибавить к полученному результату длину скопированной строки (может, + или -1 символ). Или по-советски - 2 вложенных цикла...
554
15 февраля 2003 года
Zhilin Mike
159 / / 11.02.2003
Цикл аналогичен операции POS, если его правильно организовать. А с переменной дополнительный гемор.
Так что двойной цикл с проверкой в самый раз.
269
17 февраля 2003 года
Greenering
892 / / 04.02.2003
Цитата:
Originally posted by Тоша
Самое, имхо, простое - переместить в другую переменную все от начала строки до (найденная позиция + 1), найти что надо, а потом прибавить к полученному результату длину скопированной строки (может, + или -1 символ). Или по-советски - 2 вложенных цикла...


Нет ну все понятно, но а где листинг, это раз (1)
а второе (2): функция POS не имеет параметра работай с такой-то позиции.

269
17 февраля 2003 года
Greenering
892 / / 04.02.2003
Цитата:
Originally posted by Zhilin Mike
Цикл аналогичен операции POS, если его правильно организовать. А с переменной дополнительный гемор.
Так что двойной цикл с проверкой в самый раз.


см. ответ Тоше

323
06 апреля 2003 года
Sergun
228 / / 20.09.2000
Цитата:
Originally posted by Greenering

Нет ну все понятно, но а где листинг, это раз (1)
а второе (2): функция POS не имеет параметра работай с такой-то позиции.


А почему бы самому не написать элементарную функцию, в которой есть именно этот параметр который определяет с которого символа искать вхождение, а в самой функции будет что-то типа этого:

function exPos(substr,str:string; chNo:integer):integer;
var tmp:string;
begin
tmp:=copy(str,chNo,length(str));
exPos:=pos(substr,str);
end;

И все... че тут проблемного то? Непонимаю...

269
07 апреля 2003 года
Greenering
892 / / 04.02.2003
Цитата:
Originally posted by Sergun

А почему бы самому не написать элементарную функцию, в которой есть именно этот параметр который определяет с которого символа искать вхождение, а в самой функции будет что-то типа этого:

function exPos(substr,str:string; chNo:integer):integer;
var tmp:string;
begin
tmp:=copy(str,chNo,length(str));
exPos:=pos(substr,str);
end;

И все... че тут проблемного то? Непонимаю...



Что проблемного ? хех
пример: ищем подстроку в один символ,
фкц Pos выдаст позицию , а дальше КАК ?
А следующие символы, а? Допустим задача типа
нашел символ и перед ним поставил другой. По Pos отловится ПЕРВОЕ ВХОЖДЕНИЕ , а надо все !
Жду ответа

323
08 апреля 2003 года
Sergun
228 / / 20.09.2000
Цитата:
Originally posted by Greenering


Что проблемного ? хех
пример: ищем подстроку в один символ,
фкц Pos выдаст позицию , а дальше КАК ?
А следующие символы, а? Допустим задача типа
нашел символ и перед ним поставил другой. По Pos отловится ПЕРВОЕ ВХОЖДЕНИЕ , а надо все !
Жду ответа


короче берешь вышеуказанную функцию... и в цикле проверяешь каждое вхождение данного символа, получаешь индекс вхождения символа и вставляешь перед ним символ и все... че еще не понятно???

269
09 апреля 2003 года
Greenering
892 / / 04.02.2003
Цитата:
Originally posted by Sergun

короче берешь вышеуказанную функцию... и в цикле проверяешь каждое вхождение данного символа, получаешь индекс вхождения символа и вставляешь перед ним символ и все... че еще не понятно???


Мачо спокойно, задача решена
и все... че еще не понятно???

323
09 апреля 2003 года
Sergun
228 / / 20.09.2000
Цитата:
Originally posted by Greenering

Мачо спокойно, задача решена
и все... че еще не понятно???



ну наконец то :D :D :D

269
09 апреля 2003 года
Greenering
892 / / 04.02.2003
Цитата:
Originally posted by Sergun


ну наконец то :D :D :D


что "наконец-то"
фкц твоя не идет
А ТОША был прав.
Читать надо было внимательнее
Тоше поклон от меня

323
09 апреля 2003 года
Sergun
228 / / 20.09.2000
Цитата:
Originally posted by Greenering

что "наконец-то"
фкц твоя не идет
А ТОША был прав.
Читать надо было внимательнее
Тоше поклон от меня


Хех.. ну дык это ж экспромтом было...:)
Но все это впринципе прально....:(

269
10 апреля 2003 года
Greenering
892 / / 04.02.2003
Цитата:
Originally posted by Sergun

Хех.. ну дык это ж экспромтом было...:)
Но все это впринципе прально....:(



И тебе спасибо

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог