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