how to label only number using vbscript in arcgis 10.1

Question

I have a GPS station feature dataset and I need to label using field NAME. However, I need to label only the number, for example in the field NAME the name are GPS123, STATION 239, STN 325 but the label need only appear 123,239 and 325. I already tried using this VB script expression but its not work properly.

Function FindLabel ([NAME])
  FindLabel = [NAME]
  FindLabel=mid(FindLabel,4)
End Function

Answer 1

You can achieve this with a regular expression. The current logic below assumes the format is as described above, i.e. 1 or more numbers in a single group at the end of the string. So it will not find numbers embedded in the string "bob123gps456".

Function FindLabel ( [FeatureClassName]  )
  dim s, reg, mc
  s =  [FeatureClassName]
  set reg = new RegExp
  reg.IgnoreCase =True
  reg.Global = False
  reg.Pattern = "\d+$"
  set  mc = reg.Execute(s)
  if mc.count = 0 then
    FindLabel = "no number"
  else
    findLabel = mc.Item(0)
  end if
End Function