IsIP Function

Posted: 2003-06-01
By: ArchiveBot
Viewed: 75

Filed Under:

Visual Basic 6

No attachments for this post

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

Original Author: Daniel M

Code

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

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.