Discussion :

[sovan]

Bonjour,

Je cherche une formule toute simple pour récupérer un chiffre sur une adresse ip

Par exemple j'ai 127.20.10.150

Je voudrais récupérer dernier chiffre C'est à dire "150" de façon dynamique.

Je peux utiliser le code ci-dessous mais il n'est pas fiable.

Code :

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

1
2
3
4
5
ip = "127.20.10.150"
 
   c = mid(ip, 11 , InStr(ip, ".") - 1) 
 
   wscript.echo c

Si je change l'adresse ip je suis obligé de changer le chiffre 11

Je pense qu'il faut compter jusqu’à 3eme point en suite on récupérer le reste


Avez vous d'autre solution pour moi ?

Je vous remercie d'avance

Cdt

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Ip, C
Ip = "127.20.10.150"
C = Right(Ip, InStr(1, StrReverse(Ip), ".", vbTextCompare) - 1)
wscript.echo "Ip = 127.20.10.150" & vbNewLine & c
 
Ip = "127.20.10.15"
C = Right(Ip, InStr(1, StrReverse(Ip), ".", vbTextCompare) - 1)
wscript.echo "Ip = 127.20.10.15" & vbNewLine & c
 
Ip = "127.20.10.1"
C = Right(Ip, InStr(1, StrReverse(Ip), ".", vbTextCompare) - 1)
wscript.echo "Ip = 127.20.10.1" & vbNewLine & c
 
Ip = "127.250.290.57"
C = Right(Ip, InStr(1, StrReverse(Ip), ".", vbTextCompare) - 1)
wscript.echo "Ip = 127.250.290.57" & vbNewLine & c

[sovan]

Merci ! (y)

[l_autodidacte]

Les solutions ne manquent pas, on peut y aller de maintes façons entre autres :

Code :

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

1
2
3
4
5
6
Ip = "127.250.290.57"
C = Right(Ip, InStr(1, StrReverse(Ip), ".", vbTextCompare) - 1) ' par ProgElecT
x = InStrRev(IP, ".")
msgbox "IP = " & Ip & vbcrlf & Right(IP,Len(IP)-x) ,,"En utilisant InStrRev"
wscript.echo "Ip = 127.250.290.57" & vbNewLine & c 
msgbox "IP = " & Ip & vbcrlf & Mid(IP, InStrRev(IP, ".") +1),,"En utilisant Mid et InStrRev"

à ProgElecT pour son idée

[ProgElecT]

Salut l_autodidacte
Ou encore

Code :

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

1
2
3
4
Dim Ip, C
Ip = "127.250.290.57"
C =  Split(Ip, ".")(3)
MsgBox C

Comme quoi il y a des fois de multiples chemins pour arriver à une solution.

[omen999]

bonjour à tous,
je vote pour la dernière
(à mettre dans la faq)

[sovan]

Merci pour votre retour !!


Moi j'ai trouvé une autre solution en utilisant une function :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Classip(strIPInfo,i)
	Dim arrIPInfo
	If InStr(strIPInfo, ".") > 0 Then
		arrIPInfo = Split(strIPInfo, ".")
		If UBound(arrIPInfo) >= 3 Then
				If i > 3 Then 
					'Msgbox "Erreur code i"
					Classip = "Erreur code i"
					Exit Function
				end if
			Classip = arrIPInfo(i)
		End If
	End If
End Function

Je pourais indiquer indiquer dans

Code :

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

1
2
call Classip(122.153.155.15,3) 
retour  =  15

[pitchalov]

Ouais trop cool plein de propositions !!!

J'apporte de l'eau au moulin, du coup =)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Classip(strIPInfo, i)
	Dim RegularExpressionObject
	Classip = -1
	Set RegularExpressionObject = New RegExp 
	RegularExpressionObject.Pattern = "^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$" 
	RegularExpressionObject.IgnoreCase = False 
	If (i >= 0) OR (i <= 3) Then
		If RegularExpressionObject.Test(strIPInfo) Then
			Classip = Split(strIPInfo, ".")(i)
		Else 
			MsgBox "Bad IP format"
		End If
	Else
		MsgBox "Bad IP rank"
	End If
End Function
 
WScript.Echo Classip("122.153.155.15", 3)

Bonne continuation (et attention aux guillements )