eygle.com   eygle.com
eygle.com eygle
eygle.com  
 

« ITPUB年会回顾-阿里巴巴的数据库管理优化体系 | Blog首页 | 2007 我的新书写作计划 »

如何判断一个字符串是否为数字或日期?
modb.pro

昨天有一个朋友在MSN上问,如何判断一个字符串是否为数字?
我说,写一个函数吧。于是给出了一个例子:

SQL> CREATE OR REPLACE FUNCTION is_number (parmin VARCHAR2)
2 RETURN NUMBER
3 IS
4 val NUMBER;
5 BEGIN
6 val := TO_NUMBER (NVL (parmin, 'a'));
7 RETURN 1;
8 EXCEPTION
9 WHEN OTHERS
10 THEN
11 RETURN 0;
12 END;
13 /

Function created.

SQL> select is_number('a') from dual;

IS_NUMBER('A')
--------------
0

SQL> select is_number('0.998') from dual;

IS_NUMBER('0.998')
------------------
1

SQL> select is_number('9999999999999999') from dual;

IS_NUMBER('9999999999999999')
-----------------------------
1

今天,这个朋友在MSN上又问:如何判断一个字符是否是日期?
我说,再写一个函数吧。

补注:由于session的语言设置会影响日期的输出格式,所以时间被转换为字符可能有多种形式。
以下这个函数只能满足部分情况,仅供参考。

SQL> CREATE OR REPLACE FUNCTION is_date (parmin VARCHAR2)
2 RETURN NUMBER
3 IS
4 val DATE;
5 BEGIN
6 val := TO_DATE (NVL (parmin, 'a'), 'yyyy-mm-dd hh24:mi:ss');
7 RETURN 1;
8 EXCEPTION
9 WHEN OTHERS
10 THEN
11 RETURN 0;
12 END;
13 /

Function created.

SQL> select is_date('a') from dual;

IS_DATE('A')
------------
0

SQL> select is_date('2004-05-05') from dual;

IS_DATE('2004-05-05')
---------------------
1

SQL> select is_date('2004/01/01') from dual;

IS_DATE('2004/01/01')
---------------------
1

SQL> select is_date('01/01/04') from dual;

IS_DATE('01/01/04')
-------------------
1

SQL> select is_date('01-jan-04') from dual;

IS_DATE('01-JAN-04')
--------------------
1

这两者是何其相似啊!

-The End-


历史上的今天...
    >> 2018-02-05文章:
    >> 2011-02-05文章:
           2011 - 正月里来是新年
    >> 2010-02-05文章:
    >> 2009-02-05文章:
    >> 2008-02-05文章:
    >> 2006-02-05文章:
           一生的忠告
    >> 2005-02-05文章:

By eygle on 2007-02-05 10:16 | Comments (7) | FAQ | 1349 |

7 Comments

这是习惯的问题

日期的格式变万化[有点夸张],还真不好写个通用的判断方法,容易对初学者产生误导.正如d.c.b.a所说,习惯问题SQL> select sysdate from dual;

SYSDATE
--------------
05-2月 -07

SQL> select is_date('05-2月 -07') from dual;

IS_DATE('05-2月-07')
--------------------
0

SQL>

这就是区别.

高手遇到问题,总是说:自己写一个吧!
新手遇到问题,总是问:这个怎么实现?

受益匪浅.

to tomas;
对于不同语言设置,这个is_date还真不好写...

你的大名在itpub 中经常看到,敬仰。

但你的function is_number 在coding 开发中可是犯了一个小小的忌讳 :)
(当然很多人不这么认为)
主要是将程序异常信息作为funtion 执行的返回结果,这在程序开发过程中是不允许的。

CREATE OR REPLACE FUNCTION ISNUMERIC(pstr IN varchar2)

RETURN boolean IS
/*
Created by Lis Li in 2004
*/

blnTemp boolean;
strTemp VARCHAR2(4000);
begin

blntemp:=false;

strTemp:=TRANSLATE(pstr,

'.0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz`~!@#$%^*()<>,/\? "',

'.0123456789') ;

IF strTemp=pstr THEN

IF scancnt(pstr,'.')>1 THEN

RETURN false;

ELSE

RETURN true;

END IF;

ELSE

RETURN false;

END IF;

END;
/

我认为这个函数比较符合程序开发。希望能给些建议。

to myhuaer;
其实通过traslate函数转换,肯定是可以的,你的这个函数不过是将返回值变更为了布尔型。

val := TO_NUMBER (NVL (parmin, 'a'));
7 RETURN 1;
...

这里改为布尔型返回值也是可以的,还要更简明一些。

不过boolean的问题在于,不能够在函数中直接调用处理,还需要经过一次判断。

SQL> CREATE OR REPLACE FUNCTION is_number2 (parmin VARCHAR2)
2 RETURN boolean
3 IS
4 val NUMBER;
5 BEGIN
6 val := TO_NUMBER (NVL (parmin, 'a'));
7 RETURN True;
8 EXCEPTION
9 WHEN OTHERS
10 THEN
11 RETURN False;
12 END;
13 /

Function created.

SQL> select is_number2('aa') from dual;
select is_number2('aa') from dual
*
ERROR at line 1:
ORA-06552: PL/SQL: Statement ignored
ORA-06553: PLS-382: expression is of wrong type


SQL> set serveroutput on
SQL> begin
2 if is_number2('11') then
3 dbms_output.put_line('number');
4 end if;
5 end;
6 /
number

PL/SQL procedure successfully completed.

SQL>

据我所知,一般的编程语言,使用异常来判断是性能最为低下的的一种方法。不知道oracle对异常的处理的性能是怎么样的。

个人感觉使用异常来判断合法性在大批量的数据操作中,有可能成为瓶颈的。

这2个函数还是有优化的必要的


CopyRight © 2004~2020 云和恩墨,成就未来!, All rights reserved.
数据恢复·紧急救援·性能优化 云和恩墨 24x7 热线电话:400-600-8755 业务咨询:010-59007017-7040 or 7037 业务合作: marketing@enmotech.com