Saisie Adresse IP

**noname_971** · 17/02/2006, 15h44

Bonjour tout le monde,

J'aimerai savoir si l'on peut vérifier le contenu d'un champ après la saisie d'un utilisateur.

C'est à dire vérifier par exemple que l'utilisateur à bien entré trois "." et que des chiffres pour une adresse IP.

Je vous remercie d'avance.

**Dolphy35** · 17/02/2006, 15h48

Salut,

Cherche au niveau du Masque de Saisie.

**noname_971** · 17/02/2006, 16h06

J'ai essayé plusieurs masque de saisie mais ça ne marche pas dont celui là : ##0"."##0"."##0"."##0

**Dolphy35** · 17/02/2006, 16h49

Envoyé par noname_971

J'ai essayé plusieurs masque de saisie mais ça ne marche pas dont celui là : ##0"."##0"."##0"."##0

Presque met plutôt cela : 000"."000"."000;0;@

**noname_971** · 17/02/2006, 18h52

J'ai essayé mais ça ne marche pas car si je veux saisir par exemple l'adresse IP "10.123.215.2", je suis obligé de mettre des 0 pour avoir les 12 caractères.
Et si apres, je veux effectuer un ping, mon résultat sera faussé.

**Dolphy35** · 17/02/2006, 19h09

re,

met cela alors 00"."000"."000"."0;0;@

le 0 oblige à l'utilisateur de mettre un chiffre.

**noname_971** · 17/02/2006, 19h17

J'ai compris mais le problème est que je ne sais pas combien de chiffre comprendra l'adresse IP.
Le masque de saisie que tu m'indique oblige l'utilisateur a entré une certaine quantité de chiffre.

**Dolphy35** · 17/02/2006, 19h29

Une adresse IP comporte toujours le même nombre de chiffre ? Normalement le nombre ne varie pas.

**Tofalu** · 17/02/2006, 19h52

Envoyé par Dolphy35

Une adresse IP comporte toujours le même nombre de chiffre ? Normalement le nombre ne varie pas.

Tu peux trés bien avoir

192.1.1.1
192.168.1.1
192.234.234.231

Le nombre de chiffre varie bel et bien

En VBA, tu aurais plus de facilité je pense non ? Car il faut aussi controler que chaque bloc n'excede pas 255

**Dolphy35** · 17/02/2006, 19h58

Envoyé par Tofalu

Le nombre de chiffre varie bel et bien

c'est ce que je voulais savoir, merci Tofalu.

il va devoir ce créer une fonction de contrôl.
J'étais à côté de la plaque depuis le début.
-1 pour moi

je sors

**noname_971** · 17/02/2006, 21h35

Oui, mais j'aimerai savoir est ce que l'on peut parcourir le contenu d'un champ comme un tableau afin de vérifier son contenu

**cafeine** · 17/02/2006, 23h39

Hello,

En exclu mondiale sur mon futur tutoriel sur les RegExp ...

NB : ajouter impérativement la référence Microsoft VBScript Regular Expressions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function ValidIp(ByVal strIP As String) As Boolean
 
Dim reg As New VBScript_RegExp_55.RegExp
 
reg.Pattern = "^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$"
ValidIp = reg.Test(strIP)
 
Set reg = Nothing
 
End Function

Explications :

on décompose ce qu'est une adresse IP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(Numérique<=255)(.)(Numérique<=255)(.)(Numérique<=255)(.)(Numérique<=255)

puis on "factorise"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

((Numérique<=255)(.)){3}(Numérique<=255)

ensuite on exprime ce qu'est un numérique inférieur à 255
. cas 1 : s'il commence par
25- il peut prendre 250 à 255 : ça s'écrit 25[0-5]
[x-y] s'appelle une classe et comprend tous les caractères entre x et y

. cas 2 : s'il commence par
2-- il peut prendre 200 à 249, sachant qu'un numérique de 0 à 9 se note \d
on écrira : 2[0-4]\d

. cas 3 : nous avons enfin toute la plage qui va de 0 à 199
le ? signifie que le caractère n'est pas obligatoire
entre 0 et 9 => \d
entre 0 et 99 => \d?\d
entre 0 et 199 => 1?\d?\d

Sachant qu'un numérique <= 255 peut être un des trois cas nous utilisons le OU qui se note |

donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part