Pr?fen, ob ein String eine g?ngige IP-Adresse darstellt Mit dieser Funktion l?sst sich pr?fen, ob es sich bei dem ?bergebenen String um eine g?ltige IP-Adresse handelt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  6.060
www.tools4vb.de	System:  Win2k, WinXP, Vista, Win7, Win8	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachfolgender Funktion lässt sich prüfen, ob es sich bei dem übergebenen String um eine gültige IP-Adresse handelt.

Für die Prüfung gelten folgende Vereinbarungen:

• Eine IP-Adresse enthält 4 jeweils durch einen Punkt getrennte Zahlenblöcke. Es gibt also 3 Punkte.
• Jeder dieser Zahlenblöcke muss numerisch sein.
• Der erste Zahlenblock muss im Bereich 10-255 liegen, die weiteren 3 Blöcke im Bereich 0 bis 255.

''' <summary>
''' Prüft, ob es sich bei dem übergebenen String um eine IP-Adresse handeln kann
''' </summary>
''' <param name="sIP">String, der die IP-Adresse enthält</param>
Public Function IsValidIP(ByVal sIP As String) As Boolean
  Dim bValid As Boolean = False
 
  If sIP.Length > 0 Then
    ' IP in Blöcke aufteilen
    Dim sNumber() As String = sIP.Split(".")
 
    ' wenn 4 Blöcke enthalten...
    If sNumber.Length = 4 Then
      bValid = True
 
      ' ... prüfen, ob Block numerisch
      For i = 0 To 3
        If Not IsNumeric(sNumber(i)) OrElse sNumber(i).Length > 3 Then
          bValid = False : Exit For
        End If
 
        Dim Value As Integer = Integer.Parse(sNumber(i))
 
        If i = 0 Then
          ' 1. Block muss im Bereich 10 bis 255 liegen
          If Value < 10 Or Value > 255 Then
            bValid = False : Exit For
          End If
 
        Else
          ' alle anderen Blöcke müssen zwischen 0 und 255 liegen
          If Value < 0 Or Value > 255 Then
            bValid = False : Exit For
          End If
        End If
      Next
    End If
  End If
 
  Return bValid
End Function