Office: (Office 2003) Teilstring in Abfrage

Hallo,

ich versuche gerade in einer Literaturdatenbank mit einer Abfrage einen bestimmte Anzahl von Text vor und nach dem Suchbegriff beim ersten Auffinden im Memo-Textfeld zu realisieren. Es sollte in etwa so wie die Ausschnitte in Google aussehen. Klappt auch soweit, aber durch die feste Anzahl von Zeichen bekomme ich natürlich am Anfang und Ende auch Wortschnipsel.

Frage: wie bekomme ich nur ganze Wörter am Anfang und Ende zusammen ?

Tabelle hat Feld: Inhalt (Memo)
Ziel: rund 100 Zeichen vor und nach dem Suchbegriff (hier abc)

Hier mein Statement in der Abfrage:

Textauszug: "... " & Teil([Inhalt];Wenn((InStr([Inhalt];"abc")-100)

:)

 

Du könntest versuchen, die Position des nächsten Leerzeichens rechts vom Ende des Wortes bzw. links vom Anfang des Wortes rauszupopeln. Das wird aber ein ziemlicher Bandwurm, wenn du das in einer Anweisung machen willst. Ich würde das dann eher auslagern in eine kleine VBA-Funktion, die dann in die Abfrage eingebaut wird.

Helferlein: Mid, Instr, InstrRev.

 

Ein weiteres Helferlein von Jost Schwider (Worte werden nicht nur durch Leerzeichen getrennt):
Code:

 

Danke für die schnellen Antworten. Ich habe erst mal auf die Schnelle (damit das Ding läuft) den erzeugten Text in zwei weiteren Feldern neu "gestaltet" und vorerst mit Leerzeichen die Abgrenzung gemacht (war übersichtlicher).

Grundsätzlich werde ich aber doch die Sache in VBA realisieren um auch komplexere Suchprozesse abbilden zu können.

Anbei die Definitionen der 2 Felder für Vorbereitung (Text1 und Text2) sowie die Ausgabe des endgültigen Formats (Textauszug) mit insgesamt max 400 Zeichen Text:

Text1: Teil([Inhalt];Wenn((InStr([Inhalt];"abc")-200)