PowerBuilder Function Is Alphabet gf_Is_Alphabet
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | //Function Name : gf_Is_Alphabet //Argument Name : as_source, Arg Type : String, Pass By : Value //Return Type : Boolean // True if the string only contains alphabetic characters. // If any argument's value is NULL, function returns NULL. // //Description: Determines whether a string contains only alphabetic // characters. Long ll_count = 0 Long ll_length Char lc_char[] Integer li_ascii //Check parameters If IsNull(as_source) Then Boolean lb_null SetNull(lb_null) Return lb_null End If //Get the length ll_length = Len (as_source) //Check for at least one character If ll_length = 0 Then Return False End If //Move string into array of chars lc_char = as_source //Perform loop around all characters //Quit loop if Non Alpha character is found Do While ll_count ll_count ++ //Get ASC code of character. li_ascii = Asc (lc_char[ll_count]) // 'A'=65, 'Z'=90, 'a'=97, 'z'=122 If li_ascii < 65 Or (li_ascii > 90 And li_ascii < 97) Or li_ascii > 122 Then /* Character is Not an Alpha */ Return False End If Loop // Entire string is alpha. Return True |
Good Luck!
Users Today : 43
Users Yesterday : 157
This Month : 3322
This Year : 24828
Total Users : 210281
Views Today : 110
Total views : 876764
Who's Online : 4