请教,如何准确地判断str是否为IP

ceoguang

rt.
在其它地方找到一个正则

StringRegExp($ip, '((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)', 2)

但并不能准确无误,高手都来支下招!

破帽遮颜

Func _StringIsIP($strIP)
        $str = StringSplit($strIP, ".")
        If $str[0] <> 4 Then
                SetError(1)
                Return('')
        ElseIf StringIsDigit($str[1]) <> 1 Or StringIsDigit($str[2]) <> 1 Or _
                        StringIsDigit($str[3]) <> 1 Or StringIsDigit($str[4]) <> 1 Then
                SetError(2)
                Return('')
        ElseIf $str[1] > 255 Or $str[2] > 255 Or $str[3] > 255 Or $str[4] > 255 Then
                SetError(3)
                Return('')
        Else
                Return(Int($str[1]) & "." & Int($str[2]) & "." & Int($str[3]) & "." & Int($str[4]))
        EndIf
EndFunc

ceoguang

速度真快,thk

sensel

StringRegExp($sIP, "^((25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(25[0-5]|2[0-4]\d|[01]?\d?\d)$")
我一直用这个

pcbar

rt.
在其它地方找到一个正则StringRegExp($ip, '((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)', 2)但并不能准确无误,高手都来支下招!
ceoguang 发表于 2009-5-28 03:38

但并不能准确无误？？请举例说明