Имеется текстовый файл произвольного содержания. Среди прочего, в тексте содержится ip-адрес. Нужно быстро его найти.
Может, у кого-то есть готовая функция? Регулярные выражения приветствуются.

Нужно вернуть строку с первым попавшимся в тексте ip-адресом.

; Ну, например так:
; получаем откуда-то текст
s=GetTextForSearch();
; создаём объект для выполнения регулярных выражений
Set re=CreateObject("VbScript.RegExp")
; заполняем реквизиты
re.Global=True
re.IgnoreCase=True
; самое главное - наш шаблон, который ищем
re.Pattern="([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})"
; выполняем выражение
Set m=r.Execute(s)
t="Результат: " & CStr(m.Length)
If m.Length>0 Then
; вместо такого цикла можно использовать For i=1 To m.Length
For Each i In m
 ; в случае For нужно выбирать значение через m.Item(i).Value
 t=t & vbCrLf & i.Value
Next
End If
MsgBox t,0,"Вот они"

(2) Спасибо! ) То, что нужно!