Office: (Office 2000) Teilstring in Abfrage auslesen

WDKA-Jürgen · 25. April 2005

Hallo zusammen,
ich möchte einen String auslesen. Und zwar den Text, der zwischen 2 "-" Zeichen steht.

Beispiel: 123-DE-124554
1245-Dre-1457897
es soll nur das "DE" bzw. das "Dre" ausgelesen werden

Vor und hinter den "-" kann der Text unterschiedlich lang sein, das mir leider die left oder right Funktion nicht zuläßt.

in VBA mache ich das mit der Split-Funktion.
das klappt auch alles sehr gut.

meine Frage

Wie mache ich das in einer Abfrage OHNE SQL ????
entweder stelle ich mich mal wieder blöde an, oder die Sache hat wirklich einen Haken.

habe schon den ganzen morgen das Forum durchsucht. Hier wird immer nur auf VBA eingegangen.

mfg

Jürgen

:)

der_chris · 26. April 2005

ich finde die fragestellung leicht verwirrend. WO genau möchtest du denn diesen teilstring herbekommen? in einem objekt eines formulars das nur einen teil des eigentlichen feldinhaltes darstellen soll? willst du mit dem teilstring via VBA eine andere funktion füttern? was hat es mit dem "ohne sql" auf sich?

tosoma · 26. April 2005

die "between" Funktion sollte helfen. Schau mal in der online-Hilfe.

Gruß

Mathias

mkubik · 26. April 2005

Nur so ein Gedanke:

Code:

Sub rausfiltern()
Const kette = "123-DE-124554"
dim strdatenfeld () as string
strdatenfeld = split(kette, "-")
end sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn du dann den zweiten Inhalt des Arrays ausgibst bist du
doch am Ziel, oder?

WDKA-Jürgen · 26. April 2005

hallo Chris,
ich habe eine Abfrage die auf einer Tabelle basiert. Dort habe ich ein Feld "NameDatei".
Aus diesem Feld sind die Beispieldaten aus dem ersten Thema. jetzt möchte ich einfach ein neues Feld in der Abfrage erstellen teilstr: dann der code identisch dem Split in VBA, um die Auswertung zu bekommen.

Ich wollte nicht die neuen Werte in einer Tabelle speichern. Deshalb auch die Auswertung in der Abfrage.
Ich glaube es wird wohl am einfachsten sein, wenn ich das wie gehabt in VBA mit split auswerte, was ja auch klappt und von da die werte in einer Tabelle speichere.

trotzdem Danke ich euch für eure Mühe.

mfg

Jürgen

tosoma · 26. April 2005

Her eine Funktion aus dem Acces Codebook

Code:

Public Function GetStringBetweenSeperators( _
ByVal strValue As String, _
Optional ByVal strFirstSep As String, _
Optional ByVal strSecondSep As String = "") As String

Dim strTemp As String
Dim intFoundFirst As Integer
Dim intFoundSecond As Integer

On Error Resume Next

If strSecondSep = "" And Not strFirstSep = "" Then

strTemp = Trim(Mid(strValue, _
InStr(strValue, strFirstSep) + Len(strFirstSep)))

ElseIf strFirstSep = "" And Not strSecondSep = "" Then

strTemp = Trim(Mid(strValue, 1, _
InStr(strValue, strSecondSep) - 1))

ElseIf strFirstSep = "" And strSecondSep = "" Then

strTemp = Trim(strValue)
'ElseIf Not Exists(strFirstSep) Then
'Exit Function

Else

Do Until intFoundSecond > intFoundFirst

intFoundFirst = InStr(strValue, strFirstSep) + _
Len(strFirstSep)

intFoundSecond = InStr(strValue, strSecondSep)

If intFoundSecond < intFoundFirst Then

intFoundSecond = InStr(intFoundSecond + 1, _
strValue, strSecondSep)

End If

Loop

intFoundSecond = intFoundSecond - _
InStr(strValue, strFirstSep) - Len(strFirstSep)

strTemp = Trim(Mid(strValue, intFoundFirst, _
intFoundSecond))

End If

GetStringBetweenSeperators = strTemp

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In der Abfrage dann sowas wie

GetStringBetweenSeperators(Textfeld, "-", "-")

MurphysLaw · 27. April 2005

Du kannst das auch in die Abfrage einbauen (dann isses in der Abfrage, zum Arbeiten, aber nicht in der Tab gespeichert). Ich habe eine Tabelle namens Tabelle1 erstellt, mein Feld 123-DE-234456 heißt "feld". Das Abfragefeld "Check" enthält hier den String "DE" oder "DRE" oder was auch immer....

Code:

SELECT Tabelle1.feld, Mid([feld],InStr(1,[feld],"-")+1) AS rest1, Left([rest1],InStr(1,[rest1],"-")-1) AS [Check]
FROM Tabelle1;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

*wink.gif*

Aaaals klar?

Grüße,
Andreas

WDKA-Jürgen · 27. April 2005

hallo zusammen,
@andreas: Genauso hatte ich mir das vorgestellt.

danke euch allen

mfg

Jürgen

Office: (Office 2000) Teilstring in Abfrage auslesen

Teilstring in Abfrage auslesen

Teilstring in Abfrage auslesen

Teilstring in Abfrage auslesen

Teilstring in Abfrage auslesen

Teilstring in Abfrage auslesen - Similar Threads - Teilstring Abfrage auslesen

Teilstring einer Zelle auf Wert aus anderer Zelle überprüfen

VBA - Teilstring auslesen

Sverweis mit einem Teilstring

Teilstring in Abfrage

Outlook Suche AN: / Nach Teilstrings suchen

Sverweis mit 2 Kriterien nach Teilstring einer Zelle suchen lassen

Zellenwert übertragen, wenn Teilstring vorhanden ist und neu auflisten