if(ereg(' `^[[:alnum:]]([-_.]?[[:alnum:]])*@[[:alnum:]]([-.]?[[:alnum:]])*\.([a-z]{2,4})$` ',$chaine)) echo "bon"; else echo "pas bon";
if (ereg("/^((25[0-5]|2[0-4]\d|1?\d?\d).){3}(25[0-5]|2[0-4]\d|1?\d?\d)$/",$ip)) print "Format de l'ip valide<br>"; else print "Format d'IP invalide<br>";
$url = "http://www.jeuxvideo.com:80/test/forums.htm"; function cut_url($url) { preg_match('`^([a-z0-9]+://)?([^/:]+)(:[\d]+)?(/.*$)?`i', $url, $out); return $out; } print_r(cut_url($url)); /* affichera Array ( [0] => http://www.jeuxvideo.com:80/test/forums.htm [1] => http:// [2] => www.jeuxvideo.com [3] => :80 [4] => /test/forums.htm ) */
Function Base_10_n(valeur As Long, base As Integer) As String Dim digit As Integer Base_10_n = "" While valeur > 0 digit = valeur - Int(valeur / base) * base Base_10_n = Mid("01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ", digit + 1,1) & Base_10_n valeur = Int(valeur / base) Wend End Function
Function Base_n_10(valeur As String, base As Integer) As Long Dim digit As Integer Base_n_10 = 0 While valeur <> "" digit = InStr("01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ",UCase(Left(valeur, 1))) If digit > 0 Then Base_n_10 = Base_n_10 * base + digit - 1 valeur = Mid(valeur, 2) Wend End Function
((a*256+b)*256+c)*256+d. Exemple: 212.211.210.209 (a.b.c.d) donne 3570651857
Entier vers IP (WD) :
WDiviseur est un réel = 256 WReste est un tableau de 5 entiers WResultat est un tableau de 5 réel I est un entier WResultat[1] = 3570651857 POUR I = 2 A 5 WResultat[I] = WResultat[I-1] / WDiviseur WReste[I] = modulo(WResultat[I-1],WDiviseur) FIN Info(WReste[5] + "." + WReste[4] + "." + WReste[3] + "." + WReste[2])