Estrazione parte di testo da stringa

mokuba

Nuovo Utente
30 Ott 2009
1
0
0
Salve a tutti,
avrei la necessità di estrarre da una serie di stringhe tipo la seguente

(Ns. Conferma d'Ordine-2008-231 del 26/02/2008)

il numero 2008-231 e la data, che ovviamente cambiano.
Immagino che siano di aiuto le espressioni regolari, ma non saprei come usarle.
E' possibile ricavare questi dati (variabili) da una stringa con quel formato fisso ?
Vi ringrazio anticipatamente per l'eventuale aiuto.
 

novizio

Nuovo Utente
15 Ott 2007
20
0
1
(Ns. Conferma d'Ordine-2008-231 del 26/02/2008)

Se il numero della conferma d'ordine ha sempre lo stesso formato (aaaa-xxx) la cosa è abbastanza semplice usando l'istruzione Instr

Private Sub Command1_Click()
Dim I, Anno As Integer
Dim TX1, Conferma As String

TX1 = "(Ns. Conferma d'Ordine-2008-231 del 26/02/2008)"

For Anno = 2005 To 2050
I = InStr(TX1, Anno)
If I Then
Conferma = Mid(TX1, I, 8)
Exit For
End If
Next
End Sub