реверсное "найти"

[peq]

добрый день!

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

если кто-нибудь знает, как решать подобные задачки - скажите, пожалуйста.
макросы не интересуют, задачу надо решить через формулы.

если не совсем понятно, о чем я говорю, я написал пример
неизменяемая искомого слова - "ася".
=ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" печенье ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" курица ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" сырники ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" макароны ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;"Ст";" В")&"ася"&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5 ;" ряженка ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" молоко ";"")&ЕСЛИ(СЛУЧМЕЖДУ(0;10)>5;" кефир ";"")

[Czeslaw]

Протестируйте такую формулу
=MID(A1;SEARCH("\";SUBSTITUTE(A1;" ";"\";LEN(TRIM(LEFT(A1;SEARCH("ася" ;A1))))-LEN(SUBSTITUTE(LEFT(A1;SEARCH("ася" ;A1));" ";""))+1-1));SEARCH("\";SUBSTITUTE(A1;" ";"\";LEN(TRIM(LEFT(A1;SEARCH("ася" ;A1))))-LEN(SUBSTITUTE(LEFT(A1;SEARCH("ася" ;A1));" ";""))+1))-SEARCH("\";SUBSTITUTE(A1;" ";"\";LEN(TRIM(LEFT(A1;SEARCH("ася" ;A1))))-LEN(SUBSTITUTE(LEFT(A1;SEARCH("ася" ;A1));" ";""))+1-1)))

[peq]

Спасибо, но надо не совсем так - количество слов перед словом-ключом может меняться.
Через =НАЙТИ(" ";A1;НАЙТИ("ася";A1;1)) можно выйти на конец слова-ключа, но как выйти его начало.. загадка.

[Neyandex]

Сообщение от peq

Спасибо, но надо не совсем так - количество слов перед словом-ключом может меняться.
Через =НАЙТИ(" ";A1;НАЙТИ("ася";A1;1)) можно выйти на конец слова-ключа, но как выйти его начало.. загадка.

Тупо вычесть длину слова.

[peq]

а откуда ее взять?
изначально, я знаю лишь часть слова, грубо говоря - корень(соответственно и часть длины слова).
что перед ним и что после него я не знаю.

[Czeslaw]

Вы плохо протестировали мою формулу, т. к. я перед тем как выслать менял количество слов и она у меня работала и теперь работает.

[peq]

подумав еще, вариант вижу только один.. тупой правда.. но макросы, насколько, их вижу, обновляться будут медленнее намного, а скорость перерасчета мне критична.
вариант решения состоит в том, что хоть величина приставки программно не лимитирована, но выше 5-7 символов я ее пока не видел. соответственно, если i - начало корня, создаем десяток "если" и перебираем в поисках пробела символы строки i-1, i-2, ... i-10.

[peq]

Сообщение от Czeslaw

Вы плохо протестировали мою формулу, т. к. я перед тем как выслать менял количество слов и она у меня работала и теперь работает.

наоборот, хорошо проверил - нашел в ней ошибку
посмотрел еще раз - ошибка вылетает при нахождении в строке нескольких пробелов подряд(в моем примере подобное есть)
без изменения собственной структуры формула работать будет при A2=СЖПРОБЕЛЫ(A1) и переориентации формулы на А2.
глобально формула результат выдает правильный, сейчас в нее вчитаюсь. как она работает - сходу мне не совсем очевидно.
большое спасибо.

[kuklp]

Сколько строк предполагается так обрабатывать?

Dim r As Object

Public Function word$(s$)
    On Error GoTo word_Error
    word = r.Execute(s)(0)
    On Error GoTo 0
    Exit Function
word_Error:
    If Err.Number <> 91 Then
        Err.Raise 5
        Exit Function
    End If
    Set r = CreateObject("vbscript.regexp")
    r.Pattern = "[а-я]+ася": r.IgnoreCase = True
    Err.Clear
    Resume
End Function

Вот файл на 2.5к строк. Считаете это медленно?

[peq]

kuklp, спасибо.
строк не много - до тысячи, но данные подгружаются по ДДЕ, компьютер работает на износ, не хотелось бы его загружать ещё и автоматическим пересчетом в excel запущенным через макросы в фоне.
может быть, будете возражать, но по моим субъективным, внутренним ощущениям, встроенные формулы excel в большинстве аналогичных случаев работают существенно быстрее макросов.

p.s.
формулу разобрал, немного подкрутил, сейчас у меня она выглядит так:
=ПСТР(A1;ПОИСК("\";ПОДСТАВИТЬ(A1;" ";"\";ДЛСТР(ЛЕВСИМВ(A1;ПОИСК("ася"; A1)))-ДЛСТР(ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ася";A1));" ";""))))+1;НАЙТИ(" ";A1;НАЙТИ("ася";A1;1))-ПОИСК("\";ПОДСТАВИТЬ(A1;" ";"\";ДЛСТР(ЛЕВСИМВ(A1;ПОИСК("ася"; A1)))-ДЛСТР(ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ася";A1));" ";""))))+1)

>>=ПОИСК("\";ПОДСТАВИТЬ(A1;" ";"\";ДЛСТР(ЛЕВСИМВ(A1;ПОИСК("ася"; A1)))-ДЛСТР(ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ася";A1));" ";""))))+1
прикольная штука, вообще не очевидная, еще раз спасибо