Парсинг текстовой строки (обрезка строки)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Парсинг текстовой строки (обрезка строки) (Макросы Sub)

Murdoc

Дата: Пятница, 07.03.2014, 12:01 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброй всем пятницы. К сожалению поиск не дал конкретных результатов или похожих примеров. Помогите пожалуйста разобраться с написанием макроса для обработки текстовой строки и вычленению из нее необходимой информации.

Строка может быть двух видов:
[текст1][ABCD_**][текст2][текст3]текст4
или [текст1][**-ABCD_**][текст2][текст3]текст4

ABCD - то что нужно вычленить из строки, количество символов неизвестно

В теории достаточно будет сначала обрезать все слева до первого вхождения символа "_", а потом пройтись по полученому куску уже справа на лево до первого вхождения символа "[" или же символа "-". Это в теории, как реализовать это на практике пока даже не знаю в какую сторону копать. Буду рад любой помощи.

Заранее спасибо.

Ответить

Hugo

Дата: Пятница, 07.03.2014, 14:00 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

[vba]

Код

Sub tt()
     Dim s$, rez$, arr
     s = "[текст1][ABCD_**][текст2][текст3]текст4"
     's = "[текст1][**-ABCD_**][текст2][текст3]текст4"
     rez = Split(s, "_")(0)
     rez = Replace(rez, "-", "[")
     arr = Split(rez, "[")
     rez = arr(UBound(arr))
     MsgBox rez
End Sub

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

ikki

Дата: Пятница, 07.03.2014, 15:04 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

[vba]

Код

Sub tt()
     s = "[текст1][ABCD_**][текст2][текст3]текст4"
     's = "[текст1][**-ABCD_**][текст2][текст3]текст4"
     With CreateObject("vbscript.regexp")
         .Pattern = "[-[]([^-[]*?)_"
         MsgBox .Execute(s)(0).submatches(0)
     End With
End Sub

[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

ikki

Дата: Пятница, 07.03.2014, 15:29 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

или даже ещё проще
[vba]

Код

Sub tt()
     s = "[текст1][ABCD_**][текст2][текст3]текст4"
     's = "[текст1][**-ABCD_**][текст2][текст3]текст4"
     With CreateObject("vbscript.regexp")
         .Pattern = "[^-[]*?(?=_)"
         MsgBox .Execute(s)(0)
     End With
End Sub

[/vba]