Extract date from string

[luca90]

I just have myvar="gi_db_comuni-2026-07-10-b893f.zip"

how to get date?

note:
before and after the date are lenght variable

[Zvoni]

Sub main()
Dim myvar As String
Dim t() As String
Dim regex As RegExp
Dim mc As MatchCollection
Dim m As Match
Dim mydate As Date
    
    'First way
    myvar = "gi_db_comuni-2026-07-10-b893f.zip"
    t = Split(myvar, "-")
    mydate = DateSerial(CInt(t(1)), CInt(t(2)), CInt(t(3)))
    Debug.Print mydate
    
    'Second way - needs reference to VBScript Regular Expressions
    Set regex = New RegExp
    regex.Pattern = "\.*?-(\d{4}-\d{2}-\d{2})\.*"
    regex.IgnoreCase = True
    regex.Global = True
    Set mc = regex.Execute(myvar)
    If mc.Count = 1 Then
        Set m = mc.Item(0)
        t = Split(m.SubMatches(0), "-")
        mydate = DateSerial(CInt(t(0)), CInt(t(1)), CInt(t(2)))
    End If
End Sub

[luca90]

sub main()
dim myvar as string
dim t() as string
dim regex as regexp
dim mc as matchcollection
dim m as match
dim mydate as date
    
    'first way
    myvar = "gi_db_comuni-2026-07-10-b893f.zip"
    t = split(myvar, "-")
    mydate = dateserial(cint(t(1)), cint(t(2)), cint(t(3)))
    debug.print mydate
    
    'second way - needs reference to vbscript regular expressions
    set regex = new regexp
    regex.pattern = "\.*?-(\d{4}-\d{2}-\d{2})\.*"
    regex.ignorecase = true
    regex.global = true
    set mc = regex.execute(myvar)
    if mc.count = 1 then
        set m = mc.item(0)
        t = split(m.submatches(0), "-")
        mydate = dateserial(cint(t(0)), cint(t(1)), cint(t(2)))
    end if
end sub

Dim regex As RegExp

error:
USED DEFINED NOT DEFINED

[GustavBrock]

Try this:

Public Function ExtractDate(ByVal Value As String) As Date

    Dim Start       As Integer
    Dim Text        As String
    Dim FileDate    As Date
    
    For Start = 1 To Len(Value)
        Text = Mid(Value, Start, 10)
        If IsDate(Text) Then
            FileDate = DateValue(Text)
            Exit For
        End If
    Next
    
    ExtractDate = FileDate

End Function

[k_zeon]

Dim regex As RegExp

error:
USED DEFINED NOT DEFINED

Attachment 196254 have you added a reference

or

Public Function ExtractDate(ByVal Text As String) As String

    Dim i As Long
    Dim s As String

    For i = 1 To Len(Text) - 9
        s = Mid$(Text, i, 10)

        If s Like "####-##-##" Then
            ExtractDate = s
            Exit Function
        End If
    Next i

    ExtractDate = ""

End Function