Finding first integer

[flybravo]

I'm trying to create a script the will take a file name given, find the first instance of any integer.

Ex. I need to be able to take a file name and find the customer ID which is either the first 3 - 5 letters.
AOO1993
BBBA374

 

[spazman]

For i = 1 to Len(FolderName)
If asc(i) <= 48 AND asc(i) >= 57 Then 'its not a number
strCustNum = strCustID & i
Else
exit for 'as soon as it finds a non alpha character is exits
End If
Next

 

[PHV]

Try something like this:

Function GetCustNum(FileName)
  tmp=FileName
  For i=1 To Len(tmp)-3
    x=Left(tmp,1)
    If x>=&quot;0&quot; Or x<=&quot;9&quot; Then Exit For
    tmp=Mid(tmp,2)
  Next
  GetCustNum=CLng(tmp)
End Function

Hope This Help
PH.