Всем доброго времени суток. Есть 3 задачи. 1. A1 - Аккумулятор Sony12345 бжжжж B1 - Вывести всё после слова аккумулятор из А1 2. А2 - Аккумулятор Sony12345 бжжжж B2 - Вывести А1 исключая все кириллические символы. 3. А3 - Аккумулятор Sony12345 бжжжж B3 - Вывести искомую часть текста. Подскажите пожалуйста функции или методы.
Всем доброго времени суток. Есть 3 задачи. 1. A1 - Аккумулятор Sony12345 бжжжж B1 - Вывести всё после слова аккумулятор из А1 2. А2 - Аккумулятор Sony12345 бжжжж B2 - Вывести А1 исключая все кириллические символы. 3. А3 - Аккумулятор Sony12345 бжжжж B3 - Вывести искомую часть текста. Подскажите пожалуйста функции или методы.acidnoise
Так ? непонятно примечание по 1 задаче, написано должно быть "Аккумулятор", а описание вывести все после слова аккумулятор, т.е. должно быть "Sony12345 бжжжж" тогда применяем сцепить?
Так ? непонятно примечание по 1 задаче, написано должно быть "Аккумулятор", а описание вывести все после слова аккумулятор, т.е. должно быть "Sony12345 бжжжж" тогда применяем сцепить?AVP
Пардон , в примере действительно ошибся. У вас вывод по индексу cимвола "пробел", а мне нужно, после конкретного значения, т.к. вместо "аккумулятор" может быть "Средняя часть корпуса" например, а может быть и так что аккумулятор окажется посреди ячейки. И таких строк около 5к. прикладываю пример исправленый
Пардон , в примере действительно ошибся. У вас вывод по индексу cимвола "пробел", а мне нужно, после конкретного значения, т.к. вместо "аккумулятор" может быть "Средняя часть корпуса" например, а может быть и так что аккумулятор окажется посреди ячейки. И таких строк около 5к. прикладываю пример исправленыйacidnoise
Пардон , в примере действительно ошибся. У вас вывод по индексу cимвола "пробел", а мне нужно, после конкретного значения, т.к. вместо "аккумулятор" может быть "Средняя часть корпуса" например, а может быть и так что аккумулятор окажется посреди ячейки. И таких строк около 5к. прикладываю пример исправленый
Вы вложите файл максимально заполненный всякого рода информацией, и критерии по которым надо выбирать. Индекс символа "пробел", ну выберите тогда свой индекс тот же "Аккумулятор" файл попарвленный. Критерии прописывайте свои. Стыкуйте формулы.
Цитатаacidnoise,
Пардон , в примере действительно ошибся. У вас вывод по индексу cимвола "пробел", а мне нужно, после конкретного значения, т.к. вместо "аккумулятор" может быть "Средняя часть корпуса" например, а может быть и так что аккумулятор окажется посреди ячейки. И таких строк около 5к. прикладываю пример исправленый
Вы вложите файл максимально заполненный всякого рода информацией, и критерии по которым надо выбирать. Индекс символа "пробел", ну выберите тогда свой индекс тот же "Аккумулятор" файл попарвленный. Критерии прописывайте свои. Стыкуйте формулы.AVP
Спасибо большое формулы подходят, а как прикрутить проверку: если в тексте имеется какая либо фраза, в данном случае слово "аккумулятор" то выполнить выше представленную формулу.
Спасибо большое формулы подходят, а как прикрутить проверку: если в тексте имеется какая либо фраза, в данном случае слово "аккумулятор" то выполнить выше представленную формулу.acidnoise
Сообщение отредактировал acidnoise - Суббота, 29.03.2014, 09:55
Function Substring(txt, Delimiter, n) As String Dim X As Variant X = Split(txt, Delimiter) If n > 0 And n - 1 <= UBound(X) Then Substring = X(n - 1) Else Substring = "" End If End Function
[/vba]
[vba]
Код
Function ENGLISH(cell As Range) As String
Dim lCount As Long, i As Long Dim s As String, prefix As String Dim re As Object, mc As Object
Set re = CreateObject("VBScript.RegExp")
With re .Pattern = "[a-z\d]+" .Global = True .IgnoreCase = True End With
Set mc = re.Execute(cell)
prefix = " " lCount = mc.Count
If lCount > 0 Then For i = 0 To lCount - 1 If i = lCount - 1 Then prefix = "" s = s & mc(i) & prefix Next End If
ENGLISH = s
Set re = Nothing Set mc = Nothing
End Function
[/vba]
Подскажите пожалуйста что нужно исправить, чтоб символы знаков припинания не заменялись пробелами? если удаляю prefix = " ", то и пробелы вовсе исчезают. Мне нужно чтоб например символ "." оставался неизменным.
[vba]
Код
Function Substring(txt, Delimiter, n) As String Dim X As Variant X = Split(txt, Delimiter) If n > 0 And n - 1 <= UBound(X) Then Substring = X(n - 1) Else Substring = "" End If End Function
[/vba]
[vba]
Код
Function ENGLISH(cell As Range) As String
Dim lCount As Long, i As Long Dim s As String, prefix As String Dim re As Object, mc As Object
Set re = CreateObject("VBScript.RegExp")
With re .Pattern = "[a-z\d]+" .Global = True .IgnoreCase = True End With
Set mc = re.Execute(cell)
prefix = " " lCount = mc.Count
If lCount > 0 Then For i = 0 To lCount - 1 If i = lCount - 1 Then prefix = "" s = s & mc(i) & prefix Next End If
ENGLISH = s
Set re = Nothing Set mc = Nothing
End Function
[/vba]
Подскажите пожалуйста что нужно исправить, чтоб символы знаков припинания не заменялись пробелами? если удаляю prefix = " ", то и пробелы вовсе исчезают. Мне нужно чтоб например символ "." оставался неизменным.acidnoise
Задача усложнилась, вот например фраза "Корпус Samsung D74/,.-80 Duos золотой" Как вывести только "Samsung D74/,.-80 Duos" вместе с символами?
Задача усложнилась, вот например фраза "Корпус Samsung D74/,.-80 Duos золотой" Как вывести только "Samsung D74/,.-80 Duos" вместе с символами?acidnoise