[R] Valider une adresse ip avec une expression régulière

[Hackoo]

Je veux traduire cette fonction écrite en Vbscript en Autoit

► Afficher le texteCode Vbscript

Code : Tout sélectionner

Titre = "Tester la validité d'une d'Adresse IP"
AdressIP = InputBox("Veuillez saisir une Adresse IP ",Titre,"172.16.18.21")
if IP_Valide(AdressIP) = True Then
    MsgBox AdressIP & " est une Adresse IP Valide",64,Titre
else
    MsgBox AdressIP & " est une Adresse IP NON Valide",16,Titre
End if
 
gateway = InputBox("Entrez la passerelle", "gateway default","255.255.255.0")
if IP_Valide(gateway) = True Then
    MsgBox gateway & " est une Adresse IP Valide",64,Titre
else
    MsgBox gateway & " est une Adresse IP NON Valide",16,Titre
End if
 
Function IP_Valide(ip)
    Set RegularExpressionObject = New RegExp
    With RegularExpressionObject
        .Pattern = "^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$"
        .IgnoreCase = False
        If .Test(ip)= True then
            IP_Valide = True
        end if
    End With
End Function

pour votre aide

[Sea]

http://www.autoitscript.com/wiki/Snippe ... net_)#IsIP

[Hackoo]

et pour le lien qui est très intéressant et le problème est de cette façon

Code : Tout sélectionner

Local $Titre = "Tester la validité d'une d'Adresse IP"
Local $IP = InputBox("Veuillez saisir une Adresse",$Titre,"172.16.18.21")
If $IP = "" Then Exit
if IP_Valide($IP) = True Then
    Msgbox(64,$Titre,$IP & " est une adresse est valide")
else
    MsgBox(16,$Titre,$IP & " est une adresse est non valide")
EndIf

Local $IP = InputBox("Veuillez saisir une Adresse",$Titre,"500.800.18.21")
if IP_Valide($IP) = True Then
    Msgbox(64,$Titre,$IP & " est une adresse valide")
else
    MsgBox(16,$Titre,$IP & " est une adresse non valide")
EndIf

Func IP_Valide($ip)
    Return StringRegExp ($ip,"^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$")
EndFunc

Remarque : J'ai utilisé cette fonction dans cette discussion : Changement d'adresse ip automatique (Travail + Maison)