Reguläre Ausdrücke sind eine mächtige Suchsprache, mit der sich auch komplizierte Abfragen auf große Textdokumente durchführen lassen. Regex-Abfragen sind aber nicht nur .NET Programmieren vorbehalten, sondern lassen sich auch von VB6 Entwicklern via der vbscript.dll nutzen. Öffnen Sie eine Standard-Exe Projekt. Benötigte Verweise: Platzieren Sie auf die Form folgende Steuerelemente:
Code: Option Explicit Private Sub Form_Load() ' -> Hier legen wir unseren Testtext fest. ' Sie können diesen natürlich beliebig verändern txtValidate.Text = "Wir finden ein paar Wörter in einem Text" & _ vbCrLf & "Wie benütze ich Regular Expressions in VB6?" End Sub ' Fundstellen farblich kennzeichnen Private Sub cmdValidate_Click() Dim oRegex As RegExp Dim m As Match Dim strPattern As String ' --> Pattern einlesen und prüfen strPattern = txtRegex.Text If Len(Trim(strPattern)) = 0 Then Exit Sub On Error GoTo ErrHandler ' --> die Selectionfarbe der Richtextbox zurücksetzen With txtValidate .SelStart = 1 .SelLength = Len(.Text) .SelColor = vbBlack End With ' --> "Regular-Expression"-Objekt erstellen Set oRegex = New RegExp With oRegex .Pattern = strPattern .Global = True ' --> Alle Matches durchlaufen For Each m In .Execute(txtValidate.Text) ' --> Gefundene Einträge in der Richtextbox markieren With txtValidate .SelStart = m.FirstIndex .SelLength = m.Length .SelColor = vbRed End With Next End With ' --> Regex Objekt zerstören Set oRegex = Nothing Exit Sub ErrHandler: MsgBox Err.Description & vbCrLf & Err.Number, vbCritical + vbOKOnly, "Error" Set oRegex = Nothing Err.Clear End Sub Nun kommen wir zum Ausdruck für die Abfrage selbst. Starten Sie das Projekt probieren einmal folgende "Abfragen" aus: VB -> suche nach dem Wort VB im Text i -> sucht alle „i" im Text [0-9] -> sucht alle numerischen Werte im Text (ein|ich) -> sucht alle "ein" und "ich" im Text Dieser Tipp wurde bereits 21.667 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. |
sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, 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. Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |