Oracle11gRelease1(11.1)函数为表的某个字段进行字母数字组合编码

你也许会想，用编程语言一样能实现该功能，而且写起来还容易，那为什么还要用 Oracle 来写？这也许是对的。但若业务逻辑很复杂，

本文内容

我们会遇到这样的情况：数据库的表，除了数字型的主键（ID）外，出于某种目的，有时，也需要为其他某个字段进行编码。比如，若编码规则有前缀，则建立视图后，根据编码，可以知道该条记录来自于“哪里（哪个业务流程）”。

也许，像 GUID 这样随机生成是个选择，但这种毫无规律的东西，在业务里很难使用。而且，实际中不确定是否能生成唯一的，虽然理论上不唯一的概率很小。

本文演示编码规则：字母数字组合自增，也就是 0~9 和 A~Z。字母不区分大小写（你可以自己修改代码，让它区分大小写，这样编码更多）。至于多少位 VARCHAR2(...)，酌情处理。至于何时溢出，字母数字组合，加上足够的位数，应该够了，再多，就分表吧。

你也许会想，用编程语言一样能实现该功能，而且写起来还容易，那为什么还要用 Oracle 来写？这也许是对的。但若业务逻辑很复杂，同时，需要向数据库几张表写数据，并在每个表写多条记录时，要是这多条记录互相有关联性，就不那么容易了，特别是，SQL 的执行是事务型的，就更不容易控制了——要访问多少次数据库啊。

把功能性的东西，用 Oracle 写好，函数也好，存储过程也好，再在应用程序创建 Oracle 匿名的过程，，是个不错的选择。将复杂性分散开，Oracle 承担一部分，应用程序承担一部分。而应用程序主要承担业务本身和它们之间的逻辑。

因此，软件开发是数据库，应用程序等，各个方面的问题，如果仅仅认为编程，就过于简单了。

若执行以下 SQL ，获得指定字母数字组合字符串加一的字符串，其中，F_Comm_IncreaseNumLetter(v_str in varchar2) 为自定义函数：

select F_COMM_INCREASENUMLETTER('5') as v1, F_COMM_INCREASENUMLETTER('aA') as v2, F_COMM_INCREASENUMLETTER('01a') as v3, F_COMM_INCREASENUMLETTER('01aZ') as v4, F_COMM_INCREASENUMLETTER('0zzZzz') as v5, F_COMM_INCREASENUMLETTER('0000zZzzZ') as v6, F_COMM_INCREASENUMLETTER('0000zzZZabCDe') as v7from dual;

下面实现这个功能。分为一个自定义数组和三个自定义函数：

VARCHAR2(1)/

create or replace function F_Comm_SplitStr(pi_str in varchar2) return char_table is v_char_table char_table; v_temp varchar2(100); v_element varchar2(100);begin v_char_table := char_table(); v_temp := pi_str; while length(v_temp) > 0 loop v_element := substr(v_temp, 1, 1); v_temp := substr(v_temp, 2, length(v_temp)); v_char_table.extend; v_char_table(v_char_table.count) := v_element; end loop; return v_char_table;end F_Comm_SplitStr;/