|
Wenn ich das doch bloß verstehen würde, Trial and Error funktioniert jedenfalls nicht
ABC0012_____h_Infotext mit unterschiedlicher Länge
ABC1234__A__B_Text
Beschreibung oben = h
Beschreibung unten = B
Folgende Pattern zeigen A aus dem unteren Beispiel an:
.Pattern = "([^\\_]+?(\d+))_+([^\\_]+)_+(.+)"
With .Execute(Folder)
If .Count > 0 Then
fi.Id = CLng(.Item(0).Submatches(1))
fi.Status = .Item(0).Submatches(2)
und wiederum Folgende Pattern geben keinen Wert Spalte E aus:
.Pattern = "([^\\_]+?(\d+))_+([^\\_]+)_+([^\\_]+)_+(.+)"
With .Execute(Folder)
If .Count > 0 Then
fi.Id = CLng(.Item(0).Submatches(1))
fi.Status = .Item(0).Submatches(3)
Wie muss ich die Pattern anpassen, um B aus dem unteren Beispiel in Spalte E auszugeben?
|