<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Die Arbeit mit Texten kann vielfältig sein. Dazu gehört das Durchsuchen von Zeichenketten nach anderen Zeichenketten, das Ersetzen von Zeichenketten durch andere Zeichenketten, Zerlegen von Zeichenketten und so weiter. Eine weitere wichtige Funktion ist das überprüfen von Zeichenketten auf bestimmte Merkmale. Im vorliegenden Beitrag erfahren Sie, wie diese Aufgaben mit und ohne Anwendung von regulären Ausdrücken erledigt werden können.<\/b><\/p>\n
Das Untersuchen, Suchen und Ersetzen von bestimmten Elementen einer Zeichenfolge durch andere Zeichen wird meistens beim Import oder Export von Daten und der damit verbundenen Anpassung an das andere Format notwendig.<\/p>\n
Access bietet hierzu einige Standardfunktionen an, mit denen sich alle gewünschten Aufgaben mit mehr oder weniger Aufwand erledigen lassen.<\/p>\n
Für bestimmte Aufgaben gibt es aber auch spezielle Bibliotheken, die Funktionen zur Verfügung stellen, die man sonst mühevoll programmieren müsste.<\/p>\n
Eine dieser Bibliotheken heißt Microsoft VBScript Regular Expressions und stellt so genannte reguläre Ausdrücke zur Verfügung. Diese Bibliothek enthält mächtige Werkzeuge zum Suchen und Ersetzen.<\/p>\n
VBA bietet einige Möglichkeiten zur Manipulation von Zeichenketten. Wichtig dafür sind vor allem die vorhandenen Zeichenkettenfunktionen und die Vergleichsoperatoren, die nachfolgend vorgestellt werden.<\/p>\n
VBA stellt einige Funktionen für die Arbeit mit Zeichenketten zur Verfügung. Die wichtigsten sind mit den gebräuchlichen Parametern inTab. 1 aufgelistet. Einige enthalten weitere Parameter. Für genauere Informationen konsultieren Sie die Onlinehilfe.<\/p>\n
Neben den Textfunktionen, die größtenteils der eigentlichen Bearbeitung dienen, sind Vergleichsoperationen ein wichtiger Bestandteil bei der Anwendung der Textfunktionen. In Tab. 2 finden Sie eine Auflistung der gebräuchlichen Vergleichsoperatoren.<\/p>\n
Beim Like-Operator können im rechten Teil des Ausdrucks Platzhalter verwendet werden. Es gibt zwei Platzhalter: das Sternchen (*) und das Fragezeichen (). Das Sternchen steht für Null bis beliebig viele Zeichen, das Fragezeichen für genau ein beliebiges Zeichen. Der folgende Ausdruck ergibt beispielsweise den Rückgabewert True:<\/p>\n
\"info@access-im-unternehmen.de\" Like \"*@*.*\"<\/pre>\n
| \n Funktion<\/b><\/p>\n<\/td>\n | \n Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n Len(str)<\/p>\n<\/td>\n Ermittelt die Anzahl der Zeichen einer Zeichenkette str.<\/p>\n<\/td>\n<\/tr>\n Left(str,n)<\/p>\n<\/td>\n Gibt die ersten n Zeichen der Zeichenkette str zurück.<\/p>\n<\/td>\n<\/tr>\n Right(str,n)<\/p>\n<\/td>\n Gibt die letzten n Zeichen einer Zeichenkette str zurück.<\/p>\n<\/td>\n<\/tr>\n Mid(str,m,n)<\/p>\n<\/td>\n Gibt die Teilzeichenkette vom mten bis zum (m+n)ten Zeichen zurück.<\/p>\n<\/td>\n<\/tr>\n Instr(n, str1, str2)<\/p>\n<\/td>\n Gibt die Position zurück, an der sich die Zeichenkette str2 innerhalb der Zeichenkette str1 ab der nten Stelle befindet (0 bei keinem Auftreten).<\/p>\n<\/td>\n<\/tr>\n Replace(str1, str2, str3)<\/p>\n<\/td>\n Ersetzt die Zeichenkette str2 innerhalb der Zeichenkette str1 durch str3.<\/p>\n<\/td>\n<\/tr>\n Trim(str)<\/p>\n<\/td>\n Schneidet alle Leerzeichen am Anfang und am Ende von str ab.<\/p>\n<\/td>\n<\/tr>\n Chr(x)<\/p>\n<\/td>\n Gibt das dem ASCII-Code x entsprechende Zeichen zurück.<\/p>\n<\/td>\n<\/tr>\n Asc(str)<\/p>\n<\/td>\n Gibt den ASCII-Code für das erste Zeichen in str zurück.<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Zeichenkettenfunktionen von VBA<\/b><\/p>\n Vergleichs-operator<\/b><\/p>\n<\/td>\n Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n =<\/p>\n<\/td>\n Gleich. Gibt True zurück, wenn Zeichenfolgen exakt gleich sind.<\/p>\n<\/td>\n<\/tr>\n <, <=, >=, ><\/p>\n<\/td>\n Vergleicht Zeichenfolgen nach dem Wert der Asc-Funktion (Beispiel: Asc(„a“) = 97, Asc(„b“) = 98, also würde „a<b“ True zurückgeben.<\/p>\n<\/td>\n<\/tr>\n <><\/p>\n<\/td>\n Ungleich.<\/p>\n<\/td>\n<\/tr>\n Like<\/p>\n<\/td>\n Wie “=“, allerdings unter Verwendung von Platzhaltern. <\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Vergleichsoperatoren von VBA<\/b><\/p>\n Ausdrücke wie dieser können beispielsweise zur Validierung von Werten – wie hier einer E-Mail-Adresse – verwendet werden.<\/p>\n Mit den genannten Werkzeugen lassen sich mit den unter VBA vorhandenen Konstruktionen wie For Next-, Do While- und anderen Schleifen die meisten Aufgaben mit mehr oder weniger Aufwand erledigen.<\/p>\n Mit der seit Access 2000 verfügbaren Funktion Replace lassen sich sogar in einem Rutsch mehrere Vorkommen einer Zeichenfolge durch eine andere ersetzen. Leider lassen sich innerhalb dieser Funktion keine Platzhalter verwenden, was deren Flexibilität enorm einschränkt.<\/p>\n Wer zeit seines Lebens mit VBA gearbeitet hat, wird möglicherweise gar nicht viel vermissen, da er es gewohnt ist, aus den wenigen Grundfunktionen eigene Funktionen zusammenzustellen, die alle gewünschten Aufgaben erledigen.<\/p>\n Wer allerdings einmal einen Blick auf andere Programmiersprachen wie Java, Javascript oder PHP geworfen hat, mag in Anbetracht der vielen vorgefertigten Funktionen neidisch geworden sein.<\/p>\n Wie die beiden letzten Abschnitte andeuten, scheint die Definition dessen, welche Fähigkeiten VBA in Bezug auf das Thema des vorliegenden Beitrags nicht hat, aber haben sollte, schwierig zu sein. <\/p>\n Die im folgenden Kapitel vorgestellten regulären Ausdrücke und die damit verbundene Objektbibliothek sollten aber auf jeden Fall zum Schließen dieser Lücke beitragen.<\/p>\n Ein regulärer Ausdruck ist nichts anderes als ein Suchmuster, um übereinstimmende Muster in einer Eingabe zu finden.<\/p>\n Weiter oben haben Sie bereits die in Zusammenhang mit dem Like-Befehl zur Verfügung stehenden Platzhalter wie das Sternchen und das Fragezeichen kennen gelernt. <\/p>\n Reguläre Ausdrücke bieten nicht nur Platzhalter für eines oder mehrere Zeichen, sie sind noch wesentlich mächtiger.<\/p>\n Die Verwendung regulärer Ausdrücke erweitert die Möglichkeiten von VBA um einige wichtige Punkte. Als Einsatzgebiete bieten sich beispielsweise die in den beiden folgenden Abschnitten beschriebenen an.<\/p>\n Der Export von Daten externer Datenquellen birgt viele Fehlerquellen in sich, da die Datentypen der zu importierenden Daten nicht mit den Zieldatentypen übereinstimmen. Mit regulären Ausdrücken können Sie das Format der eingehenden Daten prüfen.<\/p>\n Viele Datenfelder erwarten Eingaben in speziellen Formaten. Dazu gehören Internetadressen, E-Mail-Adressen, Telefonnummern, Autokennzeichen und so weiter. Sie können zwar in Formularen ein entsprechendes Eingabeformat festlegen, aber Sie stellen dem durchschnittlichen Benutzer damit ein sehr ungewohntes Eingabeelement zur Verfügung. <\/p>\n <\/p>\n Mit regulären Ausdrücken können Sie leicht überprüfen, ob der eingegebene Ausdruck den Vorgaben entspricht, und den Benutzer gegebenenfalls auf Eingabefehler aufmerksam machen.<\/p>\n Die Vielfalt der bei regulären Ausdrücken zur Verfügung stehenden Platzhalter reicht aus, um auch völlig unkonventionell formatierte Texte so hinzubiegen, wie man sie haben möchte. Für das Einlesen und Umwandeln von Daten anderer Formate sind reguläre Ausdrücke gut geeignet.<\/p>\n Für die Verwendung von regulären Ausdrücken in Access ist die Einbindung einer Objektbibliothek erforderlich. Diese heißt Microsoft VBScript Regular Expressions x.0 und steht auf Ihrem Rechner zur Verfügung, wenn Sie entweder den Windows Scripting Host oder den Internet Explorer ab Version 5.5 installiert haben.<\/p>\n Den Verweis auf die Bibliothek setzen Sie wie üblich durch den Aufruf des Dialogs Verweise über den Menüeintrag Extras\/Verweise und anschließende Auswahl des gewünschten Eintrags (siehe Bild 1).<\/p>\n <\/b><\/p>\n Bild 1: Setzen des Verweises auf die gewünschte Bibliothek<\/span><\/b><\/p>\n Anschließend stehen das Objekt RegExp sowie seine Eigenschaften und Methoden in Access zur Verfügung.<\/p>\n In den nachfolgenden Beispielen erfahren Sie auf anschauliche Weise, wie Sie das RegExp-Objekt verwenden können und welche Methoden und Eigenschaften dabei zum Einsatz kommen.<\/p>\n Mit den folgenden beiden Anweisungen erstellen und füllen Sie die Objektvariable objRegExp mit dem gewünschten Objekt:<\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Wenn Sie nun den Objektnamen gefolgt von einem Punkt in den VBA-Editor eingeben, erhalten Sie einen überblick über die zur Verfügung stehenden Methoden und Eigenschaften (siehe Bild 2).<\/p>\n <\/b><\/p>\n Bild 2: Methoden- und Eigenschaftsübersicht per IntelliSense<\/span><\/b><\/p>\n Die Funktion aus Quellcode 1 führt eine einfache Suche nach einem bestimmten Suchbegriff in einer Zeichenkette durch. Ist die Suche erfolgreich, gibt die Funktion den Wert True zurück, ansonsten den Wert False.<\/p>\n Mit der Eigenschaft IgnoreCase legen Sie fest, ob die Suche Groß- und Kleinschreibung berücksichtigen soll.<\/p>\n Der Eigenschaft Pattern weist die Funktion den im Funktionsaufruf übergebenen Suchausdruck strSuchbegriff zu.<\/p>\n Die Methode Test führt die eigentliche Suche aus. Sie enthält als Parameter den zu durchsuchenden Text.<\/p>\n In vielen Fällen ist es interessant zu wissen, an welcher Position im Text der Suchbegriff gefunden wurde.<\/p>\n Dazu benötigen Sie zwei weitere Objekte: Match und MatchCollection. Letztere dient dem Zugriff auf die Objekte des Typs Match.<\/p>\n Das Objekt MatchCollection hat zwei Eigenschaften: Die Eigenschaft Count gibt die Anzahl der enthaltenen Objekte des Typs Match zurück und die Eigenschaft Item enthält eine Auflistung zum Zugriff auf diese Objekte.<\/p>\n Das Objekt Match wiederum hat drei Eigenschaften: FirstIndex, Length und Value. Die Eigenschaft FirstIndex gibt die Startposition des in der Eigenschaft Value gespeicherten Ausdrucks innerhalb der zu durchsuchenden Zeichenkette wieder. Der Wert Length enthält die Länge des gefundenen Ausdrucks. Wie Sie später erfahren werden, wird die Länge in manchen Fällen nicht durch die Angabe des Suchkriteriums festgelegt, da manche Platzhalter auch für mehrere Zeichen stehen können.<\/p>\n Quellcode 3<\/b><\/p>\n Damit nicht einfach nur der Sucherfolg ausgegeben wird, sondern auch einige Detailinformationen, verwenden Sie die Funktion aus Quellcode 2.<\/p>\n Die Funktion verwendet die zwei Objekte objMatch und objMatchCollection, um das Ergebnis der Suche im Detail zu speichern.<\/p>\n Damit nicht nur die erste, sondern alle Fundstellen berücksichtigt werden, setzt die Funktion die Eigenschaft Global des Objekts objRegExp auf den Wert True.<\/p>\n Für die Zuweisung des Suchergebnisses an das Objekt objMatchCollection wird die Methode Execute des Objekts objRegExp ausgeführt.<\/p>\n Die Informationen über das Suchergebnis werden anschließend innerhalb einer For Each-Schleife ausgegeben.<\/p>\n <\/b><\/p>\n Bild 3: Beispiel für einen Aufruf der Funktion SucheMitPosition<\/span><\/b><\/p>\n Bild 3 zeigt ein Beispiel für den Aufruf dieser Funktion. Die erste Zeile der Ergebnisliste gibt die Position der Fundstelle an, die zweite die Länge des gefundenen Vergleichwertes sowie den gefundenen Wert selbst.<\/p>\n Die Prozedur aus Quellcode 3 verwendet die Methode Replace des Regexp-Objekts, um einen Ausdruck einmal zu ersetzen.<\/p>\n Um alle Vorkommen des Ausdrucks strSuchbegriff durch den Inhalt von strErsetzung zu ersetzen, stellen Sie die Eigenschaft Global des RegExp-Objekts auf den Wert True ein.<\/p>\n In den folgenden Abschnitten finden Sie einige Regeln und Beispiele für die Anwendung regulärer Ausdrücke. Aus Platzgründen beschreibt der vorliegende Beitrag nicht alle möglichen Platzhalter. Eine Liste aller möglichen Platzhalter erhalten Sie unter folgender Internetadresse:<\/p>\n http:\/\/msdn.microsoft.com\/library\/default.aspurl=\/library\/en-us\/script56\/html\/vspropattern.asp<\/p>\n Statt einer Auflistung der möglichen Platzhalter finden Sie nachfolgend einige Beispiele.<\/p>\n Um Missverständnisse zu vermeiden, soll nachfolgende Festlegung gelten: Zeichen wie Buchstaben, Ziffern oder Sonderzeichen, die eins zu eins übereinstimmen müssen, heißen Literale, und alle Zeichen, die als Ausdruck für eine bestimmte Bedingung oder als Platzhalter dienen, Metazeichen. <\/p>\n Quellcode 4<\/b><\/p>\n Als Beispiel soll eine Eingabevalidierung dienen. Eine per Funktionsparameter übergebene E-Mail-Adresse soll auf ihre Syntax überprüft werden. Eine E-Mail-Adresse enthält den Namen des Empfängers, ein At-Zeichen (@) und den Namen der Domain.<\/p>\n Der Domainname besteht dabei aus einer Zeichenkette, die mindestens einen Punkt enthält, der sich nicht am Anfang oder am Ende befinden darf.<\/p>\n Die erforderliche Funktion finden Sie in Quellcode 4.<\/p>\n Erklärungsbedürftig ist sicher der Vergleichsausdruck, der für Neulinge im Bereich Reguläre Ausdrücke sicher sehr kryptisch aussieht:<\/p>\n Das erste Zeichen ^ und das letzte Zeichen $ sorgen dafür, dass der eingegebene Ausdruck vom ersten bis zum letzten Zeichen durchsucht wird.<\/p>\n Der Ausdruck [^@ ]* steht stellvertretend für beliebig viele Zeichen mit Ausnahme des @-Zeichens und des Leerzeichens.<\/p>\n Anschließend muss ein @-Zeichen folgen. Die nächste Zeichenfolge entspricht der ersten. Dann folgt der Ausdruck \\. als Platzhalter für den Punkt vor dem Kennzeichen der entsprechenden Top-Level-Domain. Dahinter folgt schließlich noch der Ausdruck [^\\.@]*. Er steht stellvertretend für beliebig viele Zeichen mit Ausnahme des @-Zeichens, des Leerzeichens und des Punktes (.).<\/p>\n Sie können E-Mail-Adressen mit diesem Ausdruck natürlich nur bezüglich der weiter oben genannten Kriterien überprüfen. Sicher gibt es weitere Sonderzeichen, die nicht in E-Mail-Adressen vorkommen dürfen. Ein Vergleichsausdruck für einen exakten Vergleich soll aber nach Expertenmeinung nur mit nicht vertretbarem Aufwand zu realisieren sein – in Anbetracht dessen, dass Sie dann zwar eine syntaktisch korrekte E-Mail-Adresse haben, die aber immer noch nicht gültig sein muss – weil es sie vielleicht gar nicht gibt. <\/p>\n Das nächste Beispiel beschäftigt sich mit alter und neuer Rechtschreibung:<\/p>\n Wenn Sie ein Wort suchen, von dem Sie wissen, dass es in mehreren Schreibweisen auftreten könnte, können Sie mit einem regulären Ausdruck leicht mehrere Möglichkeiten gleichzeitig abdecken.<\/p>\n Dazu ersetzen Sie lediglich den unterschiedlichen Bereich durch einen entsprechenden Platzhalter. Nehmen Sie als Beispiel das Wort, das nach neuer Rechtschreibung Potenzial und nach alter Rechtschreibung Potential heißt. Der Ausdruck, der beide Schreibweisen findet, lautet folgendermaßen:<\/p>\n Wenn Sie nun auch auf Nummer Sicher gehen und verhindern möchten, dass die Schreibweise von Leuten, die sich nicht zwischen alter und neuer Rechtschreibung entscheiden können, unterschlagen wird, überprüfen Sie auch noch auf die Schreibweise Potentzial:<\/p>\n Das Sternchen gibt an, dass die im vorherigen Ausdruck genannten Zeichen in beliebig oft in beliebiger Reihenfolge vorkommen dürfen. Dafür erlaubt dieser Ausdruck allerdings auch Potentzzzzial und ähnliche.<\/p>\n Wenn Sie aber nur die drei genannten Versionen zulassen möchten, verwenden Sie einen regulären Ausdruck, der die t, z und tz durch den Operator Oder verknüpft:<\/p>\n Ausdruck<\/b><\/p>\n<\/td>\n Bedeutung<\/b><\/p>\n<\/td>\n<\/tr>\n [abc]<\/p>\n<\/td>\n steht für einen der drei Buchstaben a, b oder c<\/p>\n<\/td>\n<\/tr>\n [a-z]<\/p>\n<\/td>\n steht für einen der Buchstaben von a-z<\/p>\n<\/td>\n<\/tr>\n [0-9]<\/p>\n<\/td>\n steht für eine Ziffer von 0 bis 9<\/p>\n<\/td>\n<\/tr>\n [1-5][0-9]<\/p>\n<\/td>\n steht für alle Zahlen von 10 bis 59<\/p>\n<\/td>\n<\/tr>\n [\\-]<\/p>\n<\/td>\n steht für das Minuszeichen selbst<\/p>\n<\/td>\n<\/tr>\n .<\/p>\n<\/td>\n Platzhalter für ein beliebiges Zeichen, trifft beispielsweise „a“, „aa“ oder auch „aaa“<\/p>\n<\/td>\n<\/tr>\n ^.$<\/p>\n<\/td>\n Platzhalter für eine Zeichenkette, die aus einem beliebigen Zeichen besteht, beispielsweise „a“ oder „9“, aber nicht „aa“<\/p>\n<\/td>\n<\/tr>\n [.]<\/p>\n<\/td>\n steht für den Punkt<\/p>\n<\/td>\n<\/tr>\n \\b<\/p>\n<\/td>\n steht für den Zwischenraum zwischen einem Wort und einem Nicht-Wort, also beispielsweise zwischen einem Buchstaben und einem Leerzeichen <\/p>\n<\/td>\n<\/tr>\n \\B<\/p>\n<\/td>\n Gegenteil von \\b<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 3: Beispiele für Ausdrücke in eckigen Klammern<\/b><\/p>\n In diesem Fall wird deutlich, dass runde Klammern in regulären Ausdrücken Metazeichen sind, da sie zur Trennung zwischen Literalen und anderen Metazeichen dienen.<\/p>\n Die nachfolgenden Beispiele sollen weitere Möglichkeiten der Bildung von Mustern mit regulären Ausdrücken vorstellen.<\/p>\n In eckige Klammern können Sie mehrere einzelne Zeichen, Zeichenbereiche oder negierte Zeichen oder Zeichenbereiche setzen, wie die Beispiele aus Tab. 3 zeigen.<\/p>\n Optionale Elemente, die entweder einmal vorhanden oder nicht vorhanden sein können, werden durch ein nachfolgendes Fragezeichen () gekennzeichnet. Optionale Elemente, die länger als ein Zeichen sind, werden in Klammern gefasst.<\/p>\n Tipp steht also für Tip oder Tipp und selbst(st)ändig steht für selbständig oder selbstständig.<\/p>\n ähnliche Elemente sind die folgenden:<\/p>\n Die Arbeit mit Texten kann vielfältig sein. Dazu gehört das Durchsuchen von Zeichenketten nach anderen Zeichenketten, das Ersetzen von Zeichenketten durch andere Zeichenketten, Zerlegen von Zeichenketten und so weiter. Eine weitere wichtige Funktion ist das Überprüfen von Zeichenketten auf bestimmte Merkmale. Im vorliegenden Beitrag erfahren Sie, wie diese Aufgaben mit und ohne Anwendung von regulären Ausdrücken erledigt werden können.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66012004,662004,44000025],"tags":[],"class_list":["post-55000203","post","type-post","status-publish","format-standard","hentry","category-66012004","category-662004","category-VBA_und_Programmiertechniken"],"yoast_head":"\n |
![](\"..\/fileadmin\/_temp_\/{D4D7B44C-1EA9-4CEE-968D-6F785D687FBA}\/pic001.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{D4D7B44C-1EA9-4CEE-968D-6F785D687FBA}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{D4D7B44C-1EA9-4CEE-968D-6F785D687FBA}\/pic003.png\")
<\/p>\n