Hi everyone, does anyone have an alternative to the following code. Basically I'm after the fastest way to check for a valid IP address in a string (retreived via DDT). My version is simple but seems to go and check the internet which is not always going to be appropriate.
Regards
Adrian Aitken
FUNCTION CheckIPAddress(strIP AS STRING ) AS LONG
LOCAL b AS BYTE PTR, ip AS LONG
HOST ADDR strIP TO ip
b = VARPTR(ip)
IF strIP <> FORMAT$(@b[0]) + "." + FORMAT$(@b[1]) + "." + FORMAT$(@b[2]) + "." + FORMAT$(@b[3]) THEN
FUNCTION = 1
ELSE
FUNCTION = 0
END IF
END FUNCTION
------------------
Regards
Adrian Aitken
FUNCTION CheckIPAddress(strIP AS STRING ) AS LONG
LOCAL b AS BYTE PTR, ip AS LONG
HOST ADDR strIP TO ip
b = VARPTR(ip)
IF strIP <> FORMAT$(@b[0]) + "." + FORMAT$(@b[1]) + "." + FORMAT$(@b[2]) + "." + FORMAT$(@b[3]) THEN
FUNCTION = 1
ELSE
FUNCTION = 0
END IF
END FUNCTION
------------------
Comment