Hallo zusammen,
mein erster Post hier, also hoffentlich versau' ichs nicht gleich. :)
Ich habe schon etwas recherchiert, aber leider waren meine Suchbegriffe wohl nicht passend genug. Deshalb hoffe ich hier Hilfe zu bekommen.
Zur Problemstellung:
Ich habe ein Langtextfeld in einer Tabelle, welches manchmal über 1000 Zeichen enthält.
Mittels einer Abfrage möchte ich nun wissen, wie oft ein bestimmtes Wort in diesem Langtextfeld vorkommt.
Beispiel für den Inhalt des Feldes (Ein Datensatz):
-OSRTE JJKOA7W
: FVGH HVNFTG PLUX 11IK 3PC
-ERROR ROF205: RS: VIA EADJ OFGF NDTRY PATH
REF:?OD3712A? RTUUOHAP
-ERROR ROF204: RS: VIA EADJ EZPHI OTN PATH
REF:?OD5510A? APP5 ADJ/HI DEP AM
-ERROR ROF205: RS: VIA EADJ OFGF NDTRY PATH
REF:?UX2038A? HKOPUTA
-ERROR ROF204: RS: VIA IRKIS L6 MLUH L619 IRKIS
SUBIG L61 UH LV L69 SUBG BV UL61 DUMIL ON TLV
PATH REF:?ZD2945A? L/UL619 LIBV BUMIL
-ERROR ATH165: DCT SEGMENT BUMIL..BOLBO (105 IK)
FOR HKOPUTA. MAXIMUM 0 IK ?YX1A?
-ERROR ATH165: DCT SEGMENT BUMIL..BOLBO (105 IK)
FOR TZWWCTA:245:285. MAXIMUM 0 IK ?LLWW1D?
-MSGTXT (7BY-ZS)
Ich möchte nun gern angezeigt bekommen, wie oft das Wort ERROR vorkommt.
Habt ihr eine Idee für mich?
Herzlichen Dank vorab.
VG
Pepe
Debug.Print UBound(Split(Me.txtLangtextfeld, "ERROR"))
Hallo Eberhard,
Danke für deine Antwort.
Kannst Du mir evtl. aufzeigen, wie ich eine entsprechende Anweisung innerhalb einer Abfrage geben kann? Soweit ich das verstehe, gibt es zur Split Funktion kein Gegenstück in der Ausdrucks-Syntax für Abfragen, oder irre mich da?
Leider sind meine Kenntnisse noch zu begrenzt, um das selbst auszutüfteln.
Viele Grüße
Pepe
Update:
Ich habe inzwischen eine Lösung gefunden:
Errors: (Länge([Tabelle].[Textfeld])-Länge(Ersetzen([Tabelle].[Textfeld];"ERROR";"")))/5
Viele Grüße
Pepe
Hallo Pepe,
ZitatKannst Du mir evtl. aufzeigen, wie ich eine entsprechende Anweisung innerhalb einer Abfrage geben kann?
Als öffentl. Funktion
Public Function AnzahlTextStellen(sText, sSuchText) As Integer
AnzahlTextStellen = UBound(Split(sText, sSuchText))
End FunctionAbfrage:
SELECT
T.MemoFeld,
AnzahlTextStellen(T.MemoFeld, "ERROR") As Vorkommen
FROM DeineTabelle As Tgruss ekkehard