Hallo,
ich sammle Daten in einer AccessDb „Betreff“ die sehr unterschiedlich ankommen
z.B. „asfg , 9403898.pdf,9392324_2.pdf“
oder " nme Rl5 9409891_1.pdf,9409891_2.pdf." usw.
Ich benötige aber nur die Zahlengruppen sprich 9409891_1 oder 9409891.
Kann mir jemand helfen.
Danke und LG
annekarin
Hallo,
ich sammle Daten in einer AccessDb „Betreff“ die sehr
unterschiedlich ankommen
z.B. „asfg , 9403898.pdf,9392324_2.pdf“
oder " nme Rl5 9409891_1.pdf,9409891_2.pdf." usw.
Ich benötige aber nur die Zahlengruppen sprich 9409891_1 oder
9409891.
Kann mir jemand helfen.
Kannst Du das genauer spezifizieren?
„15“ bei „R15“ ist auch eine Gruppe.
Oder willst Du lediglich und nur den Dateinamen der PDF-Dateien extrahieren?
Viele Grüße vom Bodensee
Franz, DF6GL
Hallo
ich sammle Daten in einer AccessDb „Betreff“ die sehr
unterschiedlich ankommen
z.B. „asfg , 9403898.pdf,9392324_2.pdf“
oder " nme Rl5 9409891_1.pdf,9409891_2.pdf." usw.
Ich benötige aber nur die Zahlengruppen sprich 9409891_1 oder
9409891.
Kann mir jemand helfen.Kannst Du das genauer spezifizieren?
„15“ bei „R15“ ist auch eine Gruppe.
Oder willst Du lediglich und nur den Dateinamen der
PDF-Dateien extrahieren?
Bitte kein Emails schicken als Antwort auf die Threads hier…
Hier eine Funktion, die die Dateinamen entspr. Deinem Beispiel ausfiltert. Wo Du die Funktion verwenden kannst, mußt Du selber sehen.
Public Function PDFExtract(Betreff As String, ByRef a)
Dim S1 As String, S2 As String, i As Long, j As Long, pos As Long, Z As String
S1=Betreff
‚‘’'S1 = „asdf, 9403898.pdf, gdfgsdg23424234.pdf,9392324_2.pdf“
a = Split(S1, „.pdf“)
If UBound(a) >= 0 Then
For i = LBound(a) To UBound(a) - 1
'Debug.Print i
For j = Len(a(i)) To 1 Step -1
Z = Mid(a(i), j, 1)
If IsNumeric(Z) Or Z = „_“ Then
S2 = Z & S2
Else
Exit For
End If
Next
a(i) = S2 & „.pdf“
S2 = „“
Debug.Print a(i)
Next
End If
End Function
Viele Grüße vom Bodensee
Franz, DF6GL