Estrazione di numeri contenuti in un testo

Question

Salve a tutti.

Ho il seguente problema:

devo estrarre i numeri comprensivi di segno contenuti in campi testo.

Ad esempio dai testi seguenti voglio ottenere solo i numeri per poterli poi manipolare e trattare come numeri:

partendo da:

• casa123
• -118cane
• il-458numero

ottenere:

• 123
• -118
• -458

E' possibile creare un'espressione che faccia ciò?

Grazie anticipate.

Answer 1

Ciao,

puoi provare con la seguente funzione:

Option Compare Database

Option Explicit

Function Estrai(VALORE) As Double

    Dim I As Integer

    Dim res As String

    For I = 1 To Len(VALORE)

        If IsNumeric(Mid(VALORE, I, 1)) Then

           res = res & Mid(VALORE, I, 1)

        End If

        If Mid(VALORE, I, 1) = "-" Then

           res = "-"

        End If

    Next I

    Estrai = Val(res)

End Function

Ciao Mimmo

Answer 2

Speravo in qualcosa di più semplice...

Comunque grazie.