Hallo erstmal
bin neu hier und beschäftige mich seid neustem mit VBA, derzeit möchte ich prüfen ob in einer Zeichenfolge ein Datum steht.
Dies mache ich mit Regulären Ausdrücken, das funktioniert auch soweit.
Nun würde ich aber gerne das Datum was er findet auch in einen String ablegen.
Das kriege ich so aber nicht hin.
Kann mir bitte jemand weiterhelfen?
danke im voraus.
grüße
Ins richtige Unterforum verschoben.
- Solaris
bin neu hier und beschäftige mich seid neustem mit VBA, derzeit möchte ich prüfen ob in einer Zeichenfolge ein Datum steht.
Dies mache ich mit Regulären Ausdrücken, das funktioniert auch soweit.
Visual Basic-Quellcode
- Dim oRegExp As Object, oMatch As Object
- Dim strText As String
- Set oRegExp = CreateObject("vbscript.regexp")
- oRegExp.Global = False
- oRegExp.IgnoreCase = True 'kein case sensitive
- oRegExp.MultiLine = False
- ' Hier: Datumsangaben im Bereich 01.01.1900 bis 31.12.2099 zulassen
- oRegExp.pattern = "(0[1-9]|[12][0-9]|3[01])[.](0[1-9]|1[012])[.](19|20)[0-9]{2}"
- Set oMatch = oRegExp.Execute(p.Index.Level0_Index1)
- If (oMatch.Count = 0 Or Len(p.Index.Level0_Index1) <> 10) Then
- ' Fehler
- p.Index.Level0_Index4 = "Date False"
- p.Index.Level0_Index5 = p.Index.Level0_Index1
- Else
- p.Index.Level0_Index4 = "Date True"
- check = "True"
- End If
- Set oRegExp = Nothing
- Set oMatch = Nothing
Nun würde ich aber gerne das Datum was er findet auch in einen String ablegen.
Das kriege ich so aber nicht hin.
Kann mir bitte jemand weiterhelfen?
danke im voraus.
grüße
Ins richtige Unterforum verschoben.
- Solaris
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Solaris“ ()