Diese Funktion wendet ein Pattern auf ein String an und gibt die Resultate als MatchCollection zurück
Übersicht über alle rx-Funktionen: [VBA] RegExp Functions (RX-Functins)
Für die Ausgabe der Resultate verwendete ich die Funktion [VBA] print_r()
Public Function rx_match( _ ByVal iPattern As String, _ ByVal iSubject As String, _ Optional ByVal iFlags As rxFlagsEnum = rxGlobal + rxIgnorCase _ ) As MatchCollection
Setzte die Flags für das RegExp Object. Für das genaue Verhalten bitte die VB-Doku zur RegExp Klasse studieren
Standart ist mit IgnoreCase + Global
print_r rx_match("(\d+)\.(\d+)CHF", "Die Wurst kostet 6.50CHF und das Steak 3.50CHF") <IMatchCollection2> ( [0] => <IMatch2> ( [Match] => <String> '6.50CHF' [0] => <String> '6' [1] => <String> '50' ) [1] => <IMatch2> ( [Match] => <String> '3.50CHF' [0] => <String> '3' [1] => <String> '50' ) )
Nur mit IgnoreCase. Es wird nur der erste Treffer ausgegeben, da Global auf false ist
print_r rx_match("(\d+)\.(\d+)CHF", "Die Wurst kostet 6.50chf und das Steak 3.50CHF", rxIgnorCase) <IMatchCollection2> ( [0] => <IMatch2> ( [Match] => <String> '6.50chf' [0] => <String> '6' [1] => <String> '50' ) )
Und zulezt noch ein Beispiel, wenn es keine Treffer gibt
print_r rx_match("(\d+)", "Hallo Welt") <Nothing>
Der Enumerator rxFlagsEnum wird für alle rx-Funktionen verwendet.
'/** ' * Wird für die rx_ Funktionen verwendet ' * Setzte die Flags für das RegExp Object ' */ Public Enum rxFlagsEnum rxnone = 0 rxGlobal = 2 ^ 0 rxIgnorCase = 2 ^ 1 rxMultiline = 2 ^ 2 End Enum
'/** ' * Copyright mpl by ERB software | http://wiki.yaslaw.info ' * ' * Die Idee hatte ich aus PHP. Ein Befehl um ein Reguläreren Ausdruck direkt auszuwerten ' * @example Set mc = rx_match("([\d\.]+)", "3 Würste unf 4.5 Liter Wasser", pfGlobal) ' * @param String Pattern analog RegExp ' * @param String Der String der bearbeitet werden soll ' * @param rxFlagsEnum Eigenschaften von Regexp. Global, IgnoreCase und Multiline. ' * Die Eigenschaften können mit + kombiniert werden ' * @return MatchCollection oder Nothing wenn keine übereinstimmung vorhanden ist ' */ Public Function rx_match( _ ByVal iPattern As String, _ ByVal iSubject As String, _ Optional ByVal iFlags As rxFlagsEnum = rxglobal + rxIgnorCase _ ) As Object 'Dim rx As New regExp Dim rx As Object: Set rx = CreateObject("VBScript.RegExp") rx.Global = iFlags And rxglobal rx.IgnoreCase = iFlags And rxIgnorCase rx.Multiline = iFlags And rxMultiline rx.Pattern = iPattern If rx.test(iSubject) Then Set rx_match = rx.execute(iSubject) End If Set rx = Nothing End Function