<\/p>\n
Auch wenn Sie noch so gut mit VBA umgehen und reguläre Ausdrücke aus dem Effeff beherrschen: Wenn Sie Daten aus einem unstrukturierten Text in die Felder einer Tabelle übernehmen möchten, kommen Sie um ein wenig Handarbeit nicht herum. Vielleicht lassen sich aber mit einer kleinen Lösung noch ein paar Kopieren-und-Einfügen-Aktionen sparen Schauen wir uns das einmal am Beispiel einer E-Mail mit einer Kontaktanfrage an.<\/b><\/p>\n
Beispielhaft<\/b><\/p>\n
Für die in diesem Beitrag vorgestellte Technik gibt es verschiedene Anlässe. Diesen ist gemein, dass ein Formular ein Textfeld mit einem Text enthält, aus dem eine oder mehrere Informationen in gebundenen Feldern landen sollen. Bild 1 zeigt, wie das aussehen soll: Dort finden Sie auf der linken Seite einen unstrukturierten Text (in diesem Fall eine Adresse) und auf der rechten Seite eine Reihe Textfelder, welche die Bestandteile des Texts links aufnehmen sollen. Hier funktioniert das ganz einfach: Sie setzen den Fokus auf das Zielfeld rechts und markieren dann den Text links, der in diesem Textfeld landen soll, mit der Maus. Beim Loslassen der Maustaste wird der Text in das Textfeld kopiert.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_01\/UnstrukturierteDaten-web-images\/pic001.png\")
<\/p>\n
Bild 1: Einfachstes Kopieren markierter Texte in ausgewählte Textfelder<\/span><\/b><\/p>\n Wie funktioniert das Eigentlich ganz einfach: Wir benötigen zunächst eine Variable des Datentyps Control<\/b>, die sich das zuletzt auf der rechten Seite angeklickte und somit aktive Zielsteuerelement merken soll:<\/p>\n Die Textfelder auf der rechten Seite versehen Sie dann jeweils mit einer Ereignisprozedur, die durch das Ereignis Bei Fokuserhalt <\/b>ausgelöst wird und wie folgt aussieht:<\/p>\n Die einzige Anweisung dieser Prozedur füllt die Variable ctlZiel <\/b>mit einem Verweis auf das soeben aktivierte Steuerelement. Eine solche Prozedur legen Sie für jedes betroffene Textfeld an. Dies ist Voraussetzung für die Prozedur, die durch das Ereignis Maustaste auf <\/b>des Textfelds links ausgelöst wird. Diese prüft schlicht, ob im Textfeld links ein Text markiert ist, und schreibt diesen dann in das zuletzt auf der rechten Seite markierte Textfeld. Anschließend setzt es noch den Fokus auf dieses Textfeld:<\/p>\n Das Setzen des Fokus ist wichtig für das schnelle Einfügen der Elemente aus dem linken Textfeld in die Zieltextfelder. Der geplante Ablauf sieht vor, dass Sie zunächst das obere Zielfeld markieren dann links mit der Maus den Text auswählen, der in diesem Textfeld landen soll.<\/p>\n Dadurch, dass das Zieltextfeld danach den Fokus erhält, können Sie mit der Tabulator-Taste gleich zum nächsten Textfeld springen. Der Mauszeiger kann dann gleich auf dem unstrukturierten Text links verharren und braucht nicht zwischen den Textfeldern hin- und herbewegt zu werden.<\/p>\n Um etwa Name, Straße, Ort und Land von links in die vier Felder rechts zu kopieren, brauchen Sie genau vier Markierungsgesten mit der Maus und drei Betätigungen der Tabulator-Taste – einfacher geht es nicht, wenn der Text kein vollautomatisches Auslesen erlaubt.<\/p>\n Technik schnell integriert<\/b><\/p>\n Wie so oft in der letzten Zeit haben wir wieder eine beziehungsweise mehrere Klassen programmiert, welche die für ein einzelnes Formular entwickelte Technik flexibel einsetzbar machen.<\/p>\n Wenn Sie die Lösung gleich einsetzen möchten, führen Sie die folgenden Schritte durch:<\/p>\n <\/p>\n Statt Me!txtUnstrukturiert <\/b>geben Sie einfach den Namen des Quelltextfelds auf Ihrem Formular an. Fertig! Beim nächsten Anzeigen des Formulars in der Formularansicht sorgt die Lösung gleich dafür, dass das erste Zieltextfeld grau hinterlegt wird.<\/p>\n Außerdem fügt sie allen beteiligten Textfeldern die bereits oben beschriebene Funktion hinzu. Sprich: Das aktuell selektierte Textfeld dient als Ziel, wenn der Benutzer einen Text im als SourceTextBox <\/b>angegebenen Textfeld markiert.<\/p>\n Funktion der Klassen<\/b><\/p>\n Die Lösung verwendet zwei Klassen, um das Formular und die enthaltenen Textfelder mit den benötigten Automatismen zu versehen. <\/p>\n Die erste Klasse heißt clsCopyText <\/b>(s. Listing 1<\/a><\/span>) und besitzt zwei öffentliche Eigenschaften. Die zweite ist nur für die Konfiguration von der Ereignisprozedur Beim Laden <\/b>des Formulars wichtig. Sie heißt SourceTextBox <\/b>und erwartet einen Verweis auf das Textfeld, das als Quelle für die Kopiervorgänge dienen soll.<\/p>\n Listing 1: Die Steuerklasse clsCopyText zum Hinzufügen der Kopierfunktion<\/p>\n Wenn das Formular geöffnet und die Prozedur Form_Load <\/b>ausgeführt wird, instanziert diese die Klassel clsCopyText <\/b>und weist ihrer Eigenschaft SourceTextBox <\/b>beispielsweise den Wert Me!Quelltextbox <\/b>zu. Dadurch wird die Property Set<\/b>-Prozedur SourceTextBox <\/b>ausgelöst. Die Klasse clsCopyText <\/b>erfährt somit schon einmal, welches Textfeld als Quelle für die Kopiervorgänge dienen soll. Der Verweis auf dieses Textfeld wird gleich zu Beginn in der lokalen Variablen m_Source <\/b>gespeichert. Diese Variable ist mit dem Schlüsselwort WithEvents <\/b>deklariert, das bedeutet, dass Sie in der gleichen Klasse Ereignisprozeduren für das enthaltene Steuerelement hinterlegen können.<\/p>\n Dies erledigt die Property Set<\/b>-Prozedur auch gleich, indem sie die Eigenschaft OnMouseUp <\/b>mit dem Wert [Event Procedure] <\/b>füllt. Außerdem findet sich in der gleichen Klasse die Prozedur, die Sie schon vom einführenden Beispiel her kennen: Diese prüft, ob das Quelltextfeld einen markierten Text enthält, und weist diesen dem gerade aktiven Zieltextfeld zu. Dieses wird in dieser Prozedur allerdings über eine Variable namens m_Active <\/b>referenziert – dazu gleich mehr.<\/p>\n Die Funktion des Quelltextfeldes wäre somit bereits erledigt – es reagiert auf das MouseUp<\/b>-Ereignis und kopiert den gewünschten Text. Nun sorgt die Property Set<\/b>-Prozedur noch dafür, dass alle potenziellen Zieltextfelder ebenfalls mit einer Funktion ausgestattet werden. Diese soll dafür sorgen, dass der Klasse clsCopyText <\/b>jederzeit das aktive Textfeld bekannt ist, das der Benutzer beispielsweise mit der Tabulator-Taste oder mit der Maus aktivieren kann.<\/p>\n Dazu statten wir alle weiteren im Formular enthaltenen Textfelder ebenfalls mit einer Ereignisprozedur für das Ereignis Bei Fokuserhalt <\/b>aus. Dazu brauchen wir allerdings für jedes Textfeld eine eigene Klasse, die das Textfeld mit einer Variablen referenziert, die ihrerseits als WithEvents <\/b>deklariert ist und das Ereignis GotFocus <\/b>auslöst. Diese Klasse finden Sie in Listing 2<\/a><\/span>.<\/p>\n Listing 2: Die Klasse clsCopyTextControl repräsentiert jeweils eines der Zieltextfelder.<\/p>\n Um die Textfelder mit dieser Ereignisprozedur auszustatten, durchläuft die Prozedur SourceTextBox<\/b> der Klasse clsCopyText<\/b> alle Textfelder des Formulars. Dabei erstellt sie für jedes Textfeld eine neue Instanz der Klasse clsCopyTextControl <\/b>und weist der Eigenschaft CopyText<\/b> einen Verweis auf sich selbst und der Eigenschaft TargetTextBox <\/b>einen Verweis auf das aktuell durchlaufene Textfeld zu. Damit diese Instanzen verfügbar bleiben, werden sie in einer Collection<\/b>-Variablen gespeichert.<\/p>\n Was macht die Klasse clsCopyTextControl <\/b>nun mit diesen Informationen<\/p>\n Der Verweis auf das Textfeld ist leicht zu erklären: Natürlich legt die Klasse für dieses Textfeld eine Ereignisprozedur namens GotFocus <\/b>an, die beim Fokuserhalt des Textfelds reagiert und dieses als aktives Zieltextfeld festlegt. Aber wo wird dieses festgelegt Natürlich in der Hauptklasse clsCopyText<\/b>. Dazu übergibt diese auch einen Verweis auf sich selbst an jede Instanz der Textfeld-Klasse, damit diese auf die öffentliche Eigenschaft ActiveControl <\/b>zugreifen und diese mit einem Verweis auf das soeben selektierte Textfeld füllen kann. Die Hauptklasse kann dann genau dieses Textfeld mit dem im Quelltextfeld ausgewählten Text füllen.<\/p>\n Aber die Klasse clsCopyTextControl <\/b>erledigt noch mehr: Sie stellt das aktive Textfeld gleich beim ersten Aufruf ein und sorgt außerdem dafür, dass dieses jeweils grau hinterlegt und das zuvor markierte Textfeld wieder weiß eingefärbt wird (falls die Farbe bei Ihnen abweicht, müssen Sie dies im Code entsprechend berücksichtigen).<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Fallen bei Ihnen oder bei den Benutzern Ihrer Datenbanken regelmäßig Aufgaben an, bei denen unstrukturierte Daten in Tabellenfelder überführt werden sollen, deren Import sich nicht automatisieren lässt, finden Sie hier einen interessanten Ansatz. Sie können diese Lösung natürlich an eigene Bedürfnisse anpassen – beispielsweise, wenn Sie auch Kombinationsfelder mit den kopierten Texten füllen möchten.<\/p>\n Enthaltene Beispieldateien:<\/p>\n UnstrukturierteDaten.mdb<\/p>\nDim ctlZiel As Control<\/pre>\n
Private Sub txtZielfeld1_GotFocus()\r\n Set ctlZiel = txtZielfeld1\r\nEnd Sub<\/pre>\n
Private Sub txtUnstrukturiert_MouseUp(Button As Integer, Shift As Integer, _\r\n X As Single, Y As Single)\r\n If Me!txtUnstrukturiert.SelLength > 0 Then\r\n ctlZiel = Me!txtUnstrukturiert.SelText\r\n ctlZiel.SetFocus\r\n End If\r\nEnd Sub<\/pre>\n
\n
Set objCopyText = New clsCopyText\r\nWith objCopyText\r\n Set .SourceTextBox = Me!txtUnstrukturiert\r\nEnd With<\/pre>\n
Dim colTextboxes As Collection\r\nDim m_Active As Control\r\nDim WithEvents m_Source As TextBox\r\nPublic Property Set ActiveControl(ctl As Control)\r\n Set m_Active = ctl\r\nEnd Property\r\nPublic Property Get ActiveControl() As Control\r\n Set ActiveControl = m_Active\r\nEnd Property\r\nPublic Property Set SourceTextBox(txt As TextBox)\r\n Dim frm As Form\r\n Dim ctl As Control\r\n Dim objCopyTextControl As clsCopyTextControl\r\n Set m_Source = txt\r\n Set colTextboxes = New Collection\r\n m_Source.OnMouseUp = "[Event Procedure]"\r\n Set frm = m_Source.Parent\r\n For Each ctl In frm.Controls\r\n If ctl.ControlType = acTextBox And ctl.Name <> m_Source.Name Then\r\n Set objCopyTextControl = New clsCopyTextControl\r\n With objCopyTextControl\r\n Set .CopyText = Me\r\n Set .TargetTextBox = ctl\r\n End With\r\n colTextboxes.Add objCopyTextControl\r\n End If\r\n Next ctl\r\nEnd Property\r\nPrivate Sub m_Source_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)\r\n If m_Source.SelLength > 0 Then\r\n m_Active = m_Source.SelText\r\n m_Active.SetFocus\r\n End If\r\nEnd Sub<\/pre>\n
Dim WithEvents m_Textbox As TextBox\r\nDim m_CopyText As clsCopyText\r\nPublic Property Set TargetTextBox(txt As TextBox)\r\n Set m_Textbox = txt\r\n With m_Textbox\r\n .OnGotFocus = "[Event Procedure]"\r\n End With\r\n If m_CopyText.ActiveControl Is Nothing Then\r\n Set m_CopyText.ActiveControl = m_Textbox\r\n m_Textbox.BackColor = &HEEEEEE\r\n End If\r\nEnd Property\r\nPublic Property Set CopyText(ct As clsCopyText)\r\n Set m_CopyText = ct\r\nEnd Property\r\nPrivate Sub m_Textbox_GotFocus()\r\n m_CopyText.ActiveControl.BackColor = &HFFFFFF\r\n Set m_CopyText.ActiveControl = m_Textbox\r\n m_Textbox.BackColor = &HEEEEEE\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n