0 / 0 / 0
Регистрация: 13.06.2021
Сообщений: 7
1

Вырезать текст до русских символов

07.10.2021, 19:59. Показов 713. Ответов 7
Метки нет (Все метки)

Приветствую, столкнулся с такой проблемой, у текста разная ширина и через обычную функция "разделение текста по ширине", не получается, но есть за что зацепиться, все что нужно вырезать в другую ячейку находиться до русских символов
вот пример
Sauer 7103 Смеситель для умывальника
"Sauer 7103" - должно быть вырезано на другую ячейку или "Смеситель для умывальника"
размерами отличается от ячейки к ячейки, вот еще пример
Aller 10641WHITE Смеситель для ванны и душа
"Aller 10641WHITE" и "Смеситель для ванны и душа"
вопрос, как это можно сделать? если есть возможность, подскажите формулу или скрипт, заранее спасибо
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.10.2021, 19:59
Ответы с готовыми решениями:

Как настроить ввод русских символов и в дальнейшем вывод этих символов
Подскажите как в этом коде настроить ввод русских символов и в дальнейшем вывод этих символов....

Чтение русских символов. Отрицательные значения у символов
Добрый вечер. Считую файл .txt. Но русские буквы получают отрицательное значение. И в итоге при...

Вырезать текст
Код, извлекает все между скобками () , при условии что в тексте, между скобками, имеется знак +. ...

Вырезать текст
Даны два многострочных текст бокса. Из textbox1 нужно вырезать весь текст начиная с 4 строки и...

7
776 / 471 / 155
Регистрация: 22.12.2015
Сообщений: 1,392
07.10.2021, 20:08 2
Nacu27, если проблема действительно соответствует вашему описанию, то вам следует скопировать вашу таблицу в word, убрать ненужное поиском и заменой с подстановочными знаками и скопировать все обратно.
1
0 / 0 / 0
Регистрация: 13.06.2021
Сообщений: 7
07.10.2021, 20:27  [ТС] 3
Цитата Сообщение от Dinoxromniy Посмотреть сообщение
убрать ненужное поиском и заменой с подстановочными знаками и скопировать все обратно.
в ворде не очень понимаю, если есть время, можете пожалуйста подробнее объяснить
0
820 / 477 / 149
Регистрация: 30.03.2013
Сообщений: 966
07.10.2021, 20:37 4
Если английское название всегда состоит из двух слов, тогда можно применить две следующие формулы
Код
=LEFT(A1;SEARCH(" ";A1)+SEARCH(" ";RIGHT(A1;LEN(A1)-SEARCH(" ";A1))))
Код
=MID(RIGHT(A1;LEN(A1)-SEARCH(" ";A1));SEARCH(" ";RIGHT(A1;LEN(A1)-SEARCH(" ";A1)));222)
1
Вложения
Тип файла: xlsx Book1_santechnika.xlsx (8.6 Кб, 3 просмотров)
776 / 471 / 155
Регистрация: 22.12.2015
Сообщений: 1,392
07.10.2021, 20:37 5
Nacu27, нет в доступе ни ворда, ни экселя.
Поиск в word поддерживает почти что нормальные регулярные вражения, с досадными, правда, исключениями. Если их освоить, решать можно и гораздо более сложные задачи.
Полагаю, в экселе решение также найдется.
1
5714 / 2992 / 626
Регистрация: 23.11.2010
Сообщений: 9,976
07.10.2021, 21:06 6
Nacu27, нужен файл с примером возможных данных.
По описанному - можно заменить на # второй пробел, затем Текст по столбцам с разделителем #
1
74 / 40 / 15
Регистрация: 16.07.2020
Сообщений: 129
07.10.2021, 21:24 7
Это можно сделать макросом. Пример для ячейки A1.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub SplitT()
  a = Cells(1, 1)
  l = Len(a)
  For i = 1 To l
    Z = Mid(a, i, 1)
    If Z >= "А" And Z <= "я" Or Z = "Ё" Or Z = "ё" Then
      Cells(1, 3) = Left(a, i - 1)
      Cells(1, 4) = Right(a, l - i + 1)
      Exit For
    End If
  Next i
End Sub
1
1955 / 1337 / 626
Регистрация: 23.03.2015
Сообщений: 4,355
08.10.2021, 01:31 8
Лучший ответ Сообщение было отмечено Nacu27 как решение

Решение

Nacu27,
Цитата Сообщение от AlexOld Посмотреть сообщение
Это можно сделать макросом
Для данных в столбце А разделение по столбцам В и С
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MMM()
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
    With CreateObject("VBScript.RegExp")
        .Pattern = "[A-Za-z0-9 ]+"
        For i = 1 To LR
            If .Test(Cells(i, 1).Value) Then
             Cells(i, 2).Value = .Execute(Cells(i, 1).Value).Item(0)
             Cells(i, 3).Value = .Replace(Cells(i, 1).Value, "")
            End If
        Next
    End With
Application.ScreenUpdating = True
 
MsgBox "job Complete"
End Sub
В прикрепленном файле нажмите на кнопку
2
Вложения
Тип файла: rar Book1_santechnika.rar (15.1 Кб, 8 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2021, 01:31

Вырезать текст
Подскажите, как можно реализовать такое, Есть 2 файла в первом файле текст, в нём находится...

Множества.Задача 5. Дан текст из строчных русских букв, за которым следует точка. Напечатать в алфавитном порядке все буквы, входящие в текст не менее
Множества.Задача 5. Дан текст из строчных русских букв, за которым следует точка. Напечатать в...

Вырезать текст с тегов
Как вырезать текст по тегам? А именно, пример: &lt;h3&gt;Текст текст текст&lt;/h3&gt; другой текст Какие...

Вырезать текст (preg_match)
Всем привет. preg_match('/\&lt;!--rightblock--\&gt;(.+)\&lt;!--\/rightblock--\&gt;/is', $this-&gt;templates,...

вырезать часть символов из строки
из переменной типа string нужно забрать часть символов раньше использовал result &quot;123 -...

Вырезать кавычки и обрезать текст
Всем здрасте. Помогите разобраться. В общем вывожу из бд текст и сразу обрезаю его до 300...

Вырезать текст внутри div-ов
Как на notepad++(можно и на php) реализовать такое: 1) Есть html-файлы вида: Код: &lt;div...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.