Recursive Strip Non-numerics from a String

[jdickens]

;^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v

Func StripNonNum($A_Val1) ;recursive fn
 ;WILL return multiple "." if present.  WILL return "." at front or tail of string if approp.
  If $A_Val1 <> "" Then
    $CharInQuest = StringLeft($A_Val1, 1)
    If StringIsDigit($CharInQuest) Or ($CharInQuest = ".") Then
      Return $CharInQuest & StripNonNum(StringTrimLeft($A_Val1, 1))
    Else
      Return StripNonNum(StringTrimLeft($A_Val1, 1))
    EndIf
  Else
    Return ""
  EndIf
EndFunc
;^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v

Edited January 10, 2005 by jdickens

[iceberg]

thank you, very useful.

[SmOke_N]

thank you, very useful.

C'mon ... this topic is 3 and a half + years old. Did you really need to bring it back from the dead?

Besides, you can do it with one line of code:

$s_string = "t3902ks09a.d909.test"
$s_string = StringRegExpReplace($s_string, "([\d\.]+)|(\D)", "\1")
MsgBox(0, 0, $s_string)