Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/как вытянуть текст между ключевым текстом и вставить в ячейк - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » как вытянуть текст между ключевым текстом и вставить в ячейк (Формулы/Formulas)
как вытянуть текст между ключевым текстом и вставить в ячейк
smok10 Дата: Вторник, 27.10.2015, 23:32 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день!
Просьба помочь.
есть текст в одной ячейки
1.:
<p style="text-align: center;">[lock password="112358"]<a href="http://yadi.sk/d/B00Inig0KmdRS" target="_blank"> Скачать книгу</a>[/lock]</p>
нужно вытянуть из него ссылку http://yadi.sk/d/B00Inig0KmdRS
и вставить его в отдельную ячейку
по сути ключевыми и одинаковыми значениями будут перед ссылкой:<a href=" и после ссылки :" target="_blank">
как сделать формулу чтобы вытянуть все что после <a href=" и до " target="_blank">??
текст (ссылки) везде разные
пример во вложении
Заранее спасибо
К сообщению приложен файл: 5907969.xlsx (8.9 Kb)


Сообщение отредактировал smok10 - Вторник, 27.10.2015, 23:43
 
Ответить
СообщениеДобрый день!
Просьба помочь.
есть текст в одной ячейки
1.:
<p style="text-align: center;">[lock password="112358"]<a href="http://yadi.sk/d/B00Inig0KmdRS" target="_blank"> Скачать книгу</a>[/lock]</p>
нужно вытянуть из него ссылку http://yadi.sk/d/B00Inig0KmdRS
и вставить его в отдельную ячейку
по сути ключевыми и одинаковыми значениями будут перед ссылкой:<a href=" и после ссылки :" target="_blank">
как сделать формулу чтобы вытянуть все что после <a href=" и до " target="_blank">??
текст (ссылки) везде разные
пример во вложении
Заранее спасибо
Автор - smok10
Дата добавления - 27.10.2015 в 23:32
МВТ Дата: Вторник, 27.10.2015, 23:46 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Мне кажется Вы перепутали, значение между <a href= и target=. Если правильно понял, то так[vba]
Код
Function tt(Text As String) As String
With CreateObject("VBScript.RegExp")
    .IgnoreCase = True
    .Pattern = "(?:<a href="")(.+?)(?="" target=)"
    If .Test(Text) Then tt = .Execute(Text)(0).SubMatches(0)
End With
End Function
[/vba]
 
Ответить
СообщениеМне кажется Вы перепутали, значение между <a href= и target=. Если правильно понял, то так[vba]
Код
Function tt(Text As String) As String
With CreateObject("VBScript.RegExp")
    .IgnoreCase = True
    .Pattern = "(?:<a href="")(.+?)(?="" target=)"
    If .Test(Text) Then tt = .Execute(Text)(0).SubMatches(0)
End With
End Function
[/vba]
Автор - МВТ
Дата добавления - 27.10.2015 в 23:46
smok10 Дата: Вторник, 27.10.2015, 23:49 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
извините за тупой вопрос, куда вставлять эту формулу??
или как её использовать?
во вложении файл с примером, можно на нём указать?


Сообщение отредактировал smok10 - Вторник, 27.10.2015, 23:51
 
Ответить
Сообщениеизвините за тупой вопрос, куда вставлять эту формулу??
или как её использовать?
во вложении файл с примером, можно на нём указать?
Автор - smok10
Дата добавления - 27.10.2015 в 23:49
AlexM Дата: Вторник, 27.10.2015, 23:52 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Формула для С3
Код
=ПСТР(ЛЕВБ(B3;ПОИСК("?"" target";B3));ПОИСК("href=";B3)+6;99)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеФормула для С3
Код
=ПСТР(ЛЕВБ(B3;ПОИСК("?"" target";B3));ПОИСК("href=";B3)+6;99)
Автор - AlexM
Дата добавления - 27.10.2015 в 23:52
smok10 Дата: Вторник, 27.10.2015, 23:54 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
ООО супер получилось:))))
AlexM спасибо огромное.
лайк тебе
 
Ответить
СообщениеООО супер получилось:))))
AlexM спасибо огромное.
лайк тебе
Автор - smok10
Дата добавления - 27.10.2015 в 23:54
МВТ Дата: Вторник, 27.10.2015, 23:55 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
smok10, это пользовательская функция. Почитать про них можно здесь
 
Ответить
Сообщениеsmok10, это пользовательская функция. Почитать про них можно здесь
Автор - МВТ
Дата добавления - 27.10.2015 в 23:55
smok10 Дата: Среда, 28.10.2015, 00:05 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
МВТ спасибо
 
Ответить
СообщениеМВТ спасибо
Автор - smok10
Дата добавления - 28.10.2015 в 00:05
AlexM Дата: Среда, 28.10.2015, 00:25 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Код
=ЛЕВБ(B3;ПОИСК("??<p";B3))

PS. вставка формул глючит. пробую вставить по другому[vba]
Код
=ЛЕВБ(B3;ПОИСК("??<p";B3))
[/vba]


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Среда, 28.10.2015, 00:27
 
Ответить
Сообщение
Код
=ЛЕВБ(B3;ПОИСК("??<p";B3))

PS. вставка формул глючит. пробую вставить по другому[vba]
Код
=ЛЕВБ(B3;ПОИСК("??<p";B3))
[/vba]
Автор - AlexM
Дата добавления - 28.10.2015 в 00:25
smok10 Дата: Среда, 28.10.2015, 00:31 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
AlexM, Да получилось спасибо!!!!
Не представляешь как выручил, сэкономлено неделя жизни)))))


Сообщение отредактировал smok10 - Среда, 28.10.2015, 00:31
 
Ответить
СообщениеAlexM, Да получилось спасибо!!!!
Не представляешь как выручил, сэкономлено неделя жизни)))))
Автор - smok10
Дата добавления - 28.10.2015 в 00:31
Мир MS Excel » Вопросы и решения » Вопросы по Excel » как вытянуть текст между ключевым текстом и вставить в ячейк (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!