随笔 - 49  文章 - 0 评论 - 19 
<2007年12月>
2526272829301
2345678
9101112131415
16171819202122
23242526272829
303112345

Web Site Traffic Counter

常用链接

留言簿(3)

随笔分类(48)

随笔档案(49)

搜索

  •  

积分与排名

  • 积分 - 52965
  • 排名 - 104

最新评论

阅读排行榜

评论排行榜

最近突然想写个工具集合,包含了IP的设置,查了资料自己写了个IP格式判断的
Func PDGS($value)
        $IP=StringSplit($value,".")
        If $IP[0]=4 Then         
                For $i=1 to 4
                        $csz=$IP[$i]
                        $bdz="^\d{1,3}$"
                        $aReturn = StringRegExp($csz,$bdz, 3)
                        If Not IsArray($aReturn) Then
                                MsgBox(64,"警告",$value & " 中的 " & $csz & " 不是有效IP地址范围!")
                                Return False                                                       
                        Else
                                If $csz > 255 Then                                       
                                        MsgBox(64,"警告",$value & " 中的 " & $csz & " IP数值超出!")
                                        Return False                                               
                                EndIf
                        EndIf ;====>Not IsArray
                Next
                Return True
        Else
                MsgBox(64,"警告",$value & " IP地址格式错误!")       
                Return False
        EndIf
EndFunc
posted on 2007-12-15 11:15 疾风随影 阅读(700) 评论(0)  编辑 收藏 引用 所属分类: AutoIT column
只有注册用户登录后才能发表评论。