vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2014
 
zurück
Rubrik: Variablen/Strings   |   VB-Versionen: VB2005, VB200823.10.09
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 OtterBewertung:     [ Jetzt bewerten ]Views:  7.177 
www.tools4vb.deSystem:  Win2k, WinXP, Vista, Win7, Win8 Beispielprojekt auf CD 

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

Dieser Tipp wurde bereits 7.177 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2014 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel