Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
После определенного слова скопировать текст (цифры)
 
#1
15.05.2018 15:13:59
Здравствуйте,

Ребят, подскажите пожалуйста как после определенного слова скопировать текст (цифры).
Мне нужно выписать все ip адреса из всего текста после "remote_" и заканчивая пробелом
К примеру из ячейки A4 нужно выписать 185.53.100.2 и так же из ячейки А84 и т.д.

Заранее спасибо!
 
 
 
#2
15.05.2018 15:30:28
в соседнем столбце вставьте такую функцию =ЕСЛИ(ЛЕВСИМВ(A1;7)="remote ";ПСТР(A1;8;ДЛСТР(A1)-12);"") и протяните ее. затем скопируйте весь столбец и сделайте вставку значений. отсортируйте столбец и будет список адресов
 
 
 
#3
15.05.2018 15:43:36
Спасибо большое, очень выручили!
 
 
 
#4
15.05.2018 16:00:13
Цитата
нужно выписать все ip адреса из всего текста после "remote_" и заканчивая пробелом
А вы уверены, что 185.53.100.2 является правильным IP адресом?
 
 
 
#5
15.05.2018 16:03:54
Цитата
Kuzmich написал:
А вы уверены, что 185.53.100.2 является правильным IP адресом?
А в чем проблема, нормальный Албанский адрес.
По вопросам из тем форума, личку не читаю.
 
 
 
#6
15.05.2018 16:16:44
Бен Форта в книге о регулярках  приводил шаблон для поиска IP адресов, так вот адрес 185.53.100.2 не находит
Код
.Pattern = "(((\d{1,2})|(1\d{2})|(2[0-4]\d)|(25[0-5]))\.){3}((1\d{2})|(2[0-4]\d)|(25[0-5]))"
 
 
 
#7
15.05.2018 17:29:13
Не совсем понимаю о чем речь, но с ip адресом все в порядке и при помощи формулы выше (которую немного подредактировал под разные ip) выцепил почти 5т адресов )
 
 
 
#8
15.05.2018 18:32:56
Kuzmich, этот шаблон почему-то требует, чтобы последнее число было не менее 100. Логично было бы повторить маску для первых трех чисел, только без точки
Код
.Pattern = "(((\d{1,2})|(1\d{2})|(2[0-4]\d)|(25[0-5]))\.){3}((\d{1,2})|(1\d{2})|(2[0-4]\d)|(25[0-5]))"
 
 
 
#9
15.05.2018 20:22:03
Казанский, Алексей, я не знаю точно, как формируется IP адрес по правилам, только знаю,что каждая составляющая не должна быть больше 255.
А формула  возьмет все неправиьные адреса, типа 999.999.999.999
 
 
 
#10
15.05.2018 20:29:23
Kuzmich, полный код можно?
 
 
 
#11
15.05.2018 21:29:40
Цитата
полный код можно?
UDF
Код
'Бэн Форта 
Function iIP(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .IgnoreCase = True
     .Pattern = "(((\d{1,2})|(1\d{2})|(2[0-4]\d)|(25[0-5]))\.){3}((1\d{2})|(2[0-4]\d)|(25[0-5]))"
     iIP = .Execute(cell)(0)
 End With
End Function
 
 
 
Страницы: 1
Наверх