Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== [VBA] RegExp testen im Direktfenster ======
Einfaches Testen und Entwerfen von Regulären Pattern im Direktfenster.

Um reguläre Ausdrücke zu erstellen, muss ich immer diverse Proberunden machen, bis sie wirklich das ausgeben, was ich haben will. Dazu verwende ich meine 2 Funktionen [[vba:cast:cregexp|cRegExp()]] und [[vba:functions:print_r:index|print_r()]]. Mit diesen Zwei in Kombination lässt sich einfach im Direktfenster die Resultate eines RegExp testen.

[[vba:cast:cregexp|cRegExp()]] akzeptiert analog zu PHP Patterns inklusive Modifiers.

> Neu. Seit print_r() Version 2.10.0 sind beide Funktion in der Methode [[vba:functions:print_r:index#drx|dRx()]] zusammengefasst.

===== Patterns bei cRegExp() =====
Zum Einen muss man natürlich die Regulären Ausdrücke von VBA kennen. Die Seite die mir dabei immer wieder hilft, ist die offizielle Seite von Microsoft [[https://msdn.microsoft.com/en-us/library/1400241x%28v=vs.84%29.aspx|Regular Expression Syntax (Scripting) ff.]]

Zum Anderen natürlich, dass man die Ausdrücke inklusive der Modifiers im Pattern unterbringen kann.
<WRAP box>
==== Pattern inkl. Modifiers ====
Die Suchstrings können als Reguläre Ausdrücke daherkommen. Dazu müssen sie wie in PHP für preg_match() mittels Delemiter und Modifiers formatiert werden.
<code>[Delemiter][Regulärer Ausdruck][Delemiter][Modifiers]</code>

=== Delemiter ===
Als Delemiter können die folgenden Zeichen verwendet werden
<code>@&!/~#=|</code>

=== Modifiers ===
Es gibt 3 Modifier.Genau soviele wie die %%RegExp%%-Klasse Properties hat. Die Grosskleinschreibung wird nicht berücksichtig. Ebensowenig die Reihenfolge.
  ***i** %%IgnoreCase%%
  ***g** Global
  ***m** Multiline
</WRAP>

Damit kann man die ganzen Settings in eine Ziele schreiben. ALso genau dass, was wir brauchen um im Direktfenster zu üben.

Mittels [[vba:functions:print_r:index|print_r()]] kann zudem das Resultat von RegExp.execute() ausgegeben werden. Somit habe ich alles zusammen, was ich brauche um das Verhalten eines Patterns zu testen.

<code vb>'Der Pattern ^([^\d]*[\.a-z])\s*(.*) mit dem Modifier IgnoreCase
print_r cregexp("/^([^\d]*[\.a-z])\s*(.*)/i").execute("Haupt-Str. 11a")
<IMatchCollection2>  (
    [0] => <IMatch2>  (
        [Match] => <String> 'Haupt-Str. 11a'
        [FirstIndex] => <Long> 0
        [SubMatches] => <ISubMatches>  (
            [0] => <String> 'Haupt-Str.'
            [1] => <String> '11a'
        )
    )
)

'Mit dRx()
dRx "/^([^\d]*[\.a-z])\s*(.*)/i", "Haupt-Str. 11a"
<IMatchCollection2>  (
    [0] => <IMatch2>  (
        [Match] => <String> 'Haupt-Str. 11a'
        [FirstIndex] => <Long> 0
        [SubMatches] => <ISubMatches>  (
            [0] => <String> 'Haupt-Str.'
            [1] => <String> '11a'
        )
    )
)</code>
Yaslaw.Info

User Tools

Site Tools

Page Tools
