Модератор: Дед Пахом
Код: Выделить всё
l:Adres='ВасяПетяЖ.что'
len#=Len(Clip(l:Adres))
PosDom#=InString('Ж.',UPPER(Clip(l:Adres)),1,1)
message('PosDom#='&PosDom#&' len#='&len#)Код: Выделить всё
l:Adres='ВасяПетяЖ.что'
len#=Len(Clip(l:Adres))
PosDom#=InString('Ж.',UPPER(Clip(l:Adres)),-1,Len#)
message('PosDom#='&PosDom#&' len#='&len#)
То есть 'Ж.' в поиске назад использовать нельзя.The only negative step value allowed is -1, and the search string must be 1 character long in this case. In other words, a negative step is not allowed with any substring greater than 1 character.
Вообще это чушь, разбирать строку по непонятным критериям. "Д." вполне может быть деревней, дорогой и т.д. Если, конечно, Вы точно уверены в строке, то да.Андрей писал(а):Да, да
Ну на самом деле не 'Ж.' а 'Д.' в адресе надо номер дома найти
Нас. пункт ТакойТо ул. ТакаяТо д. 55 к.а кв.11
Пришлось циклик делать, коль InString неполноценная с конца
Если искать "д." слева направо, то конечно можно на деревню дедушке попасть, но ежели справа налево, то в моем случае на 100% на дом попадаю.kreator писал(а):Вообще это чушь, разбирать строку по непонятным критериям. "Д." вполне может быть деревней, дорогой и т.д. Если, конечно, Вы точно уверены в строке, то да.Андрей писал(а):Да, да
Ну на самом деле не 'Ж.' а 'Д.' в адресе надо номер дома найти
Нас. пункт ТакойТо ул. ТакаяТо д. 55 к.а кв.11
Пришлось циклик делать, коль InString неполноценная с конца
Может лучше КЛАДР посмотреть? Или, действительно, сервис Дадаты рассмотреть? На 100% не хранится там всё в одной строке.
Код: Выделить всё
PosDom#=InString(REVERSE('Ж.'),REVERSE(UPPER(Clip(l:Adres))),1,1)
И эта функция каким-то образом должна работать по крайней мере на порядок быстрее Instring.Shur писал(а):Если очень нужно искать с конца, то можно написать функцию типа REVERSE(), переворачивающую строку. Тогда
Код: Выделить всё
PosDom#=InString(REVERSE('Ж.'),REVERSE(UPPER(Clip(l:Adres))),1,1)
даст вам ожидаемое.
Читаем с начала, а не с конца:
А вообще про эффективность автор темы не спрашивал. На данном этапе, как я понимаю, его больше заботит правильный разбор адреса.
Спорить не буду, вот здесь последнее обсуждение скорости instring - http://forum.clarionlife.net/phpbb/view ... f=1&t=3751.Shur писал(а):IMHO Функция INSTRING по природе своей не быстра, поэтому переворачивание строк сильно уже не повредит.
Код: Выделить всё
MyInstring PROCEDURE(pat STRING, str STRING, step LONG, pos LONG),LONG
CODE
len1# = len(str)
len2# = len(pat)
if len1# < len2#
RETURN(0)
end
from# = choose(step=-1,len1#,pos)
to# = choose(step=-1,len2#,len1#-len2#+1)
loop i# = from# to to# by step
if by# < 0
if str[i#-len2#+1:i#] = pat
RETURN(i#-len2#+1)
end
else
if str[i#:i#+len2#-1] = pat
RETURN(i#)
end
end
end
RETURN(0)
