F_GET_NUMBER

//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