considerare solo i numeri di una stringa

[daniel.p]

salve ragazzi mi sembra di aver cercato bene, ma:

non riesco a dividere i valori numerici dalle lettere presenti in una stringa,

es. ho 01234A e vorrei come risultato 01234...

in realtà ho trovato una funzione, ma non riesco a farla girare:

'leggo la stringa da analizzare
stringa = RsViario(6)
'funzione
Function numerica(stringa) As Double
Dim i As Long
Dim a
Dim temp As String

For i = 1 To Len(stringa)
a = Mid(stringa, i, 1)
If a Like "[0-9]" Then
temp = temp & a
End If
Next i

numerica = temp

End Function


potreste aiutarmi??
Grazie!!

[optime]

che vuol dire 'ma non riesco a farla girare'?

[daniel.p]

Scusa, mi restituisce questo errore...


Errore di compilazione di Microsoft VBScript error '800a03ea'

Errore di sintassi

/fattiinc.asp, riga 52

Function numerica(stringa) As Double
^

[Roby_72]

If IsNumeric(a) Then

Roby

[daniel.p]

Scusa Roby, non ho capito... :master:

[Roby_72]

al posto di questa....

If a Like "[0-9]" Then


Roby

[daniel.p]

Si, ho provato, ma l'errore me lo restituisce appena inizia la funzione..

Scusate ma forse non sono abbastanza pratico con le funzioni..

[optime]

asp non accetta la tipizzazione

invece di

Dim i As Long
Dim a
Dim temp As String


metti

Dim i
Dim a
Dim temp

[daniel.p]

Niente, posto il codice:

<%
via=request("via")

if via<>"" then
'RECORDSET
Set RsViario = Server.createobject("ADODB.Recordset")
sqlViario="SELECT * from Viario where F8 like '%"&via&"%'"
RsViario.open sqlViario, connobjmat

'Lavoro il Civico

while not RsViario.eof

'funzione numeri

stringa = RsViario(6)

Function numerica(stringa)
Dim i
Dim a
Dim temp

For i = 1 To Len(stringa)
a = Mid(stringa, i, 1)
If IsNumeric(a) Then
temp = temp & a
End If
Next

numerica = temp

End Function

RsViario.movenext
wend
%>
<%=numerica%>
<%end if%>

Magari l'errore non è lì..
Grazie ancora!!

[Roby_72]

Magari dicci qual'è l'errore...

Roby