论坛 › 已解决问题区 › [已解决]如何判断字符是网址还是IP

jackass110 发表于 2010-5-4 03:15:24

[已解决]如何判断字符是网址还是IP

本帖最后由 jackass110 于 2010-5-5 18:59 编辑

UDPStartup()
Dim $socket = UDPOpen(TCPNameToIP($ntpServer), 2354)
If @error <> 0 Then
    MsgBox(0,"","连接服务器失败!")
    Exit
EndIf
UDPOpen(TCPNameToIP($ntpServer), 123)这里，UDPOpen使用的是ip地址，，如果$ntpServer是网址的话TCPNameToIP($ntpServer)能运行，如果是ip的话就出错，请教各位大大，，有没有办法判断$ntpServer是ip还是网址而分开使用

3mile 发表于 2010-5-4 09:40:10

Local $a
$aa=InputBox("","")
isip($aa)
If $a=1 Then
        MsgBox(0,0,$aa&"是一个IP")
Else
        MsgBox(0,0,$aa&"不是一个IP")
EndIf

Func isip($var);检查输入是否IP，返回$a
        $a=StringRegExp($var,'((2\d|25|?\d\d?)\.){3}(2\d|25|?\d\d?)',0)
EndFunc

rikthhpgf2005 发表于 2010-5-4 10:58:43

学习了楼上的

jackass110 发表于 2010-5-5 18:58:51

谢谢2#的正则，，解决

forestchi 发表于 2011-7-15 23:39:37

路过。。。。。

查看完整版本: [已解决]如何判断字符是网址还是IP