{"id":55000628,"date":"2008-10-01T00:00:00","date_gmt":"2021-02-11T21:23:04","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=628"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Texte_aufteilen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Texte_aufteilen\/","title":{"rendered":"Texte aufteilen"},"content":{"rendered":"

\"\"<\/p>\n

Manchmal kann man sich mit kleinen Tools das Leben erheblich erleichtern. In diesem Beispiel geht es um die Vereinfachung der Bearbeitung importierter Daten. Dabei liefert die Quelle eine Zeichenkette in einem Feld, die eigentlich auf zwei Felder aufgeteilt sein sollte – allerdings ohne die Möglichkeit, dies komplett zu automatisieren. Sei es drum: Eine kleine Arbeitserleichterung ist besser als keine.<\/b><\/p>\n

Beispiel<\/b><\/p>\n

Als Anregung für den Bau der hier beschriebenen Hilfe dient die Bücherverwaltung aus dem gleichnamigen Beitrag (Shortlink 633). Die dort beschriebene Anwendung liest unter anderem Buchdaten vom Webservice von Amazon ein. Dieser hat die unangenehme Eigenart, Buchtitel und Untertitel in einem zu liefern. Die beiden Eigenschaften liefert Amazon zwar durch einen Doppelpunkt getrennt, da viele Bücher aber bereits einen Doppelpunkt im Titel und\/oder Untertitel tragen, wäre eine automatische Aufteilung von Titel und Untertitel nicht besonders zuverlässig.<\/p>\n

Lösung<\/b><\/p>\n

Wie also kann man dies vereinfachen Normalerweise würde man wohl die komplette Zeichenkette, also Titel und Untertitel, in eines der Zieltextfelder, vorzugsweise in den Titel kopieren und die Zeichenkette dann manuell auf Titel und Untertitel aufteilen. Dazu markiert man dann den Untertitel innerhalb der Zeichenkette, schneidet diesen entweder per Tastenkombination Strg + X <\/b>oder über den entsprechenden Kontextmenüeintrag aus und fügt ihn mit Strg + V <\/b>in das Untertitel-Feld ein.<\/p>\n

Im Beispiel sieht das wie in Bild 1 aus. Der Text im Feld Titel <\/b>enthält nicht nur den Titel, sondern auch noch den Untertitel. Das Formular enthält direkt eine Schaltfläche, die das Formular zum Aufteilen des Titels auf Titel und Untertitel öffnet. Dieses sieht wie in Bild 2 aus.<\/p>\n

\"pic001.tif\"<\/p>\n

Bild 1: Buchdetails mit einem Titeltext, der noch auf Titel und Untertitel aufgeteilt werden muss<\/span><\/b><\/p>\n

\"pic002.tif\"<\/p>\n

Bild 2: Dieses Formular teilt Texte einfach auf.<\/span><\/b><\/p>\n

Das Formular zeigt direkt den kompletten im Feld Titel<\/b> enthaltenen Text an. Platziert der Benutzer die Einfügemarke irgendwo im Text, erscheint der Teil vor der Einfügemarke im ersten, der Teil hinter der Einfügemarke im zweiten Ergebnisfeld.<\/p>\n

Falls sich zwischen den beiden Teilen Zeichen befinden, die weder dem ersten noch dem zweiten Teiltext zugeordnet werden sollen, markiert man diesen Teil einfach. Dann zeigt das erste Ergebnisfeld den Teil vor Beginn der Markierung an und das zweite den Teil hinter der Markierung. Ein Klick auf OK <\/b>genügt, um das Formular zu schließen und den aufgeteilten Text zurückzuschicken.<\/p>\n

<\/p>\n

Lösung verwenden<\/b><\/p>\n

Der Einsatz der Lösung erfordert nur ein paar Zeilen Code, die einen Funktionsaufruf beinhalten und diesem den Originaltext übergeben sowie zwei leere Variablen, die mit den beiden Textfragmenten gefüllt werden sollen (s. Listing 1).<\/p>\n

Außerdem müssen Sie der Zieldatenbank das Modul mdlTextAufteilen <\/b>und das Formular frmTextAufteilen <\/b>hinzufügen.<\/p>\n

Der Aufruf liefert den Wert True <\/b>zurück, wenn der Benutzer den Text aufgeteilt und im Formular auf die OK<\/b>-Schaltfläche geklickt hat.<\/p>\n

Wenn Sie das Beispiel aus Listing 1 in eigene Lösungen einbauen, brauchen Sie statt des Texts nur eine String-Variable mit dem Originaltext zu übergeben und die zurückgelieferten Textfragmente in die Zieltextfelder zu schreiben.<\/p>\n

Listing 1: Beispielaufruf des Formulars zum vereinfachten Aufteilen von Texten<\/p>\n

Public Sub Test()\r\nDim str1 As String\r\nDim str2 As String\r\nIf TextAufteilen(\"Dies ist ein Titel. Und sein Untertitel.€, str1, str2) = True Then\r\n    Debug.Print \"Teil 1: \" & str1\r\n    Debug.Print \"Teil 2: \" & str2\r\nEnd If\r\nEnd Sub<\/pre>\n
Wie funktioniert das<\/b><\/p>\n
Das Formular frmTextAufteilen<\/b> (siehe Bild 3) soll den Eingangstext verarbeiten und zwei einzelne Texte zurückliefern. Das verlangt nach der üblichen Technik für solche Fälle, wo man das Formular als modalen Dialog öffnet und diesem per OpenArgs <\/b>den Parameter übergibt. Der aufrufende Code, der ja im weiteren Verlauf die durch den Benutzer im Formular gemachten Angaben noch auslesen soll, wird so erst nach dem Fokusverlust des Formulars fortgesetzt. Dieser erfolgt entweder durch das Schließen des Formulars per Klick auf die Abbrechen<\/b>-Schaltfläche oder durch einen Klick auf die OK<\/b>-Schaltfläche. Nach letzterem ist das Formular zwar noch geöffnet, aber nicht mehr sichtbar, wodurch die aufrufende Routine das Formular noch auslesen kann und so die beiden Teilzeichenketten erhält.Damit Sie das Formular so einfach wie mit Listing 1 aufrufen können und sich nicht mit dem eigentlichen Öffnen des Formulars und der Auswertung der in den Steuerelementen befindlichen Informationen beschäftigen müssen, gibt es die von Listing 1 aufgerufene Funktion TextAufteilen<\/b> (s. Listing 2).<\/p>\n
Listing 2: Diese Routine teilt den Text in zwei Teile auf.<\/p>\n
Public Function TextAufteilen(strOriginal As String, str1 As String, str2 As String) As Boolean\r\n    DoCmd.OpenForm \"frmTextAufteilen\", WindowMode:=acDialog, OpenArgs:=strOriginal\r\n    If IstFormularGeoeffnet(\"frmTextAufteilen\") Then\r\n        str1 = Forms!frmTextAufteilen!txt1\r\n        str2 = Forms!frmTextAufteilen!txt2\r\n        DoCmd.Close acForm, \"frmTextAufteilen\"\r\n        TextAufteilen = True\r\n    End If\r\nEnd Function<\/pre>\n
\"pic003.tif\"<\/p>\n
Bild 3: Das Formular frmTextAufteilen in der Entwurfsansicht<\/span><\/b><\/p>\n
Fehlt noch die Funktionalität im Formular. Dieses soll zunächst den übergebenen Text im Textfeld txtOriginal <\/b>anzeigen, wofür die Ereignisprozedur sorgt, die das Formular beim Öffnen auslöst:<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n    Me.txtOriginal = Me.OpenArgs\r\n    End Sub<\/pre>\n
Dann muss das Formular auf alle Benutzereingaben reagieren, welche die Position der Einfügemarke im Textfeld txtOriginal<\/b> verändern könnten:<\/p>\n