测试新增

src/dataType/utString.erl

@@ -2,8 +2,11 @@
 
 %% API
 -export([
-	toLowerStr/1,
-	toUpperStr/1
+	toLowerStr/1
+	, toUpperStr/1
+	, isAlphaNum/1
+	, isNum/1
+	, isAlpha/1
 ]).
 
 toLowerStr(List) when is_list(List) ->
@@ -29,3 +32,16 @@ toUpperStr(List) when is_list(List) ->
 	 end || C <- List];
 toUpperStr(Bin) when is_binary(Bin) ->
 	toUpperStr(utTypeCast:toList(Bin)).
+
+-spec isAlpha(Char :: char()) -> boolean().
+isAlpha(Char) ->
+	$a =< Char andalso Char =< $z orelse $A =< Char andalso Char =< $Z.
+
+-spec isNum(Char :: char()) -> boolean().
+isNum(Char) ->
+	$0 =< Char andalso Char =< $9.
+
+
+-spec isAlphaNum(Char :: char()) -> boolean().
+isAlphaNum(Char) ->
+	isAlpha(Char) orelse isNum(Char).