Text Feld vor und nach Trennzeichen auslesen

[Bernie110]

Hallo zusammen,

Ich hab folgendes Problem :

Im Feld : Art
steht folgender Inhalt

Bsp 1   : SREND/125/5/0,5
Bsp 2   : SREN/080/6/0,5

Def :  ARTCode/Breite_in_mm/Länge_in_Meter/Stärke

Ich benötige nun folgendes : zB Bsp1
Breite = 125
Länge = 5

Wie kann ich das Feld auslesen ?

Danke für eure Antworten
Lg
Bernie

[MzKlMu]

Hallo,
das machst Du am Besten mit einer kleinen Funktion:

Code [Auswählen] Erweitern

Public Function fncTrennen(Inhalt As String, Pos As Integer) As Double
Dim arrInhalt() As String
    arrInhalt = Split(Inhalt, "/")
    fncTrennen = arrInhalt(Pos - 1)
End Function
In einem allgemeinen Modul.

Dann in einer Abfrage, jeweils als berechnetes Feld:

Code [Auswählen] Erweitern

Breite: fncTrennen([Art];2)
und

Code [Auswählen] Erweitern

Länge: fncTrennen([Art];3)

[Bernie110]

Hallo,

das funktioniert so weit ganz gut.
Allerdings bräuchte ich hier noch eine Fehlerbehebung.
Mein Fehler, weil ich das nicht angegeben habe .sorry hierfür

Es gibt unterschiedliche Art Bezeichnungen
wie
z.b.
EF/123
V4A-SR/100
SREN/200/3/0,6/SCHEEL/HOSOKAWA
usw

Ich bräuchte den Wert 0 sobald das o.g. Beispielschema nicht erfüllt ist.

Geht das auch ?
Dann wäre ich schon zufrieden
Lg
Bernie

[DF6GL]

Hallo,


.
.
.
If Ubound(arrInhalt) <> 3 Then
.
.
.
End If
.
.
.

[Bernie110]

Vielen Dank !
Klappt herrvoragend
Lg Bernie