{"id":55000348,"date":"2017-02-01T00:00:00","date_gmt":"2020-01-24T15:59:46","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=348"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Platzhalter_in_Textdateien_fuellen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Platzhalter_in_Textdateien_fuellen.html","title":{"rendered":"Platzhalter in Textdateien füllen"},"content":{"rendered":"

Texte mit Platzhaltern zu füllen und die Platzhalter dann durch in der Datenbank gespeicherte Daten zu ersetzen ist ein oft benötigter Anwendungsfall. Im Prinzip bildet Word das mit der Seriendokument-Funktion ab: Hier werden im Dokument Verknüpfungen zur Datenquelle hergestellt und dann gefüllt. Wir wollen es eine Nummer kleiner angehen und einfache Text mit entsprechenden formatierten Platzhaltern wie [Vorname] versehen und diese dann nach Bedarf mit den Daten aus der Datenbank füllen.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1701_PlatzhalterInTextenFuellen.accdb<\/b>. <\/p>\n

Textdatei mit Platzhaltern erstellen<\/h2>\n

Der erste Schritt besteht daraus, eine geeignete Textdatei zu erstellen, die wir mit Platzhaltern versehen. Hier kommt bereits die erste Hürde: Wie sollen die Platzhalter aussehen, damit wir diese später auch zuverlässig finden können Die erste Voraussetzung ist, dass die Namen der Platzhalter mit den Datenfeldern korrelieren. Wenn wir aus einer Tabelle Felder namens Vorname<\/b>, Nachname <\/b>und Strasse <\/b>in die Textdateien füllen wollen, sollten die Platzhalter auch entsprechend benannt werden. Das hat allein praktische Gründe: Wir können so später einfach die Felder der Datenherkunft in einer Schleife durchlaufen und die Werte direkt in die Platzhalter einsetzen.<\/p>\n

Die zweite Voraussetzung ist, dass die Platzhalter vom übrigen Text unterschieden werden können. Wenn Sie beispielsweise nur den Namen des betroffenen Feldes als Platzhalter verwenden, ist die Wahrscheinlichkeit gegeben, dass dieser Name auch im eigentlichen Text zum Einsatz kommt.<\/p>\n

Also müssen wir die Platzhalter noch mit einer Start- und einer Endmarkierung versehen, die in dieser Art sonst nicht im Text vorkommt. Dazu eignen sich beispielsweise eckige Klammern. [Vorname] <\/b>wäre also ein geeigneter Platzhalter. Auf Nummer Sicher gehen Sie, wenn Sie die Start- und die Endmarkierung noch ein wenig eindeutiger gestalten, beispielsweise mit @[Vorname@]<\/b>. Auf diese Weise sollte nichts anbrennen.<\/p>\n

Die Vorlage sieht dann beispielsweise wie in Bild 1 aus. Sie enthält einige Platzhalter, die mit @[ beginnen und mit ]@ enden. Nun benötigen wir eine Tabelle beziehungsweise Abfrage, welche die angegebenen Platzhalterbezeichnungen innerhalb der Begrenzungszeichen aufweist. Dazu legen wir eine Tabelle namens tblKunden <\/b>an, deren Entwurf Sie in Bild 2 finden. Das Feld AnredeID <\/b>ist ein Fremdschlüsselfeld, das noch mit der Tabelle tblAnreden <\/b>verknüpft ist.<\/p>\n

\"Entwurf<\/a><\/p>\n

Bild 1: Entwurf der Tabelle tblKunden<\/p>\n

\"Beispielvorlage<\/a><\/p>\n

Bild 2: Beispielvorlage als Textdatei<\/p>\n

tblAnreden <\/b>enthält die Felder ID <\/b>(Primärschlüsselfeld) und Bezeichnung<\/b> sowie zwei Felder mit speziellen Formen der Anrede: AnredeAdresse <\/b>nimmt die Form der Anrede für den Adressblock auf (Herrn<\/b>\/Frau<\/b>), AnredeBrief <\/b>die Anrede für die erste Zeile des Brieftextes (Sehr geehrter Herr<\/b>\/Sehr geehrte Frau<\/b>) – siehe Bild 3.<\/p>\n

\"Die<\/a><\/p>\n

Bild 3: Die Tabelle tblAnreden mit einigen Werten<\/p>\n

Abfrage als Quelle für die Platzhalter<\/h2>\n

Nun benötigen wir noch eine Abfrage, welche die Daten der beiden Tabellen so zusammenführt, dass wir diese in der anschließend zu erstellenden VBA-Prozedur zum Ersetzen der Platzhalter nutzen können. Diese Abfrage soll die beiden Tabellen tblKunden <\/b>und tblAnreden <\/b>als Datenherkunft nutzen und alle Felder dieser beiden Tabellen mit Ausnahme des Feldes AnredeID <\/b>der Tabelle tblKunden <\/b>und des Feldes ID <\/b>der Tabelle tblAnreden <\/b>enthalten. Der Entwurf dieser Abfrage, die wir unter dem Namen qryKundenMitAnrede <\/b>speichern, sieht wie in Bild 4 aus.<\/p>\n

\"Entwurf<\/a><\/p>\n

Bild 4: Entwurf der Abfrage qryKundenMitAnrede<\/p>\n

Das Ergebnis der Abfrage aus Bild 5 liefert alle Daten der Tabelle tblKunden <\/b>plus die dazugehörigen Anreden aus der Tabelle tblAnreden<\/b>.<\/p>\n

\"Die<\/a><\/p>\n

Bild 5: Die Abfrage qryKundenMitAnrede in der Datenblattansicht<\/p>\n

Formular zum Füllen der Platzhalter in der Textdatei<\/h2>\n

Die Funktionen zum Auswählen der Vorlage mit den Platzhaltern, zum Auswählen der Zieldatei und zum Festlegen des Kunden, für den die Vorlage gefüllt werden soll, wollen wir in eine Benutzeroberfläche integrieren – sprich: in ein Formular. Dieses sieht in der Entwurfsansicht wie in Bild 6 aus. Es enthält im oberen Bereich zwei Textfelder namens txtVorlage <\/b>und txtZiel<\/b>. In beiden soll der Benutzer die Namen der Dateien eintragen, die verwendet werden sollen. Beide Dateien sollen der Einfachheit halber im Verzeichnis der aktuellen Datenbankdatei liegen.<\/p>\n

\"Das<\/a><\/p>\n

Bild 6: Das Formular frmPlatzhalterErsetzen in der Entwurfsansicht<\/p>\n

Vorlagendatei öffnen<\/h2>\n

Die Schaltfläche rechts vom Textfeld für die Vorlagendatei soll die angegebene Datei zum Betrachten und Bearbeiten öffnen. Dazu löst diese die Prozedur cmdVorlageOeffnen <\/b>aus (siehe Listing 1). Diese fügt den mit CurrentProject.Path <\/b>ermittelten Datenbankpfad und die im Textfeld txtVorlage <\/b>angegebene Datei in einer Variablen namens strVorlage <\/b>zusammen und prüft mithilfe der Dir<\/b>-Funktion, ob die Datei überhaupt vorhanden ist. Diese Funktion würde in diesem Fall den reinen Dateinamen zurückliefern. Hat Dir(strVorlage) <\/b>also eine Länge größer 0<\/b>, dann ist die Datei vorhanden.<\/p>\n

Private Sub <\/span>cmdVorlageOeffnen_Click()\r\n     Dim <\/span>strVorlage As String<\/span>\r\n     strVorlage = CurrentProject.Path & \"\\\" & Me!txtVorlage\r\n     If <\/span>Len<\/span>(Dir(strVorlage)) > 0 Then<\/span>\r\n         DateiOeffnen strVorlage\r\n     Else<\/span>\r\n         MsgBox<\/span> \"Die Datei '\" & Me!txtVorlage & \"' ist nicht im aktuellen Ordner der Datenbank vorhanden.\"\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Anzeige der Vorlagendatei im Text-Editor<\/p>\n
In diesem Fall ruft die Prozedur eine weitere Routine namens DateiOeffnen <\/b>auf, die im Modul mdlTools <\/b>angelegt ist. Diese verwendet eine API-Funktion namens ShellExecute<\/b>, um die mit dem Parameter strPfad <\/b>übergebene Datei zu öffnen (siehe Listing 2).<\/p>\n
Public <\/span>Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hWnd As Long<\/span>, ByVal lpOperation As String<\/span>, ByVal lpFile As String<\/span>, ByVal lpParameters As String<\/span>, ByVal lpDirectory As String<\/span>, ByVal nshowcmd As Long<\/span>) As Long<\/span>\r\nPublic <\/span>Const SW_NORMAL = 1\r\nPublic Function <\/span>DateiOeffnen(strPfad As String<\/span>) As Boolean<\/span>\r\n     Call<\/span> ShellExecute(0, \"open\", strPfad, \"\", \"\", SW_NORMAL)\r\nEnd Function<\/span><\/pre>\n
Listing 2: Diese Prozedur öffnet ein neues Formular oder zeigt dieses an, wenn es bereits geöffnet ist.<\/p>\n
Auswahl des Kunden, mit dem die Platzhalter gefüllt werden sollen<\/h2>\n
Das Listenfeld lstKunden <\/b>dient der Anzeige aller Kunden der Abfrage qryKundenMitAnrede <\/b>und der Auswahl des Kunden, für den die Platzhalter in der Vorlage ersetzt werden sollen. Dazu stellen Sie die Eigenschaft Datensatzherkunft <\/b>auf den Namen der Abfrage qryKundenMitAnrede <\/b>ein. Damit das Primärschlüsselfeld der Abfrage nicht angezeigt wird, sondern nur die ersten beiden Felder Vorname <\/b>und Nachname<\/b>, stellen Sie die Eigenschaft Spaltenanzahl <\/b>auf den Wert 3 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf den Wert 0cm;4cm;4cm <\/b>ein.<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t