Разбиение текста по частям

@okunaiskyi@mail · Регистрация: 05.05.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте. Подскажите пожалуйста как можно сделать такую штуку. Есть к примеру ячейка содержащая следующий текст "105-2, 30-3/3, 111-2/2", необходимо что бы код выбрал и "вытащил" текст от 105 до первого встречного знака "/" со следующим за ним значением (а именно что бы получилось "105-2, 30-3/3"

. А в другов случае что бы от 111 (и получился такой результат "111-2/2"

. Вытащинные данные нужно хранить в какой то одной переменной по очереди. Т.Е. текст нужно выбирать от определенного заданного значения до определенного значения с +1 значением после него. В файле пример значений и что должно получиться.

@Vlad999 · 15.04.2015, 08:18

суть такая? формулой если после / всегда одина цифра

Код

=ПСТР(C6;ПОИСК(B6;C6);ПОИСК("/";C6;ПОИСК(B6;C6))+2-ПОИСК(B6;C6))

@okunaiskyi@mail · 15.04.2015, 08:43 **[ТС]**

Ну да что то похожее.Вот правильная формула которая подходит и работает со всеми нюансами. Только не знаю как сделать тоже самое только кодом. В формуле вместо 105 может быть любое число.

Код

=ПОДСТАВИТЬ(ПСТР(ПСТР(C7;ПОИСК("105";C7);99);ПОИСК("/";ПСТР(C7;ПОИСК("105";C7);99))+1;2);",";"")

@Vlad999 · 15.04.2015, 08:57

Сообщение от okunaiskyi@mail

В формуле вместо 105 может быть любое число.

как указывается это число? в некой ячейке или вводится вручную?
ПСТР - в vba - MID
ПОИСК - InSrt (внимательно расположение переменных не соответствует как в формуле)
ПОдставить - Replace

@okunaiskyi@mail · 15.04.2015, 09:08 **[ТС]**

Сообщение от Vlad999

В формуле вместо 105 может быть любое число.

Данное число задается через переменную, которую зададим вручную. Ну например объявим некую переменную Х тогда формула выглядит так:

Код

=ПОДСТАВИТЬ(ПСТР(ПСТР(C7;ПОИСК("Х";C7);99);ПОИСК("/";ПСТР(C7;ПОИСК("Х";C7);99))+1;2);",";"")

@Vlad999 · 15.04.2015, 10:27

Сообщение от okunaiskyi@mail

Вот правильная формула которая подходит и работает со всеми нюансами

Точно? У меня условие

ячейка содержащая следующий текст "105-2, 30-3/3, 111-2/2"..... что бы получилось "105-2, 30-3/3"

не выполняется. Ваша формула выдает просто 3.

Visual Basic

1
2
3

Function MyText(Ячейка As Range, Значение)
MyText = Replace(Mid(Mid(Ячейка, InStr(1, Ячейка, Значение), 99), InStr(1, Mid(Ячейка, InStr(1, Ячейка, Значение), 99), "/") + 1, 2), ",", "") 'ваша формула на языке VBA
End Function

Добавлено через 10 минут
использование ф-ции в коде

Visual Basic

1
2
3

Sub VVV()
MsgBox MyText(Range("C6"), 105)
End Sub

Новые блоги и статьи
Как обучить нейросеть создания картинок на Python bytestream 24.01.2025 В эпоху цифровых технологий искусственный интеллект становится неотъемлемой частью творческого процесса. Особое место в этой области занимает разработка и обучение нейронных сетей для создания. . .	Как обучить нейросеть генерации текста на Python bytestream 24.01.2025 В современном мире искусственный интеллект и машинное обучение становятся неотъемлемой частью многих технологических решений. Одной из наиболее интересных и востребованных задач в этой области. . .	Машинное обучение на Python bytestream 24.01.2025 Введение в машинное обучение на Python Машинное обучение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, которая позволяет компьютерным системам. . .	Как удалить вирус-майнер с компьютера hw_wired 24.01.2025 Вирусы-майнеры стали одной из наиболее серьезных угроз для пользователей компьютеров. Эти вредоносные программы тайно используют вычислительные ресурсы зараженного устройства для добычи криптовалюты. . .	Что такое веб-сервер, для чего он нужен и как работает bytestream 24.01.2025 В современную эпоху цифровых технологий веб-сервер является фундаментальным компонентом интернет-инфраструктуры, обеспечивающим функционирование множества онлайн-сервисов и веб-сайтов. Этот. . .	Как в цикле for перебрать все элементы в словаре в Python bytestream 24.01.2025 Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .
Как отменить rebase в Git hw_wired 24.01.2025 Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .	Как поменять цвет input placeholder с помощью CSS bytestream 24.01.2025 В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .	Как перебрать все значения в перечислении (enum) в C# bytestream 24.01.2025 Перечисление (enum) в языке программирования C# представляет собой специальный тип данных, который позволяет определить набор именованных констант. Этот мощный инструмент особенно полезен, когда. . .	Как обойтись без проверки на null, чтобы избежать NullPointerException в Java bytestream 24.01.2025 NullPointerException (NPE) является одним из самых распространенных исключений в Java, создающих серьезные проблемы при разработке программного обеспечения. Данное исключение возникает при попытке. . .	Что лучше использовать в href ссылок в JavaScript: "#" или "javascript:void(0)" bytestream 24.01.2025 При разработке веб-приложений важную роль играет правильное использование HTML-ссылок в сочетании с JavaScript. Одним из ключевых аспектов является выбор корректного значения атрибута href для. . .	Как узнать индекс элемента списка по его значению в Python hw_wired 24.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только манипулировать элементами списка, но и определять их точное местоположение. Индекс элемента представляет собой. . .

@Vlad999 3927 / 2324 / 786 Регистрация: 02.11.2012 Сообщений: 6,176
	15.04.2015, 08:18	2
	суть такая? формулой если после / всегда одина цифра Код =ПСТР(C6;ПОИСК(B6;C6);ПОИСК("/";C6;ПОИСК(B6;C6))+2-ПОИСК(B6;C6)) 0

@okunaiskyi@mail 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 28
	15.04.2015, 08:43 [ТС]	3
	Ну да что то похожее.Вот правильная формула которая подходит и работает со всеми нюансами. Только не знаю как сделать тоже самое только кодом. В формуле вместо 105 может быть любое число. Код =ПОДСТАВИТЬ(ПСТР(ПСТР(C7;ПОИСК("105";C7);99);ПОИСК("/";ПСТР(C7;ПОИСК("105";C7);99))+1;2);",";"") 0

@Vlad999 3927 / 2324 / 786 Регистрация: 02.11.2012 Сообщений: 6,176
	15.04.2015, 08:57	4
	Сообщение от okunaiskyi@mail В формуле вместо 105 может быть любое число. как указывается это число? в некой ячейке или вводится вручную? ПСТР - в vba - MID ПОИСК - InSrt (внимательно расположение переменных не соответствует как в формуле) ПОдставить - Replace 0

@okunaiskyi@mail 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 28
	15.04.2015, 09:08 [ТС]	5
	Сообщение от Vlad999 В формуле вместо 105 может быть любое число. Данное число задается через переменную, которую зададим вручную. Ну например объявим некую переменную Х тогда формула выглядит так: Код =ПОДСТАВИТЬ(ПСТР(ПСТР(C7;ПОИСК("Х";C7);99);ПОИСК("/";ПСТР(C7;ПОИСК("Х";C7);99))+1;2);",";"") 0

	15.04.2015, 10:27