<\/p>\n
Einen großen Bereich der eingebauten Funktionen von Access nehmen die Zeichenfunktionen ein. Das ist logisch, denn in jeder Datenbank kommen Texte vor, und es gibt immer wieder Aufgaben, die wir am besten mit den eingebauten Zeichenfunktionen lösen können. In diesem Artikel stellen wir alle Zeichenkettenfunktionen vor und zeigen, wie wir diese einsetzen können. Die Zeichenkettenfunktionen lassen sich sowohl in VBA als auch in Ausdrücken an verschiedenen Stellen einsetzen – wie berechnete Felder in Abfragen, Kriterien in Abfragen, Inhalte von Formular- und Berichtssteuerelementen et cetera.<\/p>\n
Die Beispiele dieses Artikels findest Du in der Datenbank EingebauteFunktionen_Zeichenkettenfunktionen.accdb<\/b>.<\/p>\nZeichenkettenfunktionen<\/h2>\n
Bevor wir in die Anwendungszwecke starten, schauen wir uns die relevanten Zeichenkettenfunktionen einmal in alphabetischer Reihenfolge mit der groben Beschreibung an.<\/p>\n
Wir geben jeweils die VBA-Bezeichnung an, gefolgt von der in Ausdrücken in der deutschen Version von Access zu verwendenden Funktion (diese unterscheiden sich nicht immer):<\/p>\n
Hierfür gibt es mit Chr<\/b>, Chr$<\/b>, ChrW <\/b>und ChrW$ <\/b>gleich vier Funktionen (eigentlich sechs, aber die ChrB <\/b>und ChrB$ <\/b>werden nur selten benötigt).<\/p>\nZeichen aus ASCII-Code ermitteln<\/h2>\n
Zur Demonstration, wie die Chr<\/b>-Funktion arbeitet, haben wir eine Prozedur mit einer Schleife über die Werte von 0 <\/b>bis 255 <\/b>erstellt. Die Funktion nimmt auch nur die Werte in diesem Bereich entgegen. Sie gibt für jeden dieser Werte den ASCII-Code sowie das entsprechende Zeichen aus:<\/p>\n Die Großbuchstaben unseres Alphabets haben zum Beispiel die ASCII-Codes von 65 <\/b>bis 90<\/b>:<\/p>\n Die Kleinbuchstaben verwenden diese Zahlencodes:<\/p>\n Die Zahlen von 0 bis 9 finden wir unter den ASCII-Codes 48 <\/b>bis 57<\/b>:<\/p>\n Eine ähnliche Funktion haben wir mit AscW <\/b>für Unicode. Unicode enthält 65.536 Zeichen mit den Codes von 0 <\/b>bis 65.535<\/b>. Dementsprechend kommen wir für die Beispielfunktion nicht mehr mit einer Integer<\/b>-Laufvariablen aus:<\/p>\n Die Funktion liefert unser Alphabet und die Zahlen für die gleichen Zahlenwerte wie Chr<\/b>. Danach folgen einige weitere Zeichen, von denen die meisten in der Ausgabe von VBA gar nicht interpretiert werden können und als Fragezeichen (<\/b>) ausgegeben werden.<\/p>\n Die ASCII- und die Unicode-Zeichen für die Codes von 0 <\/b>bis 255 <\/b>sind nicht vollständig identisch. Mit der folgenden Prozedur geben wir alle Werte aus und markieren diejenigen, die nicht gleich sind:<\/p>\n Es gibt von beiden Funktionen auch noch eine Variante mit $ <\/b>am Ende des Namens. Diese funktionieren gleich, liefern jedoch das Ergebnis direkt als String<\/b>-Wert statt als Variant<\/b>-Wert zurück, was je nach Setting eine bessere Performance haben kann.<\/p>\n Mit der Funktion Asc <\/b>können wir für das übergebene Zeichen den passenden ASCII-Code ermitteln. Im folgenden Beispiel geben wir wie folgt den Buchstaben und seinen ASCII-Code aus:<\/p>\n Die Prozedur durchläuft in einer Schleife alle Zeichen von A <\/b>bis Z<\/b>. Die hier verwendeten Funktionen Mid <\/b>und Len <\/b>beschreiben wir weiter unten noch im Detail:<\/p>\n Beim Unicode erfolgt die Ermittlung des Codes für ein Zeichen analog, nur mit der Funktion AscW <\/b>statt Asc<\/b>.<\/p>\n Wenn Du die beiden Funktionen einsetzt, um beispielsweise bestimmte Zeichen zu finden, solltest Du immer entweder nur Asc <\/b>und Chr <\/b>einsetzen (wenn absehbar ist, dass Du Dich im ASCII-Bereich befindest) oder nur AscW <\/b>und ChrW<\/b>.<\/p>\n Der Grund ist: Wenn Du beispielsweise das Zeichen hinter dem Unicode-Code 512 <\/b>ermittelst, kannst Du nur die ChrW<\/b>-Funktion nutzen, da Chr <\/b>nur bis 255 <\/b>arbeitet. Es kommt dann Folgendes heraus:<\/p>\n Wenn Du nun umgekehrt wieder den Code erhalten möchtest und die Asc<\/b>-Funktion einsetzt, wird das Zeichen als Fragezeichen interpretiert:<\/p>\n Die beiden Funktionen sind also nicht zum Umkehren einzusetzen. Das funktioniert nur, wenn Du ChrW <\/b>und AscW <\/b>kombinierst:<\/p>\n Die Filter<\/b>-Funktion dient dazu, die Elemente eines Arrays nach einer bestimmten Zeichenkette zu durchsuchen. Sie hat die folgenden Parameter:<\/p>\n Die folgende Prozedur stellt mit der Array<\/b>-Funktion ein Array zusammen. Die Filter<\/b>-Funktion durchsucht dieses nach Elementen, welche die Zeichenkette An<\/b> enthalten.<\/p>\n Das Ergebnis landet in einem weiteren Array. In der folgenden For Next<\/b>-Schleife gibt die Funktion alle gefundenen Elemente im Direktbereich aus:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Public Sub <\/span>Beispiel_Chr()\r\n Dim <\/span>i As Integer<\/span><\/span>\r\n For i = 0 To 255\r\n Debug.Print<\/span><\/span> \"ASCII-Code \" & i & \" entpricht \" _\r\n & Chr(i)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\nASCII-Code 65 entpricht A\r\nASCII-Code 66 entpricht B\r\nASCII-Code 67 entpricht C\r\n...\r\nASCII-Code 90 entpricht Z<\/pre>\n
ASCII-Code 97 entpricht a\r\nASCII-Code 98 entpricht b\r\nASCII-Code 99 entpricht c\r\n...\r\nASCII-Code 122 entpricht z<\/pre>\n
ASCII-Code 48 entpricht 0\r\nASCII-Code 49 entpricht 1\r\nASCII-Code 50 entpricht 2\r\n...\r\nASCII-Code 57 entpricht 9<\/pre>\n
Zeichen aus Unicode ermitteln<\/h2>\n
Public Sub <\/span>Beispiel_ChrW()\r\n Dim <\/span>l As Long<\/span><\/span>\r\n For l = 0 To 65536\r\n Debug.Print<\/span><\/span> \"Unicode \" & l & \" entpricht \" _\r\n & ChrW(l)\r\n Next<\/span> l\r\nEnd Sub<\/span><\/pre>\nVergleich von Chr und ChrW<\/h2>\n
Public Sub <\/span>Vergleich_Chr_ChrW()\r\n Dim <\/span>i As Integer<\/span><\/span>\r\n For i = 0 To 255\r\n If <\/span>Not<\/span> Chr(i) = ChrW(i) Then<\/span>\r\n Debug.Print<\/span><\/span> \"Nicht gleich.\",\r\n End If<\/span>\r\n Debug.Print<\/span><\/span> \"Code: \" & i & \" ASCII: \" _\r\n & Chr(i) & \" Unicode: \" & ChrW(i)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\nChr$ und ChrW$<\/h2>\n
ASCII-Code für Zeichen ermitteln<\/h2>\n
Zeichen 'A' entspricht ASCII-Code 65<\/pre>\n
Public Sub <\/span>Beispiel_Asc()\r\n Dim <\/span>strBuchstaben As String<\/span><\/span>\r\n Dim <\/span>strBuchstabe As String<\/span><\/span>\r\n Dim <\/span>i As Integer<\/span><\/span>\r\n strBuchstaben = \"ABCDEFGHIJKLMNOPQRSTUVWXYZ\"\r\n For i = 1 To Len<\/span>(strBuchstaben)\r\n strBuchstabe = Mid<\/span>(strBuchstaben, i, 1)\r\n Debug.Print<\/span><\/span> \"Zeichen '\" & strBuchstabe _\r\n & \"' entspricht ASCII-Code \" _\r\n & Asc(strBuchstabe)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\nUnicode-Code für Zeichen ermitteln<\/h2>\n
Entweder nur Asc und Chr oder nur AscW und ChrW<\/h2>\n
Debug.Print<\/span><\/span> ChrW(512)\r\n<\/pre>\n Asc(ChrW(512))\r\n 63<\/pre>\n
AscW(ChrW(512))\r\n 512 <\/pre>\n
Array nach Suchbegriff filtern mit Filter<\/h2>\n
\n
Public Sub <\/span>Beispiel_Filter()\r\n Dim <\/span>varArray() As Variant<\/span><\/span>\r\n Dim <\/span>strResult() As String<\/span><\/span>\r\n Dim <\/span>i As Integer<\/span><\/span>\r\n varArray = Array(\"André\", \"Anja\", \"Klaus\")\r\n strResult = Filter(varArray, \"An\", True<\/span>)\r\n For i = LBound<\/span>(strResult) To UBound<\/span>(strResult)\r\n Debug.Print<\/span><\/span> strResult(i)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t