{"id":55000251,"date":"2014-12-01T00:00:00","date_gmt":"2020-01-24T15:59:13","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=251"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Arrays_mit_Split_und_Join","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Arrays_mit_Split_und_Join.html","title":{"rendered":"Arrays mit Split und Join"},"content":{"rendered":"
Für die Arbeit mit Arrays gibt es zwei interessante Funktionen, die Ihnen möglicherweise einige manuelle zu programmierende Schritte abnehmen. Join erlaubt es, die Inhalte eines eindimensionalen Arrays in einer einzigen Zeichenkette zusammenzusetzen, wobei Sie noch angeben können, ob die einzelnen Elemente durch ein oder mehrere Zeichen getrennt werden sollen. Und die Split-Funktion erstellt ein neues Array auf Basis einer in einer Zeichenketten enthaltenen Auflistung von Texten. Einzige Bedingung: Es muss ein einheitliches Trennzeichen zwischen den Einträgen vorliegen.<\/p>\n
Beispieldatenbank<\/h2>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1406_ArraysMitSplitUndJoin.mdb<\/b>.<\/p>\n
Die Join-Funktion<\/h2>\n
Die Join<\/b>-Funktion erwartet zwei Parameter: den Variablennamen des Arrays sowie als optionalen Parameter die Zeichenkette, die hinter jedem Element angehängt werden soll. Sie können diese Funktion auf die Schnelle im Direktfenster des VBA-Editors testen (zu aktivieren mit der Tastenkombination Strg + G<\/b>):<\/p>\n
In diesem Beispiel setzt die Array<\/b>-Funktion aus den drei Zeichenketten Wert1<\/b>, Wert2 <\/b>und Wert3 <\/b>ein Array zusammen. Dieses nimmt die Join-Funktion gleich wieder auseinander und fügt die einzelnen Elemente zu einer einzigen Zeichenkette zusammen. Dabei verwendet sie die mit dem zweiten Parameter übergebene Zeichenkette, hier das Pipe-Zeichen (|) als Trennzeichen, das zwischen die einzelnen Elemente geschrieben wird.<\/p>\n
Ein aufwendigeres Beispiel finden Sie in Listing 1. Hier sollen alle Artikelnamen durch Kommata voneinander getrennt im Direktfenster ausgegeben werden. Dazu öffnet die Prozedur zunächst eine Recordset-Gruppe auf Basis der Tabelle tblArtikel<\/b>, wobei jedoch nur das Feld Artikel <\/b>berücksichtigt wird<\/p>\n
Public Sub <\/span>Beispiel_Join()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>strArtikel() As String<\/span>\r\n Dim <\/span>strArtikelliste As String<\/span>\r\n Dim <\/span>lngAnzahl As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT Artikel FROM tblArtikel\", dbOpenDynaset)\r\n rst.MoveLast\r\n lngAnzahl = rst.RecordCount\r\n ReDim strArtikel(lngAnzahl - 1)\r\n rst.MoveFirst\r\n Do While<\/span> Not<\/span> rst.EOF\r\n strArtikel(rst.AbsolutePosition) = rst!Artikel\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n strArtikelliste = Join(strArtikel, \", \")\r\n MsgBox<\/span> strArtikelliste\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Zeichenkette aus den Elementen eines Array erstellen<\/p>\n
Dann springt die Prozedur mit der Methode MoveLast <\/b>zum letzten Datensatz des Recordsets und liest mit der Recordcount<\/b>-Eigenschaft die Anzahl der enthaltenen Datensätze aus.<\/p>\n