PowerBuilder Function Get Number gf_get_number
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | //Function Name : gf_get_number //Argument Name : as_source, Arg Type : String, Pass By : Value //Return Type : String //Example : AT-123-456 //Return : 123456 Char lc_char[] Int i, li_ascii String ls_return lc_char = as_source For i = 1 To Len(as_source) //Get ASC code of character. li_ascii = Asc (lc_char[i]) If IsNumber(Mid(as_source, i, 1)) Then ls_return += String(lc_char[i]) End If Next Return ls_return |
Good Luck!