Mit Hilfe von regulären Ausdrücken können Strings sehr schnell und mit wenig Code-Aufwand mit einem vorgegeben Muster verglichen werden. Heute möchten wir Ihnen ein "Muster" vorstellen, mit dem sich die Syntax einer Datumseingabe auf das Format "dd.mm.yyyy" prüfen lässt und somit bereits im Vorfeld abgefragt werden kann, ob das vom Anwender eingegebene Datum syntaktisch korrekt ist. Erstellen Sie ein neues Windows-Form-Projekt und platzieren auf die Form eine TextBox mit dem Namen "txtDate", sowie eine Schaltfläche namens "Button1". Beim Klick auf den Button wird die Datumseingabe dann mit Hilfe der Regex-Klasse und dem vorgegebenen Vergleichmuster geprüft. Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' RegEx-Klassenobjekt erstellen Dim oRegEx As System.Text.RegularExpressions.Regex ' Vergleichsmuster ' Hier: Datumsangaben im Bereich 01.01.1800 bis 31.12.2099 zulassen Dim sPattern As String = "(0[1-9]|[12][0-9]|3[01])[.](0[1-9]|1[012])[.](18|20)[0-9]{2}" With oRegEx ' Syntax der Datum-Eingabe prüfen If Not .IsMatch(txtDate.Text, sPattern) Then ' Syntax entspricht nicht dem Muster! MsgBox("Die Syntax der Datumseingabe ist nicht korrekt!") End If End With End Sub Dieser Tipp wurde bereits 16.109 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. |
||||||||||||||||
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. |