Всем привет мне хотелось бы получит регулярное выражения которое проверяло бы содержит ли переменная IP4 адрес видел подобные темы но или я чего то не понимаю или не все так просто когда начинаю проверять сразу вижу не соответствие
пробовал скачивать программу RegExp v1.0.2 с сайта AZJIO и там в программе есть пример для моего случая но том тоже ошибка ткните меня носом где правильный рабочий пример или я не все знаю ???
Во вложении скриншот ошибки
пробовал скачивать программу RegExp v1.0.2 с сайта AZJIO и там в программе есть пример для моего случая но том тоже ошибка ткните меня носом где правильный рабочий пример или я не все знаю ???
Во вложении скриншот ошибки
Код:
if My_Check_IP("300.45.19.222") Then
ConsoleWrite ( " является IP адресом " & @CRLF)
Else
ConsoleWrite ( " НЕ является IP адресом " & @CRLF)
EndIf
Func My_Check_IP($_in_par1)
;ConsoleWrite ( "Запуск проверки на соответствию правильному шаблону имени файла" & @CRLF)
;$s_shablon = '((?:\d{1,3}\.){3}\d{1,3})'
$s_shablon = '(?:(?:2(?:[0-4][\d|5[0-5])|[0-1]?\d{1,2})\.){3}(?:(?:2(?:[0-4]\d|5[0-5])|[0-1]?\d{1,2}))'
$aResult_raion = StringRegExp($_in_par1, $s_shablon, 0)
If @error == 2 Then
ConsoleWrite ( "Неправильный шаблон" & "@extended = " & @extended & @CRLF)
; _Log_Report($hLog, "Неправильный шаблон" & "@extended = " & @extended, 111)
else
;ConsoleWrite ( "А сюда попадает? $_in_par1 = " & $_in_par1 & @CRLF)
If $aResult_raion Then
ConsoleWrite ( "Совпадение!!! " & $_in_par1 & @CRLF)
Return True
Else
ConsoleWrite ( "Не А Не подходит " & $_in_par1 & " $aResult_raion = " &$aResult_raion & @CRLF)
;ConsoleWrite ( "-------------------------------------------------------" & @CRLF)
Return False
EndIf
EndIf
EndFunc
