F_GET_ALPHABET

//Function Name : f_get_alphabet
//Argument Name : as_source, Arg Type : String, Pass By : Value
//Return Type : String

//Example : AT-123-456
//Return : AT

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 (li_ascii >= 65 And li_ascii <=90) Or (li_ascii >= 97 And li_ascii <= 122) Then
        ls_return += string(lc_char[i])
    End If
Next

Return ls_return

0 comments:

Post a Comment