Aiuto: Estrarre un numero da una stringa

[santino83]

Allora,

io ho tutta una serie di codici:

A1255468
BC884542
A663325
B2225856
DC45456
SD656555
.......

fatti così come ho scritto, ovvero un numero variabile di lettere all'inizio e poi una parte numerica alla fine. Come posso fare ad estrarre solo la parte numerica da questo codice? avevo pensao alle REXP ma non sono capace di costruire un pattern adatto. Qualcuno ha idea?

[Baol74]

Function GetNumber(StrIn)
	Dim Re,Matches
	Set Re = new RegExp
	Re.Global=True
	Re.IgnoreCase = True
	Re.Pattern = "\w+?(\d+)"
	Set Matches =  Re.Execute(StrIn)
	if  Matches.Count>0 then GetNumber = Matches(0).subMatches(0) 
End Function

Provala.

Ciao

[Baol74]

Meglio senza regExp se il formato è certo

Function GetNumber(StrIn)
Dim Pos,i
For i=1 to Len(StrIn)
	Pos = InStr("0123456789",Mid(StrIn,i,1))
	If Pos>0 then Exit For
Next
If Pos>0 then GetNumber=Mid(StrIn,i)
End Function

[santino83]

a me serviva tutta la serie di numeri che stava dopo, e allora ho fatto così:

function FindNum(codice)
dim indice
indice=0
i=0
while indice=0 and not i=len(codice)
i=i+1
if isNumeric(mid(codice,i,1)) then
indice=i
end if
wend

if indice>0 then
FindNum=int(right(codice,len(codice)-(indice-1)))
else
FindNum=codice
end if
end function

fa un pò schifo, ma mi ero scordato l'instr fatto come hai fatto te. Mo la modifico con quello

[santino83]

così va meglio

function FindNum(codice)
dim indice
indice=0

for i=1 to len(codice)
 indice=InStr("0123456789",Mid(codice,i,1))
 if indice>0 then exit for
 next

if indice>0 then
FindNum=int(right(codice,len(codice)-(indice-1)))
else
FindNum=codice
end if
end function