Gegevens uit een string halen

[marvy]

als input in mijn code krijg ik een bericht van een extern programma in de vorm van een string

"Er werden tussen 11/12/2012 en 14/12/2012 13 bestellingen opgenomen"

Hoe kan ik nu uit deze string de startdatum,einddatumen het aantal halen om verder als variable te gebruiken ?
Als ik de string zou trimmen dan weet ik niet hoe ik moet omgaan wanneer er meer characters zijn omdat 13 bv 130 wordt

dank u

 

[frankwannet]

@dikkekip1: Jouw bericht verwijderd. Gaarne dit soort reactie's achterwege laten.

 

[OctaFish]

Je zou, als de string een variabele lengte heeft, en de datums ook nog op verschillende woordposities zouden kunnen staan, de hele string in een array kunnen zetten, gesplitst op spaties. Dus iets als:

Function test()
Dim arr As Variant
Dim i As Integer

arr = Split("Er werden tussen 11/12/2012 en 14/12/2012 13 bestellingen opgenomen", " ")
For i = LBound(arr) To UBound(arr)
    If IsDate(arr(i)) Then
        MsgBox arr(i)
    End If
Next i

End Function

 

[snb]

omdat de spatie de default 'splitsings'parameter is:

sub M_snb()
  sn=Split("Er werden tussen 11/12/2012 en 14/12/2012 13 bestellingen opgenomen")

  datum1=sn(3)
  datum2=sn(5)
  aantal=sn(6)
end sub