{"id":55000415,"date":"2006-12-01T00:00:00","date_gmt":"2024-02-20T10:31:17","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=415"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Volltextsuche_mit_Highlight","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Volltextsuche_mit_Highlight\/","title":{"rendered":"Volltextsuche mit Highlight"},"content":{"rendered":"

\"\" <\/p>\n

Haben Sie schon einmal mit Google Groups versucht, die Lösung zu einem Access-Problem zu finden? Dann kennen Sie das: Google markiert alle angegebenen Suchbegriffe in den gefundenen Postings in unterschiedlichen Farben. Keine Frage: Das bekommt man auch in Access hin – und wenn dafür auch das Webbrowser-Steuerelement aushelfen muss.<\/b><\/p>\n

Google macht es wieder einmal vor: Sucht man dort unter „Groups“ nach bestimmten Begriffen und wählt dann einen Eintrag aus den gefundenen Threads aus, zeigt Google die in den Postings enthaltenen Suchbegriffe farbig unterlegt an (s. Abb. 1). Das macht es einfacher, wichtigen Text von unwichtigem zu unterscheiden. Auch in Access lassen sich Suchbegriffe in Texten durch farbiges Markieren oder andere Hervorhebungen kennzeichnen – wie das funktioniert, erfahren Sie in den folgenden Abschnitten.<\/p>\n

Das Beispielformular zum Anzeigen von Texten mit beliebig hervorgehobenen Suchtreffern benötigt gar nicht viel: ein Textfeld zur Eingabe der Suchbegriffe, eine Schaltfläche zum Starten der Suche und ein ActiveX-Steuerelement namens Microsoft Webbrowser <\/b>reichen bereits aus. Die drei ordnen Sie wie in Abb. 2 an und fügen dann nur noch ein paar Zeilen Code hinzu, die den Text beim öffnen des Formulars anzeigen und nach der Eingabe von Suchbegriffen farbig markieren.<\/p>\n

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

Abb. 1: Text-Highlighting bei Google Groups<\/p>\n

Zunächst einmal soll der Text überhaupt im Webbrowser-Steuerelement erscheinen. Das Formular ist so konzipiert, dass ein anderes Formular oder Modul es per VBA-Code aufrufen und ihm beim Aufruf den anzuzeigenden Text übergeben kann. Ein solcher Aufruf sähe etwa so aus:<\/p>\n

DoCmd.OpenForm \"frmTextHighlighting\", _
 OpenArgs:=\"<Sehr langer Text>\"<\/pre>\n
Den Platzhalter <Sehr langer Text> müssen Sie natürlich noch mit dem gewünschten Text beziehungsweise einem Verweis darauf füllen. In der Beispieldatenbank finden Sie im Modul mdlTools <\/b>eine Routine mit einem passenden Aufruf. Beim öffnen des Formulars löst dieses die Ereignisprozedur Beim öffnen<\/b> aus Listing 1 aus. Diese Routine speichert den übergebenen Text zunächst in der Variablen strText<\/b>. Dann füllt sie das Webbrowser-Steuerelement mit einem neuen, leeren Dokument, öffnet dieses, schreibt den übergebenen Text hinein und schließt das Dokument wieder. Zwischendurch ersetzt es noch alle Zeilenumbrüche durch das HTML-Tag <br>, das ebenfalls einem Zeilenumbruch entspricht. Anderenfalls würde das Webbrowser-Steuerelement gar keine Zeilenumbrüche anzeigen und somit die Lesbarkeit des Textes wesentlich verschlechtern.<\/p>\n
Listing 1: Anzeigen des Formulars mit dem übergebenen Text im Webbrowser-Steuerelement<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n     strText = Me.OpenArgs\r\n     ctlWebbrowser.Navigate \"about:blank\"\r\n     ctlWebbrowser.Document.Open\r\n     ctlWebbrowser.Document.write \"<span style=''font-family:tahoma;font-size:8pt''>\" & Replace(Nz(strText, \"\"), Chr(10), \"<br>\") & \"<\/span>\"\r\n     ctlWebbrowser.Document.Close\r\nEnd Sub<\/pre>\n
Suchen und highlighten<\/h2>\n
Das Formular zeigt den Text nun ohne irgendwelche Markierungen an. Damit sich das ändert, kommen die übrigen Steuerelemente ins Spiel: Das Textfeld namens txtSuchbegriff <\/b>enthält einen oder mehrere durch Leerzeichen getrennte Suchbegriffe und die Schaltfläche cmdSuchen <\/b>löst die Routine aus Listing 2 aus und markiert damit alle Vorkommen der im Textfeld angegebenen Begriffe im Webbrowser-Steuerelement. Grundlage für die Markierung ist wiederum das in der Variablen strText <\/b>zwischengespeicherte Original des übergebenen Textes. Die Routine fügt auch hier die Zeilenumbrüche hinzu und teilt dann mit der Split<\/b>-Funktion alle im Textfeld txtSuchbegriffe <\/b>enthaltenen Begriffe auf ein Array namens strSuchbegriffe <\/b>auf. Direkt im Anschluss durchläuft eine For Next<\/b>-Schleife alle Elemente des Arrays und führt dann für jeden Suchbegriff die folgenden Schritte durch:<\/p>\n
Listing 2: Inhalte markieren und im Webbrowser-Steuerelement anzeigen<\/p>\n
Private Sub cmdSuchen_Click()\r\n     Dim strSuchbegriffe() As String\r\n     Dim strTextTemp As String\r\n     Dim strSuchbegriffTemp As String\r\n     Dim i As Integer\r\n     Dim lngPosStart As Long\r\n     Dim strFarbeStart As String\r\n     Dim strFarbeEnde As String\r\n     strTextTemp = Replace(Nz(strText, \"\"), Chr(13), \"<br>\")\r\n     strSuchbegriffe() = Split(Nz(Me!txtSuchbegriffe, \"\"), \" \")\r\n     For i = LBound(strSuchbegriffe) To UBound(strSuchbegriffe)\r\n         lngPosStart = InStr(1, strTextTemp, strSuchbegriffe(i))\r\n         Do While lngPosStart > 0\r\n             strSuchbegriffTemp = Mid(strTextTemp, lngPosStart, Len(strSuchbegriffe(i)))\r\n             strFarbeStart = \"<span style=''background-color:#\" & FarbeHolen(i) & \"''>\"\r\n             strFarbeEnde = \"<\/span>\"\r\n             strTextTemp = Left(strTextTemp, lngPosStart - 1) & strFarbeStart & strSuchbegriffTemp _
 & strFarbeEnde & Mid(strTextTemp, lngPosStart + Len(strSuchbegriffe(i)))\r\n             lngPosStart = InStr(lngPosStart + Len(strFarbeStart & strSuchbegriffe(i) _
 & strFarbeEnde), strTextTemp, strSuchbegriffe(i))\r\n         Loop\r\n     Next i\r\n     With ctlWebbrowser\r\n         If .Document Is Nothing Then\r\n             .Navigate \"about:blank\"\r\n         End If\r\n         .Document.Open\r\n         .Document.write \"<span style=''font-family:tahoma;font-size:8pt''>\" & strTextTemp & \"<\/span>\"\r\n         .Document.Close\r\n     End With\r\nEnd Sub<\/pre>\n