VBA. Извлечение текста между известными символами

Пользователь

Сообщений: 982 Регистрация: 28.12.2012

13.12.2011 14:11:40

Добрый вечер.
Вопрос простой, но решение сложноватое.
Как можно быстро извлечь текст, находящийся в String между символами ">" и "<"?
Например:
String = " <data>18</data>"
результат = 18

Мой алгоритм: поиск позиций символов ">" и "<" и с помощью mid(...) извлекаю. Долго и длинно.
Есть ли функция/алгоритм проще?
Спасибо.

Guest Гость	#2 13.12.2011 14:18:05 Может через замену? Replace What:="<*>", Replacement:=""

sva Пользователь Сообщений: 1027 Регистрация: 23.12.2012	#3 13.12.2011 14:18:15 Split(Split("<data>18</data>", "<")(1), ">")(1)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 13.12.2011 14:19:16 ? Public Function www$(s$) www = Split(Split(s, ">")(1), "<")(0) End Function Я сам - дурнее всякого примера! ...

Guest Гость	#5 13.12.2011 14:21:34 Спасибо большое, молодые люди! )

Guest Гость	#6 13.12.2011 14:40:19 А так не быстрее будет? strNew=Replace(strOld, "<*>", "")

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#7 13.12.2011 14:48:48 Диана, идите к нам, а то все макросы да макросы :) =ПСТР(A1;ПОИСК(">";A1)+1;ПОИСК("<";A1)-ПОИСК(">";A1)-1)

nerv

Пользователь

Сообщений: 3071 Регистрация: 22.12.2012

13.12.2011 15:13:51

{quote}{login=The_Prist}{date=13.12.2011 02:34}{thema=}{post}От себя добавлю(просто в качестве инфо): конструкция Mid в паре с InStr хоть и нудная и длинная, но работать будет быстрее чем Split{/post}{/quote}
Склонен согласиться, по крайней мере у меня на машине применительно к js.

Только вчера тестил:
1. js: Split/Pop; vba: Split
2. js: lastIndexOf/substring; vba: InStr/Mid

Хотя пример достаточно специфический...
http://javascript.ru/forum/misc/23941-izvlech-iz-ssylki-chislo-2.html

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh

nerv Пользователь Сообщений: 3071 Регистрация: 22.12.2012	#9 13.12.2011 15:16:25 InStr/Mid эт дело на том примере, кот. я разбирал, даже RegExp по времени обошло ^_^ Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук https://github.com/nervgh

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	#10 13.12.2011 20:31:53 Еще раз спасибо всем за оказанную помощь! :)

Читают тему