Выбрать определенные слова из текста
Chelovekov
Дата: Вторник, 10.04.2018, 13:38 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Здравствуйте, гуры Екселя !!!! Помогите решить проблему, нужно из текста выбрать определенные слова. Образец прилагаю. Всем спасибо.
Здравствуйте, гуры Екселя !!!! Помогите решить проблему, нужно из текста выбрать определенные слова. Образец прилагаю. Всем спасибо. Chelovekov
Ответить
Сообщение Здравствуйте, гуры Екселя !!!! Помогите решить проблему, нужно из текста выбрать определенные слова. Образец прилагаю. Всем спасибо. Автор - Chelovekov Дата добавления - 10.04.2018 в 13:38
sboy
Дата: Вторник, 10.04.2018, 13:46 |
Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Добрый день. 1 строчки мало, дайте больше вариантов. Т.к. решение конкретно для этой строки может не работать для других
Добрый день. 1 строчки мало, дайте больше вариантов. Т.к. решение конкретно для этой строки может не работать для других sboy
Яндекс: 410016850021169
Ответить
Сообщение Добрый день. 1 строчки мало, дайте больше вариантов. Т.к. решение конкретно для этой строки может не работать для других Автор - sboy Дата добавления - 10.04.2018 в 13:46
Chelovekov
Дата: Вторник, 10.04.2018, 13:53 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Вот так пойдет ???
Ответить
Сообщение Вот так пойдет ??? Автор - Chelovekov Дата добавления - 10.04.2018 в 13:53
sboy
Дата: Вторник, 10.04.2018, 14:00 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
[vba]Код
Function chelovekov(t As String, nom As Integer) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[A-Za-z]+ [A-z]." chelovekov = .Execute(t)(nom - 1) End With End Function
[/vba]
[vba]Код
Function chelovekov(t As String, nom As Integer) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[A-Za-z]+ [A-z]." chelovekov = .Execute(t)(nom - 1) End With End Function
[/vba] sboy
Яндекс: 410016850021169
Ответить
Сообщение [vba]Код
Function chelovekov(t As String, nom As Integer) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[A-Za-z]+ [A-z]." chelovekov = .Execute(t)(nom - 1) End With End Function
[/vba] Автор - sboy Дата добавления - 10.04.2018 в 14:00
Chelovekov
Дата: Вторник, 10.04.2018, 14:09 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Сказать что я восхищен, не сказать не чего. Дай бог вам здоровья. ОГРОМНОЕ СПАСИБО !!!!
Сказать что я восхищен, не сказать не чего. Дай бог вам здоровья. ОГРОМНОЕ СПАСИБО !!!! Chelovekov
Ответить
Сообщение Сказать что я восхищен, не сказать не чего. Дай бог вам здоровья. ОГРОМНОЕ СПАСИБО !!!! Автор - Chelovekov Дата добавления - 10.04.2018 в 14:09
китин
Дата: Вторник, 10.04.2018, 14:11 |
Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
а так пойдет?,Код
=ПСТР(ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);"");1;ПОИСК("[";ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);""))-1)
а так пойдет?,Код
=ПСТР(ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);"");1;ПОИСК("[";ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);""))-1)
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение а так пойдет?,Код
=ПСТР(ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);"");1;ПОИСК("[";ПОДСТАВИТЬ(A6;ЛЕВБ(A6;ПОИСК("» ";A6)+1);""))-1)
Автор - китин Дата добавления - 10.04.2018 в 14:11
Chelovekov
Дата: Вторник, 10.04.2018, 14:17 |
Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Питчеры » Bettis C. [COL] (В, 2-4), Ryu Hyun-Jin [LAD] (П, 5-9) Блин, блин а вот с этим примером вторая фамилия не полностью, можно решить ?
Питчеры » Bettis C. [COL] (В, 2-4), Ryu Hyun-Jin [LAD] (П, 5-9) Блин, блин а вот с этим примером вторая фамилия не полностью, можно решить ? Chelovekov
Ответить
Сообщение Питчеры » Bettis C. [COL] (В, 2-4), Ryu Hyun-Jin [LAD] (П, 5-9) Блин, блин а вот с этим примером вторая фамилия не полностью, можно решить ? Автор - Chelovekov Дата добавления - 10.04.2018 в 14:17
китин
Дата: Вторник, 10.04.2018, 14:18 |
Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
с этим примером вторая фамилия не полностью
а мой пример смотрели? там полностью
с этим примером вторая фамилия не полностью
а мой пример смотрели? там полностью китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение с этим примером вторая фамилия не полностью
а мой пример смотрели? там полностью Автор - китин Дата добавления - 10.04.2018 в 14:18
Chelovekov
Дата: Вторник, 10.04.2018, 14:19 |
Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Питчеры » Перес М. [TEX] (В, 13-12), Алькантара Р. [OAK] (П, 1-2) Мне уже не удобно, но с фамилиями на русском тоже проблема.
Питчеры » Перес М. [TEX] (В, 13-12), Алькантара Р. [OAK] (П, 1-2) Мне уже не удобно, но с фамилиями на русском тоже проблема. Chelovekov
Ответить
Сообщение Питчеры » Перес М. [TEX] (В, 13-12), Алькантара Р. [OAK] (П, 1-2) Мне уже не удобно, но с фамилиями на русском тоже проблема. Автор - Chelovekov Дата добавления - 10.04.2018 в 14:19
Chelovekov
Дата: Вторник, 10.04.2018, 14:21 |
Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Спасибо обоим, дай Бог вам здоровье.
Ответить
Сообщение Спасибо обоим, дай Бог вам здоровье. Автор - Chelovekov Дата добавления - 10.04.2018 в 14:21
китин
Дата: Вторник, 10.04.2018, 14:22 |
Сообщение № 11
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение не верю (с)Автор - китин Дата добавления - 10.04.2018 в 14:22
sboy
Дата: Вторник, 10.04.2018, 14:51 |
Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
я поэтому Вам и писал Пока новый паттерн не придумал...
я поэтому Вам и писал Пока новый паттерн не придумал... sboy
Яндекс: 410016850021169
Ответить
Сообщение я поэтому Вам и писал Пока новый паттерн не придумал... Автор - sboy Дата добавления - 10.04.2018 в 14:51
sboy
Дата: Вторник, 10.04.2018, 15:26 |
Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Для извлечения паттерн так и не составил, пришлось пойти путем замены [vba]Код
Function chelovekov(t As String, nom As Integer) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[А-я]+ »|\[.{4}|\(.{6,8}\)" q = Split(Trim(.Replace(t, "")), ",") chelovekov = Trim(q(nom - 1)) End With End Function
[/vba]
Для извлечения паттерн так и не составил, пришлось пойти путем замены [vba]Код
Function chelovekov(t As String, nom As Integer) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[А-я]+ »|\[.{4}|\(.{6,8}\)" q = Split(Trim(.Replace(t, "")), ",") chelovekov = Trim(q(nom - 1)) End With End Function
[/vba] sboy
Яндекс: 410016850021169
Ответить
Сообщение Для извлечения паттерн так и не составил, пришлось пойти путем замены [vba]Код
Function chelovekov(t As String, nom As Integer) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[А-я]+ »|\[.{4}|\(.{6,8}\)" q = Split(Trim(.Replace(t, "")), ",") chelovekov = Trim(q(nom - 1)) End With End Function
[/vba] Автор - sboy Дата добавления - 10.04.2018 в 15:26
Chelovekov
Дата: Четверг, 12.04.2018, 14:28 |
Сообщение № 14
Группа: Проверенные
Ранг: Обитатель
Сообщений: 310
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Еще раз спасибо за содействие
Ответить
Сообщение Еще раз спасибо за содействие Автор - Chelovekov Дата добавления - 12.04.2018 в 14:28
sboy
Дата: Понедельник, 16.04.2018, 17:08 |
Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Для извлечения паттерн так и не составил
Сегодня в теме , Сергей sv2014 посоветовал книгу по регуляркам. Прочитав менее 14% книги (вся книга 598 страниц)), я смог составить паттерн для execute задачи из этого топика! [vba]Код
Function chelovekov(t As String, nom As Integer) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "(?:» |\), )([^[]*)" chelovekov = .Execute(t)(nom - 1).Submatches(0) End With End Function
[/vba]
Для извлечения паттерн так и не составил
Сегодня в теме , Сергей sv2014 посоветовал книгу по регуляркам. Прочитав менее 14% книги (вся книга 598 страниц)), я смог составить паттерн для execute задачи из этого топика! [vba]Код
Function chelovekov(t As String, nom As Integer) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "(?:» |\), )([^[]*)" chelovekov = .Execute(t)(nom - 1).Submatches(0) End With End Function
[/vba]sboy
Яндекс: 410016850021169
Ответить
Сообщение Для извлечения паттерн так и не составил
Сегодня в теме , Сергей sv2014 посоветовал книгу по регуляркам. Прочитав менее 14% книги (вся книга 598 страниц)), я смог составить паттерн для execute задачи из этого топика! [vba]Код
Function chelovekov(t As String, nom As Integer) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "(?:» |\), )([^[]*)" chelovekov = .Execute(t)(nom - 1).Submatches(0) End With End Function
[/vba]Автор - sboy Дата добавления - 16.04.2018 в 17:08