IsIP Function
Checks if string is a valid IP or not. I saw this submitted earlier and made my own better version of it. =) OK there is now an updated version with fixes so go check it out here: http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=57999&lngWId=1&txtForceRefresh=123020041845765523
AI
Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Codice sorgente
Private Function IsIP(strIP As String) As Boolean
Dim splitIP() As String, i As Long
IsIP = True 'Starts out as true
splitIP$ = Split(strIP$, ".", -1, 1) 'Split IP to check value
'==============================================================
'Things we must check to verify IP
'1. Make sure each section of IP is not greater than 255
'2. Make sure each section of IP does not contain a negative
'3. Make sure each section of IP is numeric
'==============================================================
For i = 0 To UBound(splitIP$) 'loop through array and check 3 things
If IsNumeric(splitIP(i)) = False Then
IsIP = False
Exit For
Else
If splitIP(i) > 255 Or splitIP(i) < 0 Then
IsIP = False
Exit For
End If
End If
Next i
End Function
Commenti originali (3)
Recuperato da Wayback Machine