Estrarre parte numerica

[Simone]

Salve a tutto il Ng, qualcuno potrebbe suggerirmi il modo di estrarre la
parte numerica di un campo? Esempio
Campo = simone1234 dovrebbe estrarre in un altro campo 1234, consideriamo
che la parte numerica non è sempre di 4 cifre, grazie

[Alessandro Baraldi]

Non hai molte scelte, devi parsare la stringa analizzando un carattere
per volta e confrontarlo con i codici ASCII corrispondenti ai caratteri
da 0÷9, in quel caso li mamorizzi e prosegui...!
Finita la stringa dei numeri converi in numero Val(NomeStringa)

For x=1 to Len(Stringa)
If Asc(Mid$(Stringa,x,1))>EquivalentediZERO And
Asc(Mid$(Stringa,x,1))<Equiv9 then
StingaNumerica=StringaNumerica & Mid$(Stringa,x,1)
End if
Next

Numero = Val(StrigaNumerica)

Una cosa del genere....!

Ciao
@Alex

[Bruno Campanini]

Post by Simone
Salve a tutto il Ng, qualcuno potrebbe suggerirmi il modo di estrarre la
parte numerica di un campo? Esempio
Campo = simone1234 dovrebbe estrarre in un altro campo 1234, consideriamo
che la parte numerica non è sempre di 4 cifre, grazie

Se la parte numerica si trova dopo una stringa
ma non fra due stringhe:
=========================
Private Sub Command39_Click()
Dim i As Integer, SS As String

SS = "BrunoCampanini 10021936"

For i = 1 To Len(SS)
If IsNumeric(Mid(SS, i)) Then
MsgBox Mid(SS, i)
Exit For
End If
Next

End Sub
=========================
Ciao
Bruno

[Roberto da casa]

Post by Simone
Salve a tutto il Ng, qualcuno potrebbe suggerirmi il modo di estrarre la
parte numerica di un campo? Esempio
Campo = simone1234 dovrebbe estrarre in un altro campo 1234, consideriamo
che la parte numerica non è sempre di 4 cifre, grazie

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Carlo Costarella intitolata "6.40 Estrarre tutti i numeri da una stringa del
tipo A123B45".

[Simone]

Grazie in anticipo, potresti farmi un esempio applicato, ho due campi
"pippo" e "pluto" dentro pippo ci sono valori aa12345, vorrei inserire
automaticamente sul campo pluto solo 12345, l'esempio l'ho visto ma non ci
capisco granchè, grazie ancora

Post by Roberto da casa

Post by Simone
Salve a tutto il Ng, qualcuno potrebbe suggerirmi il modo di estrarre la
parte numerica di un campo? Esempio
Campo = simone1234 dovrebbe estrarre in un altro campo 1234, consideriamo
che la parte numerica non è sempre di 4 cifre, grazie

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Carlo Costarella intitolata "6.40 Estrarre tutti i numeri da una stringa del
tipo A123B45".
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

[Roberto da casa]

Post by Simone
Grazie in anticipo, potresti farmi un esempio applicato, ho due campi
"pippo" e "pluto" dentro pippo ci sono valori aa12345, vorrei inserire
automaticamente sul campo pluto solo 12345, l'esempio l'ho visto ma non ci
capisco granchè, grazie ancora

Memorizza il codice VBA pubblicato sul Sito Comune in un modulo standard del
tuo database, quindi esegui questo codice VBA:

pluto = EstraiNumeri(pippo)