Page 1 sur 1
[R] Valider une adresse ip avec une expression régulière
Posté : sam. 04 janv. 2014 02:07
par 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
Re: [..] Valider une adresse ip avec une expression régulièr
Posté : sam. 04 janv. 2014 02:27
par Sea
Re: [R] Valider une adresse ip avec une expression régulière
Posté : sam. 04 janv. 2014 10:12
par 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
J'ai utilisé cette fonction dans cette discussion :
Changement d'adresse ip automatique (Travail + Maison)