//Function Name : f_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
0 comments:
Post a Comment