Вырезать текст между скобками в Excel ?

Программирование на Visual Basic for Applications
Nagano
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 08.08.2006 (Вт) 16:07

Вырезать текст между скобками в Excel ?

Сообщение Nagano » 08.08.2006 (Вт) 17:09

Не могу найти ответ на вопрос. Целый день искал:(
Есть текст в ячейке
"Received: from localhost ([208.65.108.127]) by blablabla"
Надо выдрать IP (удалить лишние слова в тексте, включая скобки)
Как?

Bahus
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 31.07.2006 (Пн) 12:13
Откуда: Беларусь

Сообщение Bahus » 08.08.2006 (Вт) 17:19

У тебя перед IP всегда одинаковое количество символов или нет?

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 08.08.2006 (Вт) 17:22

Посмотри хелп по InStr, InStrRev, Mid, + некоторые детали реализации будут зависеть от того, могут ли быть круглые или квадратные скобочки в полях from и by.
Быть... или не быть. Вот. В чём вопрос?

Bahus
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 31.07.2006 (Пн) 12:13
Откуда: Беларусь

Сообщение Bahus » 08.08.2006 (Вт) 17:27

Че молчишь? Если да, то исползуй формулу =ПСТР(A1;28;14), если у тебя не в А1, то поменяй значение :wink: .
Если число символов всегда разное, то надо еще подумать.

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 08.08.2006 (Вт) 18:25

Найдите в гугле regexp для IP адреса. Я точно помню что такой был но сейчас мне просто лень копаться :)

А потом юзайте find с regexp и excel сам вам выделит кусок с адресом :)

KL
Microsoft MVP
 
Сообщения: 483
Зарегистрирован: 30.10.2005 (Вс) 0:31
Откуда: Madrid

Re: Вырезать текст между скобками в Excel ?

Сообщение KL » 08.08.2006 (Вт) 23:16

Nagano писал(а):Не могу найти ответ на вопрос. Целый день искал:(
Есть текст в ячейке
"Received: from localhost ([208.65.108.127]) by blablabla"
Надо выдрать IP (удалить лишние слова в тексте, включая скобки)
Как?


Попробуй это:

Код: Выделить всё
Sub test()
    With [A1]
        MsgBox Mid(.Value, InStr(.Value, "[") + 1, InStr(.Value, "]") - InStr(.Value, "[") - 1)
    End With
End Sub
Привет,
KL


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 58

    TopList