Выбрать определенные слова из текста
Chelovekov
Дата: Вторник, 10.04.2018, 13:38 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация:
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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Вот так пойдет ???
Ответить
Сообщение Вот так пойдет ??? Автор - Chelovekov Дата добавления - 10.04.2018 в 13:53
sboy
Дата: Вторник, 10.04.2018, 14:00 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
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
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
sboy
Яндекс: 410016850021169
Ответить
Сообщение [vba]
Function chelovekov(t As String ; nom As Integer ) With CreateObject("VBScript.RegExp") .Global = Тrue .Pattern = "[A-Za-z]+ [A-z]." chelovekov = .Execute(t )(nom - 1) End WithEnd Function
[/vba] Автор - sboy Дата добавления - 10.04.2018 в 14:00
Chelovekov
Дата: Вторник, 10.04.2018, 14:09 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Сказать что я восхищен, не сказать не чего. Дай бог вам здоровья. ОГРОМНОЕ СПАСИБО !!!!
Сказать что я восхищен, не сказать не чего. Дай бог вам здоровья. ОГРОМНОЕ СПАСИБО !!!! Chelovekov
Ответить
Сообщение Сказать что я восхищен, не сказать не чего. Дай бог вам здоровья. ОГРОМНОЕ СПАСИБО !!!! Автор - Chelovekov Дата добавления - 10.04.2018 в 14:09
китин
Дата: Вторник, 10.04.2018, 14:11 |
Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация:
1079
±
Замечаний:
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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация:
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
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
с этим примером вторая фамилия не полностью
а мой пример смотрели? там полностью
с этим примером вторая фамилия не полностью
а мой пример смотрели? там полностью китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение с этим примером вторая фамилия не полностью
а мой пример смотрели? там полностью Автор - китин Дата добавления - 10.04.2018 в 14:18
Chelovekov
Дата: Вторник, 10.04.2018, 14:19 |
Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация:
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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Спасибо обоим, дай Бог вам здоровье.
Ответить
Сообщение Спасибо обоим, дай Бог вам здоровье. Автор - Chelovekov Дата добавления - 10.04.2018 в 14:21
китин
Дата: Вторник, 10.04.2018, 14:22 |
Сообщение № 11
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация:
1079
±
Замечаний:
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
Для извлечения паттерн так и не составил, пришлось пойти путем замены
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
Для извлечения паттерн так и не составил, пришлось пойти путем замены
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
sboy
Яндекс: 410016850021169
Ответить
Сообщение Для извлечения паттерн так и не составил, пришлось пойти путем замены [vba]
Function chelovekov(t As String ; nom As Integer ) With CreateObject("VBScript.RegExp") .Global = Тrue .Pattern = "[А-я]+ »|\[.{4}|\(.{6,8}\)" q = Split(Тrim(.Replace(t ; "")); ",") chelovekov = Тrim(q(nom - 1)) End WithEnd Function
[/vba] Автор - sboy Дата добавления - 10.04.2018 в 15:26
sboy
Дата: Понедельник, 16.04.2018, 17:08 |
Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Для извлечения паттерн так и не составил
Сегодня в теме , Сергей sv2014 посоветовал книгу по регуляркам. Прочитав менее 14% книги (вся книга 598 страниц)), я смог составить паттерн для execute задачи из этого топика!
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
Для извлечения паттерн так и не составил
Сегодня в теме , Сергей sv2014 посоветовал книгу по регуляркам. Прочитав менее 14% книги (вся книга 598 страниц)), я смог составить паттерн для execute задачи из этого топика!
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
sboy
Яндекс: 410016850021169
Ответить
Сообщение Для извлечения паттерн так и не составил
Сегодня в теме , Сергей sv2014 посоветовал книгу по регуляркам. Прочитав менее 14% книги (вся книга 598 страниц)), я смог составить паттерн для execute задачи из этого топика! [vba]
Function chelovekov(t As String ; nom As Integer ) With CreateObject("VBScript.RegExp") .Global = Тrue .Pattern = "(?:» |\), )([^[]*)" chelovekov = .Execute(t )(nom - 1).Submatches(0) End WithEnd Function
[/vba]Автор - sboy Дата добавления - 16.04.2018 в 17:08