Changement de Propriété

j'aimerais savoir comment faire pour prendre exemple, une ip qui contient 125.14.38.217, de la transformer en string pour la séparé et prendre juste les chiffres, ensuite changer les 4 variable en integer pour pouvoir tester leur valeur.

Split(aide en ligne)

j'ai rien compris, la commande est split() ?

si oui, comment je fait pour le metre en string et ensuite en integer ?

si non, he bien explique car je n'y comprend rien

BONJOUR!

la fonction split permet de couper une chaine de caractères selon le critère que tu veux!

Split("125.14.38.217",".")

résultat:
Split(0)=125
Split(0)=14
Split(0)=38
Split(0)=217

>convertir string Cstr()
>convertir integer Cint()

Ps: la politesse ne tue pas!

 Drikce 06

Salut

voici un petit exemple qui t'aidera j'espere.

'Contiendra l'adresse Splitter
Dim AdIP() As String 
Dim i As Integer 
Dim IPInteger() As Integer 
'Split "casse" une chaine de caractere
'en tableau de chaine selon le delimiteur
'passer en parametre => ICI "."
AdIP = Split("125.14.38.217", ".") 

'Ensuite tu peux garder les chaines de caractere
'ou alors les passer en tableau d'entier
ReDim IPInteger(LBound(AdIP) To UBound(AdIP)) 
For i = LBound(AdIP) To UBound(AdIP) 
    IPInteger(i) = CInt(AdIP(i)) 
Next 

@+: Ju£i€n
Pensez: Réponse acceptée

Split(0)=125
Split(1)=14
Split(2)=38
Split(3)=217


 Drikce 06

merci a vous, je suis entrain de le tester, je vous en redonne des nouvelles.

j'ai essayer de les garder en string, mais sa m'inscrit une erreure voici le code

---

---

Sub CheckIP(byval Index as long, ByVal PIP)
if GetVar("Banned.ini", "IP", "ip1") <> "" then
Dim PIPPart() as string
Dim BIPPart() as string
Dim BIP
Dim i as Byte

for i = 1 to 50

BIP = GetVar("Banned.ini", "IP", "ip" & i)

BIPPart = Split(BIP, ".")
PIPPart = Split(PIP, ".")

if BIPPart(0) = PIPPart(0) AND ...  

---

l'erreur apparait ici, sa serait gentil de me dire ce qui n'est pas correcte merci

---

---

Salut,

Que contient PIP lors de ton Split => valeur a splitter?

Peu etre Que PIPPart(0) ou BIPPart(0) n'existe pas.
Quel est l'intitulé de l'erreur ne serait ce pas Indice en dehors de la plage?
Il faut que tu soit plus précis nous ne sommes pas (hélas) devins

@+: Ju£i€n
Pensez: Réponse acceptée

pourtant, il semble que oui, c'était bien erreur en dehors de la plage. PIP contenait "217.112.27.49" si BIPPart(0) ou PIPPart(0)n'existe pas, je ne sais pas pourquoi.