如何判断一个字符串是否为ip地址?（已接决）

aux649350702 · 发表于 2010-11-19 22:23:50

本帖最后由 aux649350702 于 2010-11-20 14:21 编辑

如何判断一个字符串是否为ip地址?

binghc · 发表于 2010-11-19 23:44:38

当然正则,可以论坛搜一下

xlcwxl · 发表于 2010-11-20 07:59:26

本帖最后由 xlcwxl 于 2010-11-20 08:02 编辑

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 178, 99, 192, 124)
$Input1 = GUICtrlCreateInput("", 32, 32, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 80, 56, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        If _isIP(GUICtrlRead($Input1)) Then
                                MsgBox(0, "", "是合法IP地址")
                        Else
                                MsgBox(0, "", "不是合法IP地址")
                        EndIf

        EndSwitch
WEnd

Func _isIP($ip)
        Return StringRegExp($ip, "^(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])$")
EndFunc   ;==>_isIP

justwait · 发表于 2010-11-20 08:28:08

^([1-9]|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(([0-9]|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.){2}([1-9]|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])$

kxing · 发表于 2010-11-20 09:01:52

$ip='192.168.1.100'
if stringregexp($ip,'^([1-9]|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.(([0-9]|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])\.){2}([1-9]|[1-9]\d|1\d\d|2[0-4]\d|25[0-5])$') then msgbox(0,'ip','true')

binghc · 发表于 2010-11-20 10:11:50

本帖最后由 binghc 于 2010-11-20 10:30 编辑

楼上的表达式都好长啊，可以想想怎么简化一下

aux649350702 · 发表于 2010-11-20 14:19:52

呵呵，小弟不会正则，谢谢各位指教！！！

binghc · 发表于 2010-11-20 15:22:42

如果只是单单判断一个字符串是不是ip地址而不是从目标字符串中分析出ip地址，大可以不用正则

用字符串截取就行了，或者用StringSplit()分割再判断，也很方便

haodd · 发表于 2010-11-20 16:09:40

拜托注意一下标题的错别字

netegg · 发表于 2010-11-21 00:02:11

#include<array.au3>
$a=StringSplit($string, '.', 2)
_ArraySort($a)
If UBound($a) = 4 Then 
        If $a[0]<1 Or $a[3]>255 Then
                MsgBox('','','error')
        Else 
                MsgBox('','','right')
        EndIf
Else
        MsgBox('','','error')
EndIf

		自动登录	找回密码
密码			加入

[AU3基础] 如何判断一个字符串是否为ip地址?（已接决）

相关帖子