Find.bmx 541 B

1234567891011121314151617181920212223242526272829303132
  1. ' Search for a floating point number in a string
  2. SuperStrict
  3. Framework Text.RegEx
  4. Import BRL.StandardIO
  5. Local floats:String = "floats are 4.533, -10.232, 1446.2003 and even 100"
  6. Print "Original : " + floats + "~n"
  7. Local regex:TRegEx = TRegEx.Create("[-+]?[0-9]*\.?[0-9]+")
  8. Try
  9. Local match:TRegExMatch = regex.Find(floats)
  10. ' get each match, and print it out.
  11. While match
  12. Print "Found : " + match.SubExp()
  13. match = regex.Find()
  14. Wend
  15. Catch e:TRegExException
  16. Print "Error : " + e.toString()
  17. End
  18. End Try
  19. Print "Done."