{"id":55001285,"date":"2021-02-01T00:00:00","date_gmt":"2021-02-17T18:40:46","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1285"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Auflistungszeichen_aus_Textdateien_ersetzen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Auflistungszeichen_aus_Textdateien_ersetzen\/","title":{"rendered":"Auflistungszeichen aus Textdateien ersetzen"},"content":{"rendered":"

\"\"<\/p>\n

Wenn Sie die Daten aus Textdateien oder ähnlichen Datenquellen einlesen möchten, benötigen Sie ein Trennzeichen, welches die einzelnen Spalten einer Zeile trennt. Das ist meist durch ein Tabulator-Zeichen, das Semikolon oder das Komma gegeben. Beim Tabulator-Zeichen treten meist keine Probleme auf, aber beim Semikolon oder beim Komma kann es zu folgendem Problem kommen: Die Zeile könnte Spalten enthalten, die ihrerseits das als Trennzeichen verwendete Zeichen enthalten. In diesem Beitrag schauen wir uns an, wie Sie mit solchen Datenquellen unter VBA umgehen können.<\/b><\/p>\n

Ein ganz einfaches Beispiel für eine solche Zeile ist diese:<\/p>\n

1; 'Beispielartikel'; 'Dies ist ein Beispielartikel.'<\/pre>\n
Hier können wir einfach nach dem Semikolon trennen und erhalten den Inhalt der drei Spalten. Aber was ist mit der folgenden Zeile<\/p>\n
2; 'Noch ein Beispielartikel'; 'Semikola kommen selten vor; manchmal aber schon.'<\/pre>\n
Hier können wir nun nicht mehr einfach nach dem Semikolon trennen. Stattdessen müssten wir untersuchen, ob sich das Semikolon innerhalb eines Paars von einfachen Anführungszeichen befindet – oder auch innerhalb eines Paares von normalen Anführungszeichen.<\/p>\n
Wir starten einmal mit einer Prozedur, die nach Schema F vorgeht und so tut, als würde es innerhalb von Spalten keine Delimiter-Zeichen geben. Diese stellt in einem String<\/b>-Array namens strTestdaten <\/b>die beiden oben genannten Zeilen zusammen und durchläuft dieses dann in einer For…Next<\/b>-Schleife über alle Elemente. Darin ruft sie die Prozedur SpaltenErmitteln <\/b>auf, der sie die jeweilige Zeile übergibt sowie das zu verwendende Delimiter-Zeichen (siehe Listing 1).<\/p>\n
Public Function <\/span>Testdaten()\r\n     Dim <\/span>strTestdaten(2) As String<\/span>\r\n     Dim <\/span>i As Integer<\/span>\r\n     Dim <\/span>j As Integer<\/span>\r\n     Dim <\/span>strSpalten() As String<\/span>\r\n     strTestdaten(0) = \"1; 'Beispielartikel'; 'Dies ist ein Beispielartikel.'\"\r\n     strTestdaten(1) = \"2; 'Noch ein Beispielartikel'; 'Semikola kommen selten vor; manchmal aber schon.'\"\r\n     For i = LBound<\/span>(strTestdaten) To UBound<\/span>(strTestdaten)\r\n         strSpalten = SpaltenErmitteln(strTestdaten(i), \";\")\r\n         For j = LBound<\/span>(strSpalten) To UBound<\/span>(strSpalten)\r\n             Debug.Print<\/span> j, strSpalten(j)\r\n         Next<\/span> j\r\n     Next<\/span> i\r\nEnd Function<\/span><\/pre>\n
Listing 1: Prozedur, die Zeilen an eine Funktion zum Trennen einer Zeile nach dem Trennzeichen übergibt<\/span><\/b><\/p>\n
Diese Funktion soll ein Array der Spalten der Zeile zurückliefern, die wir dann innerhalb einer weiteren For…Next<\/b>-Schleife, diesmal mit der Zählervariablen j <\/b>versehen, im Direktbereich des VBA-Editors ausgeben.<\/p>\n
Die Funktion SpaltenErmitteln <\/b>erwartet die zu untersuchende Zeile sowie das Delimiter-Zeichen. Sie trennt dann die Zeile mit der Split<\/b>-Methode auf, welche die Zeile und den Delimiter erwartet, und ein Array der Elemente zurückliefert (siehe Listing 2).<\/p>\n
Public Function <\/span>SpaltenErmitteln(strZeile As String<\/span>, strDelimiter As String<\/span>) As Variant<\/span>\r\n     Dim <\/span>strSpalten() As String<\/span>\r\n     strSpalten = Split<\/span>(strZeile, strDelimiter)\r\n     SpaltenErmitteln = strSpalten\r\nEnd Function<\/span><\/pre>\n
Listing 2: Funktion zum Auftrennen von Zeilen am Delimiter<\/span><\/b><\/p>\n
Das Ergebnis für die obigen beiden Zeilen sieht dann wie folgt aus, wenn wir zusätzlich noch die Spaltennummern ausgeben:<\/p>\n
0    1\r\n1    'Beispielartikel'\r\n2    'Dies ist ein Beispielartikel.'\r\n0    2\r\n1    'Noch ein Beispielartikel'\r\n2    'Semikola kommen selten vor\r\n3    manchmal aber schon.'<\/pre>\n
Sie sehen hier bereits, dass einmal drei und einmal vier Spalten ermittelt wurden. Das Semikolon innerhalb der Anführungszeichen wurde nämlich als Delimiter erkannt. Das ist keine Basis, um die Daten etwa in eine Tabelle einzutragen.<\/p>\n
Also müssen wir einen Weg finden, um nur die Delimiter zu berücksichtigen, die sich nicht innerhalb von Anführungszeichen befinden.<\/p>\n
Spalten nur außerhalb von Literalen erkennen<\/h2>\n
Dazu erweitern wir die Funktion SpaltenErmitteln <\/b>erheblich und gehen innerhalb der Funktion prinzipiell wie folgt vor:<\/p>\n